Excel里如何多次重复执行同一个宏

不可以这样写 宏名是来不能用变量调用的源.
可以用下面的方式来实百现你的目的
Sub Macro1()
Dim i As Integer
For i = 1 To 5
Select Case i
Case Is = 1
宏名度
Case Is = 2
宏名
Case Is = 3
宏名
Case Is = 4
宏名
Case Is = 5
宏名
End Select
Next i
End Sub

新建一个过程 比如百SUB A()
在里面 用CALL调用要度指定的那个宏过程版B
代码权如下
SUB A()
CALL B
CALL B
END SUB

如果是多次，加一个FOR循环即可,比如运行10次B过程
SUB A()
for i=1 to 10
CALL B
next
END SUB
重复某项任务，可以用宏自动执行该任务
可惜，a 对 b是什么，不明白。

Sub Macro2()
Dim MBWJLJ As String '目标文件路劲
Dim MBWJNC As String '目标文件名称
Dim MBWJSH As String '目标工作表
Dim HZWJNC As String '汇总文件名称
Dim HZWJSH As String '汇总工作表
Dim I As Integer '循环自然自然数
Dim K As Integer '循环自然自然数
Dim MBWJS As Integer '目标文件数
Dim HS As Integer '目标工作表行数
Dim LS As Integer '目标工作表列数
Dim H As Integer '循环自然自然数
Dim L As Integer '循环自然自然数

HZWJNC = ActiveWorkbook.Name '汇总表文件名
HZWJSH = ActiveSheet.Name '汇总表表名
MBWJS = 5 '假若参加汇总目标文件数是5个,如果你的文件数是几,5就改成几
HS = 10 '假若参加汇总目标文件表中的行数是10行,如果你的表行数是几,10就改成几
LS = 10 '假若参加汇总目标文件表中的列数是10列,如果你的表列数是几,10就改成几
K = 1
MBWJLJ = ActiveWorkbook.Path & "\"

'上面是目标文件路径e79fa5e98193e78988e69d83333
'下面开始循环

For I = 1 To MBWJS
MBWJNC = "L" & 201310000 + I & ".xlsx"
Workbooks.Open Filename:=MBWJLJ & MBWJNC
Sheets("Sheet1").Select
MBWJSH = ActiveSheet.Name
For H = 1 To HS
For L = 1 To LS
Workbooks(HZWJNC).Sheets(HZWJSH).Cells(H + K, L) = Workbooks(MBWJNC).Sheets(MBWJSH).Cells(H + 1, L)
Next L
Next H
K = K + H - 1
Workbooks(MBWJNC).Close
Windows(HZWJNC).Activate
Next I

End Sub