复制和粘贴多个范围

Question

我需要选择多个范围。

这是我选择第一个范围的代码，但现在我需要编辑此行以添加第二个范围。

Range(ActiveCell.Offset(-1, -8), ActiveCell.Offset(-1, -2)).Select

Range("A:G,T:W") 是我试图动态抓取的。

更新：VincentG 给了我代码

Intersect(ActiveCell.EntireRow, Range("A:G,T:W")).Copy

我已经复制了范围，但现在我需要将它粘贴到下一行的相同列中。 我尝试使用相同的代码

Intersect(ActiveCell.EntireRow, Range("A:G,T:W")).PasteSpecial (xlPasteValues)

粘贴但它给了我错误

“此操作不适用于多项选择”

Answer 1

您的代码在语法上是正确的，但我怀疑您没有得到预期的结果。 进一步猜测：我猜您想在当前行上选择 A:G 和 T:W。 如果这个猜测是正确的，那么试试这个：

    Union( _
        Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "G")), _
        Range(Cells(ActiveCell.Row, "T"), Cells(ActiveCell.Row, "W")) _
    ).Select

Answer 2

对于看这篇文章的其他人：

我最终复制了一个部分，将它粘贴到我需要的地方，然后使用 activecell.offset，我选择了另一个范围，复制并粘贴。 我从来没有找到复制和粘贴多个范围的方法。