求助,多单元格复杂复制

lqwld

大侠们,求助
比如在sheet1里的A列是识别列
当A列的值1时，就想相对应行中D列的数据复制到sheet“1”中
以此类推

负责多单元格复制.zip (6.4 KB, 下载次数: 8)

2013-4-15 08:54 上传

点击文件名下载附件

grf1973

1. Sub tt()
   
2.     For i = 1 To [a65536].End(3).Row
   
3.         sname = Cells(i, 1).Text
   
4.         With Sheets(sname)
   
5.             xr = .[d65536].End(3).Row + 1
   
6.             If .[d1] = "" Then xr = 1
   
7.             .Cells(xr, 4) = Cells(i, 4)
   
8.         End With
   
9.     Next
   
10. End Sub
    

复制代码

请看附件。

lqwld

grf1973 发表于 2013-4-15 16:03
请看附件。

谢谢grf1973 就是这个效果