请教：我想把这段宏重复执行100次该怎么写

58976104

Sub 宏1()
Dim i%
Range("J2:M10000").ClearContents
For i = 2 To 101
    Range("C1,E1,G1,h1").Select
    Range("E1").Activate
    Selection.Copy
    Cells(i, 10).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
    Range("J1:M1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Cells(Rows.Count, "p").End(xlUp)(2, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Range("h9").Select
End Sub

shiruiqiang

想执行的宏前面再加上循环for x=1 to 100

ykcbf1100

你这个宏明显就是录制宏。录制的宏并不高效。用数组重写一个为好。

58976104

ykcbf1100 发表于 2024-4-7 20:20
你这个宏明显就是录制宏。录制的宏并不高效。用数组重写一个为好。

目前的水平只能看个半懂简单代码，不会写，所以录制的，谢谢指导！

58976104

shiruiqiang 发表于 2024-4-7 20:20
想执行的宏前面再加上循环for x=1 to 100

不好意思，我是个小白，能不能帮我写个示例出来，谢谢！

58976104

感谢各位的提醒，到处百度，自己写了个循环可以正常执行，谢谢！

没见过，想死都想不出来

Sub cf()

Dim x%

Do
x = x + 1
Call 宏1
Loop Until x = 100
End Sub

58976104

谢谢各位，到处找资料已经处理完了，没见过头都想破了。

Sub cf()

Dim x%

Do
x = x + 1
Call 宏1
Loop Until x = 100

End Sub

yjh_27

58976104 发表于 2024-4-7 21:11
不好意思，我是个小白，能不能帮我写个示例出来，谢谢！

1. Sub 宏2()
   
2. For i = 1 To 100
   
3.     call 宏1
   
4. Next
   
5. End Sub

复制代码

58976104

yjh_27 发表于 2024-4-8 00:38

谢谢大神，加强学习中。