Excel VBA：忽略非连续用户选中区域中的中间列

当你用Dim userSelection As Range: Set userSelection = Selection获取选中区域时，若用户按住Ctrl选择不连续列（比如A列和C列），Selection会返回包含中间未选中列的连续区域（A:C），导致无法直接通过Columns(index)获取实际选中的列。此时可以利用Selection.Areas属性来准确获取每个独立的选中区域。

核心解决方案代码 #

' 遍历所有独立选中区域
Dim singleArea As Range
For Each singleArea In Selection.Areas
    ' 处理每个独立区域，比如打印区域地址
    Debug.Print "实际选中的独立区域：" & singleArea.Address
    ' 如果是整列选中，也可以单独提取列
    Dim targetCol As Range
    For Each targetCol In singleArea.Columns
        Debug.Print "选中的列：" & targetCol.Address
    Next targetCol
Next singleArea

代码说明 #

• Selection.Areas是一个集合，存储了用户选中的每一块独立区域，完全不会包含未选中的中间列。
• 比如用户选中A、C、N列时，Areas集合会有3个元素，分别对应A列、C列、N列，遍历即可获取所有实际选中的列。
• 如果你需要将所有选中列存储起来后续使用，可以用Collection来保存：

Dim selectedCols As New Collection
Dim singleArea As Range
Dim targetCol As Range

For Each singleArea In Selection.Areas
    For Each targetCol In singleArea.Columns
        selectedCols.Add targetCol
    Next targetCol
Next singleArea

' 后续可以通过索引访问选中的列
' 比如获取第一个选中的列：Set firstCol = selectedCols(1)

这样就能准确获取用户实际选中的所有列，不会出现包含未选中列的问题，也不会漏掉任何选中的独立区域。

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