按Ctrl +＆＃39;点击＆＃39;在Excel中（然后偏移选定的单元格）

Question

我在使用宏编写代码时遇到问题，这些代码会选择多个单元格给出我用 Ctrl + Click选择的单元格。

我的意思是，当我使用 Ctrl + Click选择多个单元格时，我想要一个宏来选择那些单元格加上右边的5个单元格。但是，我不确定Excel的代码是什么，以便知道我从 Ctrl + Click中选择了哪些单元格。

非常感谢任何建议/帮助。

Answer 1

如果您选择多个不连续的单元格，我认为您需要遍历当前选区的区域以调整选区的大小：

Option Explicit

Public Sub SelectPlusFiveColumns()
    Dim FinalRange As Range

    Dim Area As Range
    For Each Area In Selection.Areas 'loop through areas
        If FinalRange Is Nothing Then
            Set FinalRange = Area.Resize(ColumnSize:=6)
        Else
            Set FinalRange = Union(FinalRange, Area.Resize(ColumnSize:=6)) 'resize each area and collect all areas in FinalRange
        End If
    Next Area

    FinalRange.Select 'select all resized areas
End Sub

注意：重叠区域的选择将合并到一个区域。