[已解决]依次复制黏贴到固定地方，满足同一条件停止

诚信740

依次复制黏贴到固定地方，满足同一条件停止，怎样精简代码，修改代码？谢谢！
[a1:a30].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a2:a31].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a3:a32].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a4:a33].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a5:a34].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a6:a35].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a7:a36].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a8:a37].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
[a9:a38].Copy [h3]      如果：MAX（N3：R32）〉=22 停止
......
......
[a83:a112].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a84:a113].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a85:a114].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a86:a115].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a87:a116].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a88:a117].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a89:a118].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a90:a119].Copy [h3]    如果：MAX（N3：R32）〉=22 停止
[a91:a120].Copy [h3]    如果：MAX（N3：R32）〉=22 停止

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-20 09:30

1. Sub aaa()
   
2. Dim i&
   
3. For i = 1 To 91
   
4.   Cells(i, 1).Resize(30).Copy [h3]
   
5.   If Application.Max([n3:r32]) >= 22 Then Exit For
   
6. Next i
   
7. End Sub

复制代码

跳转到最佳答案楼层

砂海

思路是反的吧 , if max()>=22 then [上一个] .copy [h3]
只 copy 一次

诚信740

砂海 发表于 2017-7-19 19:26
思路是反的吧 , if max()>=22 then [上一个] .copy [h3]
只 copy 一次

思路没有反，应该是先copy，再判断。谢谢您！

大灰狼1976

1. Sub aaa()
   
2. Dim i&
   
3. For i = 1 To 91
   
4.   Cells(i, 1).Resize(30).Copy [h3]
   
5.   If Application.Max([n3:r32]) >= 22 Then Exit For
   
6. Next i
   
7. End Sub

复制代码