復制和粘貼多個范圍

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，我選擇了另一個范圍，復制並粘貼。 我從來沒有找到復制和粘貼多個范圍的方法。