根据源工作簿中的变量将源工作簿中的单元格复制到目标工作簿中的变量行

Question

我将相邻单元格 (b1 - g1) 从源工作簿 (NEW RCA TUNE 23 v2) 复制到目标工作簿 (RCA NUMBER LOG) 中由源工作簿中生成的可变行号 (Val) 指定的指定行。

但是，当我更改源工作簿中的变量并写入目标工作簿中的新行时，它还会用最新信息覆盖任何先前的行信息。

Sub vba_copy_to_NumberLog()
Dim Val As Integer
Val = Worksheets("Sheet3").Range("A1").Value
Workbooks("NEW RCA JUNE 23 v2").Worksheets("Sheet3").Range("b1", "g1").Copy _
  Workbooks("RCA NUMBER LOG").Worksheets("RCA Log").Range("c" & Val, "h" & Val)
End Sub

Answer 1

尝试

Sub vba_copy_to_NumberLog()

    Dim Val As Long
    Dim wbNRJUN As Workbook, wbRNL As Workbook
    Dim wsSht3 As Worksheet, wsRL As Worksheet

    Set wbNRJUN = Workbooks("NEW RCA JUNE 23 v2")
    Set wbRNL = Workbooks("RCA NUMBER LOG")
    Set wsSht3 = wbNRJUN.Worksheets("Sheet3")
    Set wsRL = wbRNL.Worksheets("RCA Log")

    Val = wsSht3.Range("A1").Value
    wsSht3.Range("B1", "G1").Copy _
        wsRL.Range("C" & Val, "H" & Val)
    
End Sub