用于复制多个单元格并粘贴到另一张工作表的Vba代码

Question

我开始使用Vba开具发票。我有代码可以复制一定范围的非空单元格并将其粘贴到另一张纸上，并且它工作正常，但是我想复制一些其他单元格并将它们全部粘贴到最后使用的行之后。 喜欢 我可以使用“发票编号，日期，客户名称，业务员姓名和总计”来跟踪发票。

Sub CopyRange()
    Dim x, y(), i As Long, ii As Long

    x = Sheets("Invoice").[a12:g49]
    For i = 1 To UBound(x, 1)
        If x(i, 1) <> "" Then
            ReDim Preserve y(1 To 7, 1 To i)
            For ii = 1 To 7
                y(ii, i) = x(i, ii)
            Next
        Else: Exit For
        End If
    Next
    With Sheets("Invoice Record")
        .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(y, 2), 7) = Application.Transpose(y)
    End With

End Sub