在两张纸之间移动数据的macros

我有一个macros从一张表中获取数据并将其放入另一张表（RMA）中。 它自动在前一个下面创build一个新行。 但是，RMA表中的列A中包含数据，macros查看列A并在列A的最后一个数字下添加新行。 我希望它可以打折那个专栏，并把它添加到数字旁边。 可以这样做吗？ 以下是将数据放入RMA工作表的一些代码。

 ActiveWorkbook.Sheets("RMA").Activate Worksheets("RMA").Select Worksheets("RMA").Range("a8").Select RowCount = Worksheets("RMA").Range("a8").CurrentRegion.Rows.Count With Worksheets("RMA").Range("a8") .Offset(RowCount, 0) = invoiceNumber .Offset(RowCount, 1) = customerRef .Offset(RowCount, 2) = customerName .Offset(RowCount, 3) = customerCountry .Offset(RowCount, 4) = customerCompany 

Answer 1

尝试下面的内容。 可能会更简单，更快，因为它不select任何对象，但直接与他们合作。 如果B行中没有空白单元格，则从第8行开始直到结尾，此代码将起作用。

 Dim wks as Worksheet Set wks = Sheets("RMA") With wks Dim RowCount as Long RowCount = .Range("B8").End(xlDown).Row + 1 .Cells(RowCount,1) = invoiceNumber .Cells(RowCount,2) = customerRef ...