excel 宏 循环

来源：百度知道 编辑：UC知道 时间：2024/06/13 23:07:56
以下是我录制的宏，它只处理了二个工作表（0501，0502），如何编成循环语句，实现0501-0530的工作表处理。
Sub Macro3()
'
' Macro3 Macro
'
' 快捷键: Ctrl+o
Sheets("0501").Select
Range("A3:G7").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("jieguo").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("0501").Select
Range("A13:G17").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("jieguo").Select
Range("H1").Select
ActiveSheet.Paste
Sheets("0502").Select
Range("A3:G7").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("jieguo").Select
Range("A6").Select
ActiveSheet.P

随便改了改，没有验证过，自己试吧

Sub Macro3()
'
' Macro3 Macro
'
' 快捷键: Ctrl+o

for i=1 to 31
b = i + 500
a = "0" & b
Sheets(a).Select
Range("A3:G7").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("jieguo").Select
cells(i*5-4,1).Select
ActiveSheet.Paste
Sheets(a).Select
Range("A13:G17").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("jieguo").Select
cells(i*5-4,8).Select
ActiveSheet.Paste
next i

End Sub