从 Excel 中的列表创建多个工作表 VBA处理

Sub fromListCreateSheets()

Dim i As Long
Dim Addc As Long
Dim Addr As Long
Dim n As Long
Dim MySheet As Worksheet

Addc = ActiveCell.Column
Addr = ActiveCell.Row
i = 0
Set MySheet = ActiveSheet

Do

n = Addr + i

If MySheet.Cells(n, Addc) <> "" Then

Sheets.Add after:=ActiveSheet
ActiveSheet.Name = MySheet.Cells(n, Addc).Value

Else: If MySheet.Cells(n, Addc) = "" Or i > 100 Then Exit Do

End If

i = i + 1

Loop
End Sub

将光标放在此处

运行此VBA就可以得到所列举的表名