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

Posted 2021-01-27 xuying-fall

1.引用单元格

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

2.使用行列编号  cells(行, 列)

如果使用单个cells(i) , 一般会事先指定区域, cells(i) 的顺序是从左到右, 从上到下依次进行,

比如 第一行1 2 3 4, 第二行 5 6 7 8

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

3. 使用快捷记号

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

4. offset,resize 之前介绍过了 ,  如何选择出去标题行之外的数据?

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

上述如果只有r.offset(1,0) 会多选一行空行, offset 只进行了移动

5. 快速选中某张工作表的任意区域

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

其他方法, application.goto 

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

注意上面的文件名后缀可以省略!