Excel VBA如何创建用户选中单元格的选择集并进行遍历操作？

首先纠正认知误区：不连续、无关联的零散单元格组合完全属于Range对象的适用场景，Excel VBA内置的Range本身就支持多区域选择集存储，不管选中的单元格是否连续、位置是否随机都可以正常操作，无需自行拼接地址生成自定义选择集。

两种常用实现代码 #

方案1：先选中单元格再运行宏 #

适合已经提前选好目标单元格的场景：

Sub 批量修改选中单元格填充色()
    ' 校验当前选中的内容是否为单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中需要操作的单元格", vbExclamation
        Exit Sub
    End If
    
    Dim cell As Range
    ' 遍历所有选中的单元格，自动适配不连续区域
    For Each cell In Selection
        ' 可自行修改RGB参数调整填充颜色
        cell.Interior.Color = RGB(255, 255, 0)
    Next cell
End Sub

方案2：运行宏后再选择单元格 #

完全匹配你描述的「触发命令后按住Ctrl多选」的交互逻辑：

Sub 触发后选择单元格标记颜色()
    Dim targetRng As Range
    ' 错误处理：用户取消选择时不会报错
    On Error Resume Next
    ' 弹出区域选择框，Type:=8表示返回值为Range对象
    Set targetRng = Application.InputBox("请按住Ctrl键点击选中需要标记的单元格，完成后点击确定", "选择目标单元格", Type:=8)
    On Error GoTo 0
    
    ' 校验是否完成有效选择
    If targetRng Is Nothing Then
        MsgBox "未选中任何单元格，操作已取消", vbInformation
        Exit Sub
    End If
    
    Dim cell As Range
    For Each cell In targetRng
        cell.Interior.Color = RGB(255, 255, 0)
    Next cell
End Sub

补充说明 #

• 如果你需要后续复用这个选择集，直接把Range对象赋值给模块级变量留存即可，不需要单独存储地址
• 如果需要导出所有选中单元格的地址，直接调用targetRng.Address即可得到用逗号分隔的所有不连续区域地址字符串
• 遍历操作会自动覆盖选择集内所有单元格，无需单独处理不同的不连续子区域

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