VBA实现不规则单元格选中：拼接的选区字符串无法直接使用求助

你的核心问题是拼接的选区字符串多了首尾的双引号。看代码里的拼接逻辑：

• 初始化RX时写了RX = """" & "A" & ...，这里的""""在VBA里会生成一个实际双引号（VBA用两个双引号表示一个输出双引号）
• 最后又追加了RX = RX & """"，导致最终RX的内容是类似"A3,A5,A8"（带首尾双引号）的字符串
• 而Range()方法需要的是不带外层双引号的地址字符串（比如A3,A5,A8），带引号的地址是无效格式，所以直接调用Range(RX).Select会失效

快速修正方案：去掉多余双引号 #

把拼接时的双引号全部移除，修改后的代码如下：

Sub AddToSelection()
    Dim B As Worksheet, RX As String, C As Integer
    Set B = ActiveSheet

    For C = 1 To 20
        If B.Cells(C, 5) = 1 Then
            If RX = "" Then
                RX = "A" & C  ' 直接用循环变量C当行号，无需重复调用Cells(C,5).Row
            Else
                RX = RX & ",A" & C
            End If
        End If
    Next C

    ' 先判断RX非空再执行选中，避免空字符串报错
    If RX <> "" Then
        Range(RX).Select
    End If
End Sub

更高效稳定的方案：用Union方法合并选区 #

拼接字符串的方式在目标单元格数量较多时，容易触发Excel地址字符串长度限制，推荐用Union方法直接合并单元格对象，逻辑更清晰也更可靠：

Sub AddToSelection_Union()
    Dim B As Worksheet, targetRange As Range, C As Integer
    Set B = ActiveSheet

    For C = 1 To 20
        If B.Cells(C, 5) = 1 Then
            If targetRange Is Nothing Then
                Set targetRange = B.Cells(C, 1)  ' 直接定位A列对应行的单元格
            Else
                Set targetRange = Union(targetRange, B.Cells(C, 1))
            End If
        End If
    Next C

    ' 合并完成后选中目标区域
    If Not targetRange Is Nothing Then
        targetRange.Select
    End If
End Sub

说明：

• Union方法可以逐步合并多个不连续的单元格/区域，最终生成一个包含所有目标单元格的Range对象
• 彻底避免了字符串拼接可能出现的格式错误和长度限制问题
• 代码逻辑更贴合VBA的操作习惯，可读性和维护性更强

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