关于拆分多表的问题

长风破浪091

Sub chaifenshuju()

Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer
Dim l As Integer
Dim sht0 As Worksheet

Set sht0 = ActiveSheet

l = InputBox("请输入你要按第几列列分")

Application.DisplayAlerts = False
If Sheets.Count > 1 Then
    For Each sht1 In Sheets
        If sht1.Name <> sht0.Name Then
            sht1.Delete
        End If
    Next
End If
Application.DisplayAlerts = True

irow = sht0.Range("a65536").End(xlUp).Row

For i = 9 To irow
    k = 0

    For Each sht In Sheets
        If sht.Name = sht0.Cells(i, l) Then
            k = 1
        End If
    Next

      If k = 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = sht0.Cells(i, l)   
    End If

Next

For j = 2 To Sheets.Count
    sht0.Range("a1:ahz" & irow).AutoFilter Field:=l, Criteria1:=Sheets(j).Name
    sht0.Range("a1:ahz" & irow).Copy Sheets(j).Range("a1")
Next

sht0.Range("a1:ahz" & irow).AutoFilter

sht0.Select

MsgBox "已处理完毕"

End Sub

各位老师，我想以A列为表名拆分总表，但是以上代码在运行的时候总是提示黄色部分对象定义错误，最后能倒是能生成以A列为表名的分表，但是数据无法拷贝进去

microyip

如果没猜错，sht0.Cells(i, l)出错的地方是空的