[已解决]如何把录制的宏，重复复制粘贴。

hzxuan

求助：如何用012工作表中录制的宏过行复制粘贴后，使007表格和092表格能和012表格一样自动筛选复制到相应的表格中？我自己复制粘贴了，可是总是只有第一个段宏运行的表格行，别的就不行了。
     详见附件。

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-3-3 18:43

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. '
   
5. '
   
6.     Sheets("一月").Select
   
7.     Selection.AutoFilter
   
8.     ActiveSheet.Range("$A$1:$H$167").AutoFilter Field:=3, Criteria1:="012"
   
9.     Range("A1:H168").Select
   
10.     Selection.Copy
    
11.     Sheets("012").Select
    
12.     ActiveSheet.Paste
    
13.    
    
14.     Sheets("一月").Select
    
15.     Selection.AutoFilter
    
16.     ActiveSheet.Range("$A$1:$H$167").AutoFilter Field:=3, Criteria1:="007"
    
17.     Range("A1:H168").Select
    
18.     Selection.Copy
    
19.     Sheets("007").Select
    
20.     ActiveSheet.Paste
    
21.    
    
22.     Sheets("一月").Select
    
23.     Selection.AutoFilter
    
24.     ActiveSheet.Range("$A$1:$H$167").AutoFilter Field:=3, Criteria1:="092"
    
25.     Range("A1:H168").Select
    
26.     Selection.Copy
    
27.     Sheets("092").Select
    
28.     ActiveSheet.Paste
    
29.    
    
30.    
    
31.     Application.CutCopyMode = False
    
32. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

再录一次粘贴到007，092的。直接改代码也是可以的。

那么的帅

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. '
   
5. '
   
6.     Sheets("一月").Select
   
7.     Selection.AutoFilter
   
8.     ActiveSheet.Range("$A$1:$H$167").AutoFilter Field:=3, Criteria1:="012"
   
9.     Range("A1:H168").Select
   
10.     Selection.Copy
    
11.     Sheets("012").Select
    
12.     ActiveSheet.Paste
    
13.    
    
14.     Sheets("一月").Select
    
15.     Selection.AutoFilter
    
16.     ActiveSheet.Range("$A$1:$H$167").AutoFilter Field:=3, Criteria1:="007"
    
17.     Range("A1:H168").Select
    
18.     Selection.Copy
    
19.     Sheets("007").Select
    
20.     ActiveSheet.Paste
    
21.    
    
22.     Sheets("一月").Select
    
23.     Selection.AutoFilter
    
24.     ActiveSheet.Range("$A$1:$H$167").AutoFilter Field:=3, Criteria1:="092"
    
25.     Range("A1:H168").Select
    
26.     Selection.Copy
    
27.     Sheets("092").Select
    
28.     ActiveSheet.Paste
    
29.    
    
30.    
    
31.     Application.CutCopyMode = False
    
32. End Sub

复制代码

ppp710715

路过，学习了，谢谢！！！！

hzxuan

学习了，谢谢，操作了好多次，终于有点会了！

q953325

作为江湖上有头有脸的人物，我很低调，但顶帖我很慎重。名气是大家给的，地位是兄弟拼的，要对大家负责任！楼主的帖的确不错！我代表江湖上所有的兄弟姐妹给你顶上去！你接下来收到的所有回帖都是我安排他们顶你的。我为人就两个字“低调”！你知道就行了！

q953325

作为江湖上有头有脸的人物，我很低调，但顶帖我很慎重。名气是大家给的，地位是兄弟拼的，要对大家负责任！楼主的帖的确不错！我代表江湖上所有的兄弟姐妹给你顶上去！你接下来收到的所有回帖都是我安排他们顶你的。我为人就两个字“低调”！你知道就行了！

q953325

作为江湖上有头有脸的人物，我很低调，但顶帖我很慎重。名气是大家给的，地位是兄弟拼的，要对大家负责任！楼主的帖的确不错！我代表江湖上所有的兄弟姐妹给你顶上去！你接下来收到的所有回帖都是我安排他们顶你的。我为人就两个字“低调”！你知道就行了！

q953325

作为江湖上有头有脸的人物，我很低调，但顶帖我很慎重。名气是大家给的，地位是兄弟拼的，要对大家负责任！楼主的帖的确不错！我代表江湖上所有的兄弟姐妹给你顶上去！你接下来收到的所有回帖都是我安排他们顶你的。我为人就两个字“低调”！你知道就行了！