VBA创建新工作簿并在内按要求创建新表

roych

我也来试试吧：
第一次写VBA，不好的地方多多指教。
Sub SheetsAdd()
'计算非空单元格个数，获取需要增加的工作表
SheetCount = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A"))
For i = 1 To SheetCount - 1
'增加表
Sheets.Add after:=Sheets(i)
Next i
For i = 1 To SheetCount
'提取Sheet1的单元格数值命名表
Sheets(i).Name = Sheets(1).Range("A" & i).Value
Next i
End Sub