2016-11-21 138 views
0

我需要将C10中的单元格内容从一个工作表(称为“新客户”)复制到另一个工作表(称为“库存”)下一个可用行。将单元格复制到另一个工作表并自动填充复制的单元格10次

一旦单元格被复制,它应该被复制或自动填充10次。因此,清单表中的10行具有相同的客户ID填充。

注意:这个宏将被多次运行,并且它应该总是填充“Inventory”表中的任何下一个可用的10行。 我还没有弄清楚自动填充部分。这就是我需要你的帮助的地方,剩下的就是它应该做的。有想法该怎么解决这个吗?

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 

回答

2

试试这个(它取代所有的本次代码)

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

辉煌!是的,这工作得很好。谢谢@SJR –

相关问题