您可以使用以下VBA代码一次性生成100个工作表,并将它们命名为单元格名称:
```
Sub CreateSheets()
Dim wb As Workbook
Set wb = ThisWorkbook '替换为您要操作的工作薄
Dim i As Integer
For i = 1 To 100 '生成100个工作表
Dim sheetName As String
sheetName = wb.Sheets("Sheet1").Cells(i, 1).Value '替换为您要生成工作表的单元格范围
If sheetName <> "" Then '如果单元格不为空,则创建工作表并命名
Dim newSheet As Worksheet
Set newSheet = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
newSheet.Name = sheetName
End If
Next i
End Sub
```
请注意,这段代码假设您要在当前工作薄中的名为“Sheet1”的工作表中生成100个工作表。如果您要在其他工作表中生成工作表,请替换代码中的工作表名称和单元格范围。另外,您可以根据需要更改单元格范围和生成工作表的数量。