excel - 使用 VBA 复制不相交的范围

Question

我试图向 friend 解释复制不相交的范围，但发现我什至无法向自己解释。我们有如下示例数据:



使用 super 简单的示例代码，例如:

Sub KopyTest()
    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.Copy
    rng2.Copy
    rng3.Copy
End Sub

rng1 由三个不相交的 block 组成 黄色 + 绿色 + Bluerng2 由两个不相交的 block 组成 Yellow + Pinkrng3 由两个不相交的 block 组成 黄色 + 单个灰色单元

前两个范围复制得很好。 rng3复制失败，我们收到多选错误消息。

我们不明白哪些不相交的范围集可以直接复制，哪些集需要 UNION() 以及哪些集会失败

一旦我们理解了这一点，我们就可以编写一些代码来分析一个范围并确定它是否“可复制”，而不是依赖 OnError。 .

Answer 1

我相信答案是here on the microsoft您收到的特定错误的支持页面(来自 XL2000)。它和你想象的一样滑稽:

These error messages may occur when your cell or range selections are in different columns or different rows. You can, however, copy and paste nonadjacent ranges without getting an error message if your selection contains any of the following:

Multiple rows within the same column, for example, A1, A3, A5.

Multiple columns within the same row, for example, A2, C2, E2.

Multiple rows and columns within the same columns and rows, for example, A1, C1, A3, C3, A5, C5.

您的最后一个范围不适合三个公认的多项选择中的任何一个。

允许的多选范围与数组公式或 sumproduct 公式中允许的范围非常相似。

在该帮助页面的下一部分中，使用了措辞“......必须保持连续的矩形......”。而且我认为这可能是说明多选复制/剪切/粘贴中可接受的内容的最简洁方式。换句话说，想想如果不是 .Copy 会发生什么。你 .Cut这个多选范围。结果有意义吗？剩余的范围可以“滑动”在一起以删除那些多选的单元格吗？如果没有，那么你也不能复制。出于原因。