将多个单元格区域合并为单个Range变量的VBA技术问题

你的代码出现编译错误，核心问题有三个：

1. 用&运算符无法拼接Range对象，VBA中合并多个Range区域必须用Union方法
2. Range是对象类型，赋值时必须使用Set关键字
3. 直接用MsgBox MergedRange只会输出区域的地址字符串，无法直接显示单元格值，需要遍历拼接

修正后的代码如下：

Sub mergingRanges()
    Dim MergedRange As Range
    ' 使用Union合并多个Range区域，注意用Set赋值对象变量
    Set MergedRange = Union(ActiveSheet.Range("A1"), ActiveSheet.Range("A2"), ActiveSheet.Range("A3"))
    
    Dim cell As Range
    Dim resultText As String
    ' 遍历合并区域的每个单元格，拼接值
    For Each cell In MergedRange
        resultText = resultText & cell.Value & ", "
    Next cell
    ' 移除末尾多余的逗号和空格
    If Len(resultText) > 0 Then
        resultText = Left(resultText, Len(resultText) - 2)
    End If
    
    MsgBox resultText
End Sub

关键说明 #

• Union方法可以将多个独立的Range对象合并为一个多区域Range，支持连续或不连续的单元格
• 所有对象类型的变量（比如Range）赋值时都需要加Set，这是VBA的语法要求
• 遍历合并区域的单元格，把值拼接成字符串后再用MsgBox展示，才能得到你期望的15、16、17这类结果

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