VBA根据A列中的数据将Excel工作表拆分为其他工作表

Sub SplitWorksheets()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取当前活动工作表
    Set ws = ActiveSheet
    
    ' 获取A列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历A列中的每个值
    For i = 1 To lastRow
        ' 创建新的工作表
        Set newWs = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        
        ' 将当前行的数据复制到新的工作表
        ws.Rows(i).Copy newWs.Rows(1)
        
        ' 重命名新的工作表为当前行的值
        newWs.Name = ws.Cells(i, "A").Value
    Next i
End Sub