[已解决]条件复制行内容

雨玥

请教：按工作表“复制条件”中B列（B3往下）的条件和C列（C3往下）需要复制的行数，将“原始数据”表中找到的一行的内容（在"原始数据“表的C列中查找）复制到工作表“结果表”中。效果在“结果表”中。谢谢各位。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-8 20:55

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, rng As Range, n&, i&
   
3. arr = Sheet2.[b3:c5]
   
4. Sheet1.Activate
   
5. [a2:g2].Copy Sheet3.[a2]
   
6. For i = 1 To UBound(arr)
   
7.     Set rng = Columns(3).Find(arr(i, 1))
   
8.     n = Sheet3.Range("a65536").End(xlUp).Row + 1
   
9.     If Not rng Is Nothing Then Cells(rng.Row, 1).Resize(arr(i, 2), 7).Copy Sheet3.Cells(n, 1)
   
10. Next
    
11. Sheet3.Activate
    
12. End Sub
    

复制代码

dsmch

………………

雨玥

dsmch 发表于 2014-4-8 20:55
………………

完成达到我的预想。真是太感谢啦！我明天的工作时间可以减轻很了。再次感谢老师的不吝赐教！！！