ExcelVBA | 单元格引用Range

抽时间学了VBA代码，今天学的是单元格引用Range的用法。

Range(“A1:B5”)、[A1:B5]、cells(1,5)

• Range方法按小数点后可自动提示代码
• 固定区域用中括号法

动态区域经典用法（连接符区域连接）

 Set 最大行 = Sheet7.Range("F65535").End(xlUp) '计算最大行

动图效果演示

Range代码

Sub Range()
    
    Sheet3.Range("A1:A9").Select
    '选择A1:A9区域,写代码时通常无需用Select
    Debug.Print 9 '立即窗口显示,相对msgbox无需弹窗点确定
        
End Sub
Sub Range5()
    
    Sheet4.Activate
    Sheet4.Range("A1:A2, b5:b6").Select
    '可以选择一个或多个不连续的区域
    
End Sub
Sub cells()
    Dim i, j
    Sheet3.Range("A:A").ClearContents
    For i = 1 To 6
        Sheet3.cells(i, 1).Value = i
        Debug.Print i '立即窗口显示
    Next
End Sub
Sub 方括号() '用于区域较固定的,无法自动调用.
    
    [B2:D4] = "XX" '将B2:D4区域的单元格填写XX
    
End Sub
Sub Offset()

    Sheet4.Range("A1:A10").Offset(0, 1).ClearContents
    '清空B1:B10
    Sheet4.Range("A1:A10").Offset(0, 1).Value = 1
    '在B1:B10内输入1
    
End Sub
Sub Resize() '扩展多少行、多少列
    
    Sheet3.Range("a1").Resize(5, 3).Value = "xy"
    '由A1扩展5行3列,填写值xy
        
End Sub

Sub Union66()
    Union(Sheet3.Range("A9"), Sheet3.Range("A2"), Sheet3.Range("c5:H6")).Select
    '选中了两个区域,还可以加更多区域
End Sub
Sub USE已用区域()
    
    Sheet3.UsedRange.Select
    '选中表中已用区域
    
End Sub

Sub Crange() '相当于按了ctrl+A
    
    Sheet3.Range("B2").CurrentRegion.Select
    'Range.CurrentRegion 属性
    '返回一个 Range 对象，该对象表示当前区域。当前区域是以空行与空列的组合为边界的区域。只读。
    
End Sub