Question

我有一个宏从一张纸上获取数据并将其放入另一张纸（RMA）。它会自动在前一行下创建一个新行。但是，RMA表中的列A中包含数据，宏查看列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

尝试下面的内容。可能更容易阅读和更快，因为它不conf.echo = false任何对象，但直接与它们一起工作。如果B列中没有空白单元格，从第8行到结束，此代码可以正常工作。

select

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

1 个答案: