Sub lsy()
Application.ScreenUpdating = False
With Sheets(1)
For i = 2 To Range("B65536").End(xlUp).Row
Sheets(2).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = .Cells(i, "A")
Next
End With
Application.ScreenUpdating = True
End Sub
复制到宏代码里面就OK