如何用For循环结合变量通过Range命令选中不连续单元格？

问题分析 #

你尝试的代码存在几个核心问题：

• Range对象赋值必须用Set关键字，不能直接赋值
• 错误的字符串拼接会生成无效的单元格地址，且这种写法会选中连续区域而非不连续单元格
• Union方法的使用有误，不能在Set语句后直接链式调用.Select

正确实现方法 #

方法1：用Union合并多个Range对象（推荐） #

这是VBA处理不连续单元格的标准方式，灵活且不易出错：

Sub SelectDiscontinuousCells()
    Dim targetRange As Range
    Dim taskRow As Integer
    
    ' 循环处理目标行（示例为1到3行，可按需修改范围）
    For taskRow = 1 To 3
        ' 第一次循环初始化区域
        If targetRange Is Nothing Then
            Set targetRange = Union(Range("C" & taskRow), Range("E" & taskRow))
        Else
            ' 后续循环合并新的不连续单元格
            Set targetRange = Union(targetRange, Range("C" & taskRow), Range("E" & taskRow))
        End If
    Next taskRow
    
    ' 选中最终合并的区域
    If Not targetRange Is Nothing Then
        targetRange.Select
    End If
End Sub

方法2：拼接单元格地址字符串（仅作参考） #

如果坚持用字符串拼接，需要构造类似"C1,E1,C2,E2"的格式，再传入Range：

Sub SelectViaStringConcat()
    Dim addressStr As String
    Dim taskRow As Integer
    
    For taskRow = 1 To 3
        ' 拼接每行的不连续单元格地址，用逗号分隔
        addressStr = addressStr & "C" & taskRow & ",E" & taskRow & ","
    Next taskRow
    
    ' 移除最后多余的逗号
    addressStr = Left(addressStr, Len(addressStr) - 1)
    
    ' 选中构造好的区域
    ActiveSheet.Range(addressStr).Select
End Sub

关键说明 #

• Union方法是合并不连续Range的最优方案，避免了字符串拼接的语法陷阱
• 所有Range对象的赋值操作必须使用Set关键字
• 循环中要先判断targetRange是否为Nothing，避免初始化阶段报错

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