Question

我需要将C10中的单元格内容从一张表（称为“新客户”）复制到另一张表（称为“库存”）下一行可用行。

复制单元格后，应将其复制或自动填充10次。因此，清单表中的10行具有相同的客户ID。

注意：此宏将多次运行，并且应该始终使用下一个可行的10行填充“Inventory”表。我还没想出Autofill部分。这就是我需要你帮助的地方，剩下的就是应该做的。关于如何解决这个问题的任何想法？

Sub copyCustomer()
'copy customer ID into inventory sheet. Then autofill inventory 10 times.
'need for this to OFFSET to add a new customer next time macro is ran. 
    Set Source = Sheets("New Customers")
    Sheets("New Customers").Select
    Range("C10").Select
    Selection.Copy
    Sheets("Inventory").Select
    Range("B" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
   'Autofill this 10 times
End Sub

Answer 1

试试这个（取代所有现有代码）

Sub copyCustomer()
    Sheets("New Customers").Range("C10").Copy Sheets("Inventory").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(10)
End Sub

复制单元格inot另一个工作表并自动填充复制的单元格10次

1 个答案: