时间戳

首页 > 解决方案 > 复制和粘贴多个范围

excel - 复制和粘贴多个范围

问题描述

我需要选择多个范围。

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

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)

粘贴，但它给了我错误

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

标签： excelvbarange

解决方案

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

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

推荐阅读