VBA复制不连续区域（Disjoint Ranges）原理存疑，求专业解析

我来给你拆解清楚VBA里Range.Copy处理不连续区域的核心规则，结合你的三个例子一步步说：

先搞懂基础概念：Disjoint Range的结构 #

任何不连续的选区在VBA里都是由多个Area对象组成的——你可以用rng.Areas.Count查看一个不连续区域包含多少个独立的连续区块，用rng.Areas(1)、rng.Areas(2)来单独访问每个区块。Copy方法的行为完全取决于这些Area的维度匹配性。

对应你的三个例子的执行逻辑 #

1. 同列数的垂直堆叠区块（rng1: C6:D11,C13:D14,C16:D18） #

你的rng1里三个区块都是2列宽，只是行数不同（6行、2行、3行）。这种情况下，Excel会把所有区块的内容合并成一个连续的垂直区域复制到剪贴板：

• 剪贴板里最终是一个2列×11行的连续数据（6+2+3）
• 粘贴时会按原区块的顺序，从上到下依次排列这三个区块的内容

2. 不同列数的同高区块（rng2: C6:D11,F6:F11） #

rng2的第一个区块是2列6行，第二个是1列6行——列数不匹配。这时候Excel无法把这些非对称的区块整合成一个可结构化粘贴的内容，所以会触发“安全 fallback”：

• 只复制**第一个Area（也就是C6:D11）**的内容到剪贴板
• 第二个区块F6:F11的内容完全不会被复制

3. 大区域+单个单元格（rng3: C6:D11,G9） #

rng3的两个区块尺寸完全不兼容（2列6行 vs 1列1行），和上面的情况一样：

• 同样只复制第一个Area（C6:D11）的内容
• 单个单元格G9的内容不会被纳入剪贴板

验证的小技巧 #

你可以给代码加一段粘贴测试，直接看到结果：

Sub KopyTestWithPaste()
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    Set rng1 = Range("C6:D11,C13:D14,C16:D18")
    Set rng2 = Range("C6:D11,F6:F11")
    Set rng3 = Range("C6:D11,G9")
    
    ' 测试rng1：粘贴到A1，会得到2列11行的连续内容
    rng1.Copy
    Range("A1").PasteSpecial xlPasteAll
    
    ' 测试rng2：粘贴到A13，只有C6:D11的2列6行数据
    rng2.Copy
    Range("A13").PasteSpecial xlPasteAll
    
    ' 测试rng3：粘贴到A19，同样只有C6:D11的内容
    rng3.Copy
    Range("A19").PasteSpecial xlPasteAll
End Sub

如果要复制所有不连续区块怎么办？ #

如果你的需求是把所有区块的内容都复制出来，不管尺寸是否一致，就得遍历每个Area单独处理：

Sub CopyAllDisjointAreas()
    Dim targetRng As Range, area As Range
    Dim currentPasteRow As Long
    
    currentPasteRow = 1
    Set targetRng = Range("C6:D11,F6:F11,G9") ' 你的不连续区域
    
    For Each area In targetRng.Areas
        area.Copy Destination:=Range("A" & currentPasteRow)
        currentPasteRow = currentPasteRow + area.Rows.Count ' 跳到下一个粘贴起始行
    Next area
End Sub

这段代码会逐个复制每个区块，然后依次粘贴到A列的连续行里，确保所有内容都被保留。

内容的提问来源于stack exchange，提问作者Gary's Student