根据特定内容选择复制

cb_clx

如附件内容，根据表一的单元格内容，将表二中符合的内容复制到表一中指定位置。
请路过的老师帮忙解答一下。谢谢！

大灰狼1976

1. Sub test()
   
2. With Sheets(2)
   
3.   .[a1].CurrentRegion.AutoFilter field:=7, Criteria1:=Sheets(1).[a1]
   
4.   .Range("a2:l" & .Cells(Rows.Count, 1).End(3).Row).Copy Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1)
   
5.   .[a1].CurrentRegion.AutoFilter
   
6. End With
   
7. End Sub

复制代码

cb_clx

大灰狼1976 发表于 2020-5-12 20:33

试了一下，结果把sheet2中所有内容都拷贝到sheet1中了，我只想复制S02机型所对应的内容。请老师再帮忙优化下。谢谢。

大灰狼1976

我这边测试OK，附件你再试下。

金樽空对月

cb_clx 发表于 2020-5-12 21:42
试了一下，结果把sheet2中所有内容都拷贝到sheet1中了，我只想复制S02机型所对应的内容。请老师再帮忙优 ...

1. Sub mycopy()
   
2. Dim x, y, n
   
3. For x = 2 To Sheet2.Range("a30000").End(3).Row
   
4.   If Sheet2.Cells(x, 7) = Sheet1.[a1] Then
   
5.     n = x
   
6.     y = y + 1
   
7.   End If
   
8. Next
   
9. Sheet2.Range(Cells(n, 1), Cells(n - y + 1, 12)).Copy Sheet1.Range("a30000").End(3).Offset(1, 0)
   
10. End Sub
    

复制代码

cb_clx

金樽空对月 发表于 2020-5-12 22:26

谢谢，已解决！

cb_clx

金樽空对月 发表于 2020-5-12 22:26

谢谢，已解决！