VBA中Application.InputBox无法捕获多区域范围的解决方法咨询

当使用Application.InputBox并设置Type:=8时，若用户选择多个不连续的列区域（如$A:$A,$D:$D），默认只会返回第一个区域。这是因为此时返回的Range对象包含一个Areas集合，每个集合元素对应一个选中的独立区域，而非直接返回多个区域的数组。

无需使用多次对话框或UserForm，只需通过遍历Range的Areas集合即可获取所有选中区域，修改后的代码如下：

Private Sub Button1_Click()
    Dim inp As Range
    Dim singleArea As Range
    
    ' 弹出选择框，允许用户选择多区域
    Set inp = Application.InputBox(Prompt:="Select columns", Title:="Select Multiple Columns", Type:=8)
    
    ' 遍历所有选中的独立区域
    For Each singleArea In inp.Areas
        ' 此处添加你的后续处理逻辑，示例：打印区域地址
        Debug.Print "选中列区域：" & singleArea.Address
        ' 示例：读取该列数据
        ' Dim columnData As Variant
        ' columnData = singleArea.Value
    Next singleArea
End Sub

关键说明 #

• 必须将inp显式声明为Range类型，避免Variant类型的隐式转换问题
• inp.Areas会返回所有用户选中的独立区域，无论是否连续
• 之前尝试的Type:=64（数组类型）不适用，因为InputBox无法直接将选中的Range转换为数组，会触发类型错误

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