VBA中使用Union无法将命名区域合并为数组的问题

我来帮你搞定这个问题！你遇到的情况很典型——用Union方法虽然能把两个命名区域合并成一个Range对象，但直接转数组时只会提取第一个连续区域的内容；而直接用Range方法又没法处理非连续的区域。下面给你几个实用的解决方案：

方法1：遍历每个区域的单元格构建数组 #

这是最直观的方式，逐个读取两个命名区域里的每一个单元格值，添加到目标数组中。适合数据量不大的场景：

Sub MergeNamedRangesToArray()
    Dim rng1 As Range, rng2 As Range
    Dim mergedArr() As Variant
    Dim cell As Range
    Dim i As Integer
    
    ' 定义两个命名区域
    Set rng1 = ThisWorkbook.Names("NamedRange1").RefersToRange
    Set rng2 = ThisWorkbook.Names("NamedRange2").RefersToRange
    
    ' 初始化数组大小：两个区域的单元格总数
    ReDim mergedArr(1 To rng1.Cells.Count + rng2.Cells.Count)
    
    i = 1
    ' 遍历第一个区域
    For Each cell In rng1
        mergedArr(i) = cell.Value
        i = i + 1
    Next cell
    
    ' 遍历第二个区域
    For Each cell In rng2
        mergedArr(i) = cell.Value
        i = i + 1
    Next cell
    
    ' 这里可以用mergedArr做后续操作，比如打印验证
    Debug.Print Join(mergedArr, ", ")
End Sub

方法2：先转成独立数组再合并 #

如果两个命名区域都是单列/单行的连续区域，可以先把每个区域转成数组，再合并两个数组，效率比遍历单元格更高：

Sub MergeTwoArraysFromNamedRanges()
    Dim rng1 As Range, rng2 As Range
    Dim arr1 As Variant, arr2 As Variant
    Dim mergedArr() As Variant
    Dim i As Integer, j As Integer
    
    Set rng1 = ThisWorkbook.Names("NamedRange1").RefersToRange
    Set rng2 = ThisWorkbook.Names("NamedRange2").RefersToRange
    
    ' 将区域转成数组（注意如果是单行/单列，会得到二维数组，需要转一维）
    arr1 = Application.Transpose(rng1.Value)
    arr2 = Application.Transpose(rng2.Value)
    
    ' 合并数组
    ReDim mergedArr(1 To UBound(arr1) + UBound(arr2))
    For i = 1 To UBound(arr1)
        mergedArr(i) = arr1(i)
    Next i
    For j = 1 To UBound(arr2)
        mergedArr(i + j - 1) = arr2(j)
    Next j
    
    Debug.Print Join(mergedArr, ", ")
End Sub

注意：如果是多行多列的区域，转数组后是二维的，合并时需要处理二维数组的行和列，逻辑类似但要调整循环维度。

方法3：用临时工作表中转（适合大数据量） #

如果你的命名区域数据量很大，遍历单元格效率低，可以用临时工作表把两个区域的值粘贴到一起，再转成数组：

Sub MergeWithTempSheet()
    Dim rng1 As Range, rng2 As Range
    Dim tempSheet As Worksheet
    Dim mergedArr As Variant
    
    Set rng1 = ThisWorkbook.Names("NamedRange1").RefersToRange
    Set rng2 = ThisWorkbook.Names("NamedRange2").RefersToRange
    
    ' 创建临时工作表
    Set tempSheet = ThisWorkbook.Sheets.Add
    
    ' 粘贴第一个区域到临时表
    rng1.Copy tempSheet.Range("A1")
    ' 粘贴第二个区域到第一个区域的下方
    rng2.Copy tempSheet.Range("A" & rng1.Rows.Count + 1)
    
    ' 将临时表中的数据转成数组
    mergedArr = tempSheet.UsedRange.Value
    
    ' 删除临时工作表
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    ' mergedArr就是合并后的二维数组
End Sub

为啥Union方法不行？ #

咱们得明白：Union(rng1, rng2)返回的是一个包含多个Area的Range对象。当你直接用.Value获取值时，只会返回第一个Area的数据，而忽略后面的Area。所以必须手动遍历每个Area来收集所有单元格的值。

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