設置兩個不相關的範圍在一個可變

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