将数据从工作表中的单元格复制到另一工作表中的下一个可用行

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