VBA中Union方法未选取全部区域问题求助

嘿，我来帮你排查这个问题！其实你的Union语法本身没写错，但你用Columns.Count来验证合并结果的方式踩了VBA的一个小坑——对于由多个不连续区域组成的Range对象，Columns.Count只会返回第一个区域的列数，这就是为什么MsgBox只显示6（对应A-F区域的列数），但实际上你的Union已经成功合并了所有指定区域。

怎么验证Union是否真的生效？ #

你可以换成查看合并后的区域数量，或者计算所有区域的总列数：

1. 查看区域数量：

   MsgBox copiedrange.Areas.Count
   

   运行后应该返回4，正好对应你合并的4个独立区域（A:F、AX、AZ、BH:BJ）。

2. 计算总列数：
   如果需要统计所有合并区域的总列数，得遍历每个区域累加：

   Dim totalCols As Integer
   Dim singleArea As Range
   totalCols = 0
   For Each singleArea In copiedrange.Areas
       totalCols = totalCols + singleArea.Columns.Count
   Next singleArea
   MsgBox totalCols
   

   这个代码会返回6+1+1+3=11，也就是所有区域的列数总和。

额外补充：逐步合并区域的正确写法 #

如果后续你需要在循环中动态添加区域（比如i递增时合并多行的对应区域），建议用以下方式避免潜在问题：

Dim copiedrange As Range
Dim SrcWB As Workbook
Dim SrcWS As Worksheet
Set SrcWB = Workbooks("all-euro-data-2018-2019 (1)")
Set SrcWS = SrcWB.Sheets("E1")
i = 1

' 初始化区域为Nothing
Set copiedrange = Nothing

' 逐个添加区域
If copiedrange Is Nothing Then
    Set copiedrange = SrcWS.Range("A" & i & ":F" & i)
Else
    Set copiedrange = Union(copiedrange, SrcWS.Range("A" & i & ":F" & i))
End If
Set copiedrange = Union(copiedrange, SrcWS.Range("AX" & i))
Set copiedrange = Union(copiedrange, SrcWS.Range("AZ" & i))
Set copiedrange = Union(copiedrange, SrcWS.Range("BH" & i & ":BJ" & i))

' 验证
MsgBox copiedrange.Areas.Count ' 应该返回4

这种写法在处理动态添加区域时更稳妥，不会因为初始赋值的问题导致区域丢失。

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