如何用VBA的Application.InputBox实现多单元格区域选择并拆分值？

核心说明 #

Application.InputBox(Type:=8)其实支持选择多个区域（按住Ctrl键多选即可），返回的Range对象包含Areas集合，每个元素对应一个选中的区域。你之前的错误在于试图通过拆分字符串获取多区域信息，正确做法是直接操作Range.Areas集合，无需依赖字符串拆分，也不用Selection方法。

完整代码示例 #

Dim selectedRanges As Range
' 处理用户取消选择的情况，避免报错
On Error Resume Next
Set selectedRanges = Application.InputBox( _
    prompt:="选择一个或多个单元格区域（按住Ctrl可多选）", _
    Left:=100, _
    Type:=8)
On Error GoTo 0

' 确认用户已选择有效区域
If Not selectedRanges Is Nothing Then
    ' 遍历每个选中的独立区域
    Dim targetArea As Range
    For Each targetArea In selectedRanges.Areas
        Debug.Print "当前区域地址: " & targetArea.Address
        
        ' 遍历区域内的每个单元格，读取值
        Dim cell As Range
        For Each cell In targetArea
            Debug.Print "单元格值: " & cell.Value
        Next cell
    Next targetArea
End If

代码解释 #

• On Error Resume Next + On Error GoTo 0：捕获用户点击取消按钮的操作，避免程序抛出错误。
• selectedRanges.Areas：存储所有用户选中的独立区域，无论用户选了1个还是N个区域，都能逐个获取。
• 嵌套循环：外层遍历每个区域，内层遍历区域内的单元格，确保能读取到所有选中单元格的值。

对原代码问题的修正 #

原代码中用Split(str_group, ":")是错误的——多区域的地址字符串是用逗号分隔（比如$A$1:$A$2,$C$3:$C$4），而非冒号。直接操作Range对象的Areas集合比字符串拆分更可靠，能避免地址格式变化带来的错误。

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