Sub test()
'拆分数据
Dim sht As Worksheet
Dim i, k, icolumn, irow As Integer
Dim sname As String
sname = InputBox("请输入待分列表名")
icolumn = InputBox("按第几列进行分列")
For i = 2 To Sheets(sname).Cells(65536, 1).End(xlUp).Row
k = 0
For Each sht In Sheets
If sht.Name = Sheets(sname).Cells(i, icolumn) Then ----------这块报错
k = 1
End If
Next
If k = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(sname).Cells(i, icolumn)
End If
Next