將數據從工作表中的單元格復制到另一個工作表中的下一個可用行

Question

我正在嘗試為初創企業設置 POS 系統。

我需要從發票中復制固定單元格並將它們粘貼到存檔銷售數據的表中。 單元格不在同一行或同一列中。

要復制的單元格如下（來自“SalesSheet”）：
“E4”、“E5”、“C5”、“C6”、“F23”、“F24”、“F26”

這些需要按該順序粘貼到“SalesArchive”表中的下一個空閑行中。

我搜索但找不到答案。

Answer 1

這是一種方法：

Sub foo()
    Dim sSrc()
    Dim wsSrc As Worksheet
    Dim wsTgt As Worksheet
    Dim c As Range
    Dim i As Integer

    sSrc = Array("E4", "E5", "C5", "C6", "F23", "F24", "F26")

    Set wsSrc = Worksheets("Invoice")
    Set wsTgt = Worksheets("SalesArchive")
    Set c = wsTgt.Cells(Rows.Count, 1).End(xlUp)

    For i = LBound(sSrc) To UBound(sSrc)
        c.Offset(1, i).Value = wsSrc.Range(sSrc(i)).Value
    Next i
End Sub