VBA数组 商品按分公司名称输入到各个表中

laoau138

VBA数组  商品按分公司名称输入到各个表中

wanao2008

请测试：

1. Sub wanao()
   
2.     Dim x, a, i
   
3.     For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
4.         a = Cells(x, 1)
   
5.         i = Sheets(a).Range("A65536").End(xlUp).Row + 1
   
6.         Range("B" & x & ":E" & x).Copy Sheets(a).Range("A" & i & ":E" & i)
   
7.     Next
   
8. End Sub

复制代码