1 引用单个单元格:
Dim cellValue As Variant
cellValue = Range("A1").Value
2 引用多个单元格范围:
Dim dataRange As Range
Set dataRange = Range("A1:B10")
3 引用整列或整行:
Dim entireColumn As Range
Set entireColumn = Range("A:A")
Dim entireRow As Range
Set entireRow = Range("1:1")
4 动态引用单元格范围:
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Dim dynamicRange As Range
Set dynamicRange = Range("A1:A" & lastRow)
5 处理单元格值:
' 设置单元格值
Range("A1").Value = "Hello"
' 复制单元格值
Range("A1").Copy Destination:=Range("B1")
' 清空单元格
Range("A1").Clear