as title
我有4个sheet
分别是sheet1,sheet2,sheet3,sheet4
每个sheet的前6个字段都相同，今天我想要使用VBA来做一个autofilter
原本code如下
sub filter_top()
call filter("Alice")
end sub
sub filter(optional byref user as string = "Tommy")
Dim sht as WorkSheet
for each sht in ThisWorkBook.sheets
With sht
With Row(2)
.AutoFilter Field:=6 Criteria1:=user VisiableDropDown:=True
End With
End With
next
end sub
然后我就发现有些sheet是正常的，有些是失败的
我很确定每个sheet的资料都一样
如果我把内部改为
.Row(2).AutoFilter Field:=6 Criteria1:=user VisiableDropDown:=True
这样就可以，所以我不能with内部再包with吗？
再麻烦高手教学一下了，感谢
如果还有需要什么补充，再请跟我说