在Excel中使用VBA时，如何遍历列并基于单元格值创建新工作表？

Sub CreateNewSheets()
    Dim ws As Worksheet
    Dim newSheet As Worksheet
    Dim cell As Range
    
    ' 设置要遍历的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你要遍历的工作表名称
    
    ' 遍历列A中的每个单元格
    For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        ' 获取单元格的值
        Dim cellValue As String
        cellValue = cell.Value
        
        ' 创建新的工作表
        Set newSheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        newSheet.Name = cellValue ' 使用单元格的值作为新工作表的名称
        
        ' 在新工作表中进行其他操作，例如填充数据等
        ' ...
    Next cell
End Sub