Excel-VBA入门(6): Range对象应用实例

Sub test()
    Range("C2").Value = "haha"
    Range("A1:B6,D2:E4").ClearContents  ‘ 清除并集的内容
    Range("A1:B10").Select
    Range("A1:B2", "C3:D5").Select ‘表示从A1到D5
End Sub

Sub test()
    With Range("A2:D4")
        For i = 1 To .Cells.Count ‘返回该区域的单元格数量
            .Cells(i) = i
        Next
    End With
End Sub

Sub test()
    Worksheets("sheet1").[A1] = 100
    Set Rng = [A2:B4]
End Sub

Sub test()
    Dim r As Range
    Set r = Range("A1").CurrentRegion
    r.Offset(1, 0).Resize(r.Rows.Count - 1, r.Columns.Count).Select
    Set r = Nothing ‘释放r存储空间
End Sub

Sub test()
    Workbooks("book1.xls").Worksheets("sheet1").Activate
    ActiveSheet.Range("D2:F4").Select
End Sub

Sub test()
    Application.Goto Workbooks("book1.xls").Worksheets(1).Range("A1:D2"), True
End Sub