Excel VBA 在兩個工作簿之間復制單元格

Question

我正在嘗試在兩個工作簿之間復制數據：從單元格 A3 到 Voice 中的最后一個單元格到 Voice_Files 中的相應單元格。 我無法讓它工作，我在做什么？ 下面是代碼：

Sub Copy()
    Dim wB1 As Workbook
    Dim wB2 As Workbook
    Dim wS1 As Worksheet
    Dim wS2 As Worksheet
    Dim c1 As Range
    Dim c2 As Range


    Dim MASTER_FILE_NAME As String
    MASTER_FILE_NAME = "Voice.xlsm"
    Dim REPORT_FILE_NAME As String
    REPORT_FILE_NAME = "Voice_Files.xlsm"


    'Set wB1 = ThisWorkbook
    'Set wB1 = ActiveWorkbook
    Set wB1 = Workbooks("Voice.xlsx")
    Set wB2 = Workbooks("Voice_Files.xlsx")

    Set wS1 = wB1.Sheets(1)
    Set wS2 = wB2.Sheets(1)


    'Take the whole column in master sheet
    Set c1 = wS1.Range("A2").End(xlDown).End(xlToRight)
    Set c2 = wS2.Range("A2").End(xlDown).End(xlToRight)

    'Transfer the values
    c2.Value = c1.Value
End Sub

Answer 1

您可以將Range包含在另一個Range調用中，即第一個是左上角單元格，第二個是右下角。

With ws1
    Set c1 = .Range(.Range("A2"), .Range("A2").End(xlDown).End(xlToRight))
End With