Excel VBA中如何声明单元格对象变量并获取单元格位置？

一、解决智能提示问题 #

VBA中不存在Cell数据类型，单个单元格本质是Range对象，将CL声明为Range即可触发智能提示：

Sub Excel_Collection1()
    Dim rng As Range
    Dim CL As Range ' 声明为Range类型，即可触发智能提示
    ' 先给rng指定具体范围，否则循环会报错
    Set rng = Range("C1:C10")
    
    For Each CL In rng
        If CL.Value <> "" Then
            MsgBox CL.Value
        End If
    Next CL
End Sub

二、获取单元格位置并创建动态区域 #

要获取单元格的位置标识（如C1、C2），可使用Range对象的以下属性：

• CL.Address(False, False)：返回不带绝对引用符号的单元格地址（如C1）
• CL.Row：返回单元格的行号
• CL.Column：返回单元格的列号

动态区域创建示例 #

以下代码展示如何基于当前单元格位置生成动态区域并操作：

Sub Excel_Collection1()
    Dim rng As Range
    Dim CL As Range
    Dim dynamicRng As Range
    
    Set rng = Range("C1:C10")
    
    For Each CL In rng
        If CL.Value <> "" Then
            ' 弹出当前单元格位置
            MsgBox "当前单元格位置：" & CL.Address(False, False)
            
            ' 示例1：创建从当前单元格到A20的合并区域并高亮
            Set dynamicRng = Range(CL, Range("A20"))
            dynamicRng.Interior.ColorIndex = 6
            
            ' 示例2：创建当前行中A列到当前单元格的区域并加粗字体
            Set dynamicRng = Range(Cells(CL.Row, "A"), CL)
            dynamicRng.Font.Bold = True
        End If
    Next CL
End Sub

内容的提问来源于stack exchange，提问作者eliassal