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嗎？
再麻煩高手教學一下了，感謝
如果還有需要什麼補充，再請跟我說