Sub GetSheetList()
Dim sht As Object '// sheet
Dim s As String '// 追加sheet名
Dim i As Long '// loop count
'// 追加sheet
Call Sheets.Add(After:=Sheets(Sheets.Count))
s ="AddSheet"
ActiveSheet.Name = s
ActiveSheet.Activate
ActiveSheet.Range("A1").Select
'// loop wo
获取当前sheet列表Sub GetSheetList() Dim sht As Object '// sheet Dim s As String '// 追加sheet名 Dim i As Long '// loop count '// 追加sheet Call Sheets.Add(After:=Sheets(Sheets.Count)) s = "AddSheet"