我希望使用vba删除与excel中特定列值匹配的所有行，但遇到错误

一些修复：

Sub Delete_Rows()

Dim lo As ListObject 
Dim ActiveSheet As String
Dim wkbSource As Workbook

Application.ScreenUpdating = False

Set wkbSource = Workbooks.Open("C:\Users\nani\Desktop\11.0\deleteRows\abc.xlsx")

Set ActiveSheet = wkbSource.Sheets("LIST")

'perform delete

Set lo = ActiveSheet.ListOjects(1)

lo.Range.AutoFilter Field:=12, Criteria:="" Or "claimed"

Application.DisplayAlerts = False

lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

Application.DisplayAlerts = True

wkbSource.Close SaveChanges:=True

End Sub

子删除_行（）
作为ListObject的Dim lo
Dim ws As WORKEM“错误消息的文本是什么，在哪一行代码？在第7行说编译器错误：需要项目哪一行是第7行？我还想检查另外两列13和14，需要删除所有满足所有3列条件的行第7行：Set-ActiveSheet=wkbSource.Sheets（“列表”）是否正确？lo.Range.AutoFilter字段：=12，准则1:=“=”，uu运算符：=xlOr，uuu准则2:=“声明”lo.Range.AutoFilter字段：=13，准则3:=“=”，uuu.Range.AutoFilter字段：=14，准则1:=“=”，“没有
Criteria3
-这应该是
Criteria1
第9行设置lo=ws.ListObjects（1）”下标超出范围该表上没有listobject/表吗？
Sub Delete_Rows()

Dim lo As ListObject 
Dim ws As Worksheet '<<<<<<
Dim wkbSource As Workbook

Application.ScreenUpdating = False

Set wkbSource = Workbooks.Open("C:\Users\nani\Desktop\11.0\deleteRows\abc.xlsx")

Set ws = wkbSource.Sheets("LIST")

Set lo = ws.ListObjects(1)  '<< typo

'fixed...
lo.Range.AutoFilter Field:=12, Criteria1 := "=", _
                           Operator := xlOr, _
                           Criteria2 := "claimed"

Application.DisplayAlerts = False

lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

Application.DisplayAlerts = True

wkbSource.Close SaveChanges:=True

End Sub