Question

excel vba 应用程序定义或对象定义错误

代码如下

Sub SimpleFilter()
Dim strAddress As String
strAddress = ActiveCell.CurrentRegion.Address
Worksheets("Sheet1").Range(strAddress).AutoFilter Field:=3, Criterial:="=10"
MsgBox (strAddress)
End Sub

Answer 1

Sub SimpleFilter()
Dim strAddress As String
strAddress = ActiveCell.CurrentRegion.Address
Dim rng As Range
Set rng = Worksheets("Sheet1").Range(strAddress)
If Worksheets("Sheet1").AutoFilterMode Then Worksheets("Sheet1").AutoFilterMode = False
rng.AutoFilter
rng.AutoFilter Field:=3, Criteria1:="=10"
Set rng = Nothing
MsgBox (strAddress)
End Sub

Answer 2

Sub SimpleFilter()
Dim strAddress As String
strAddress = ActiveCell.CurrentRegion.Address
Worksheets("Sheet1").Range(strAddress).AutoFilter 3, "=" & 10
MsgBox (strAddress)
End Sub

Answer 3

Criteria1这里是数字1，不小写字母l

Answer 4

vba代码调试解决