Private Sub CommandButton1_Click()
    On Error Resume Next
    Dim i%, j%
    For i = 1 To [A65536].End(xlUp).Row
        For j = 2 To Sheets.Count
            If Cells(i, 1) = Sheets(j).Name Then
                Exit For
            End If
        Next
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = Cells(i, 1)
    Next
End Sub

具体点呢？？

可以具体点吗？

具体点呢？？

可以具体点吗？