嘿，这个需求我太熟了——Excel里要识别Ctrl+Click选出来的那些不连续单元格，核心就是用Selection.Areas这个对象，它专门用来处理这种非连续的选区集合。直接给你可行的代码和解释，照着用就行：

完整宏代码 #

Sub ExtendSelectedCellsToRight()
    Dim newSelection As Range
    Dim area As Range
    Dim cell As Range
    
    ' 先判断用户有没有选中单元格，避免报错
    If TypeName(Selection) <> "Range" Then
        MsgBox "麻烦先选中单元格再运行宏哦！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历所有Ctrl+Click选中的非连续区域
    For Each area In Selection.Areas
        ' 遍历当前区域里的每个单元格（如果是连续块的话也能处理）
        For Each cell In area.Cells
            ' 把当前单元格+右侧5个单元格加入新选区
            If newSelection Is Nothing Then
                ' 第一次初始化选区：1行，6列（当前单元格+右侧5个）
                Set newSelection = cell.Resize(1, 6)
            Else
                ' 后续用Union合并非连续区域
                Set newSelection = Union(newSelection, cell.Resize(1, 6))
            End If
        Next cell
    Next area
    
    ' 最后选中扩展后的所有区域
    If Not newSelection Is Nothing Then
        newSelection.Select
    End If
End Sub

关键知识点解释 #

• Selection.Areas：这是整个问题的核心！当你用Ctrl+Click选中多个不连续单元格时，每个单独的单元格（或连续的单元格块）都会被当成一个Area，这个集合就包含了所有这些区域。
• cell.Resize(1,6)：Resize方法用来调整选区大小，这里保持1行不变，列数设为6是因为要包含当前单元格本身加上右侧的5个单元格（1+5=6）。
• Union方法：Excel里非连续的区域不能直接拼接，用Union可以把多个独立的Range对象合并成一个完整的非连续选区，这样最后就能一次性选中所有扩展后的区域。

额外小提示 #

• 你可以把这个宏绑定到自定义快捷键（比如Alt+Shift+E），这样选中单元格后直接按快捷键就能完成扩展，不用每次去菜单找宏。
• 如果偶尔会选中连续的单元格块（比如用鼠标拖选了几个连续单元格再Ctrl+Click加选其他），代码也能自动处理，会把块里的每个单元格都扩展右侧5列。

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