在一个变量中设置两个不相关的范围

Question

我有 2 个不相关的范围 (С3:D5,F3:G5)。我想将它们设置在一个变量（A）中。 弹出错误“1004”。有可能吗？如果是这样，该怎么做？

     Sub пг()
     Dim book1 As Workbook
     Dim book2 As Workbook
     Dim A As String

    'C3:D5
    'F3:G5

     A = "C3:D5&F3:G5"

     Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 6\Процесс создания\Индекс формы команды\Вспомогательные проги\пг\1.xlsx")
     Set book2 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 6\Процесс создания\Индекс формы команды\Вспомогательные проги\пг\2.xlsx")

    'по листам

     book1.Worksheets("Лист1").Activate
     Range("" + A + "").Copy
     book2.Worksheets("Лист1").Activate
     Range("" + A + "").Select
     Selection.PasteSpecial Paste:=xlPasteAll


     book1.Close


     End Sub

Answer 1

另一种选择

Sub Demo()
    Dim book1 As Workbook, book2 As Workbook
    Dim rng

    Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 6\Процесс создания\Индекс формы команды\Вспомогательные проги\пг\1.xlsx")
    Set book2 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 6\Процесс создания\Индекс формы команды\Вспомогательные проги\пг\2.xlsx")

    For Each rng In Range("C3:D5,F3:G5").Areas
        book2.Worksheets("Лист1").Range(rng.Address).Value = book2.Worksheets("Лист1").Range(rng.Address).Value
    Next rng
End Sub

注意：以上代码只会粘贴值。

Answer 2

复制/粘贴不适用于非连续范围。您需要分两步完成：

Sub пг()
    Dim book1 As Workbook
    Dim book2 As Workbook

    Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 6\Процесс создания\Индекс формы команды\Вспомогательные проги\пг\1.xlsx")
    Set book2 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 6\Процесс создания\Индекс формы команды\Вспомогательные проги\пг\2.xlsx")

    'по листам
    book1.Worksheets("Лист1").Range("C3:D5").Copy book2.Worksheets("Лист1").Range("C3:D5")
    book1.Worksheets("Лист1").Range("F3:G5").Copy book2.Worksheets("Лист1").Range("F3:G5")

    book1.Close
End Sub