返回列表 上一主題 發帖

[發問] 篩選的語法

回復 1# PJChen
可以用要篩選的欄位名稱找出位置,來取代固定的位置
Sub ex()
For Each a In Range("a1:M1")
    If a = "欄位名稱" Then Exit For
Next
  Selection.AutoFilter Field:=a.Column, Criteria1:=2
End Sub

TOP

回復 4# PJChen
要篩選的欄位名稱重複,如可知道是用第幾個做篩選可加個計數

Sub ex()
x=0
For Each a In Range("a1:M1")
     If a = "欄位名稱" Then x=x+1
       If x = 第幾個名稱 Then Exit For
Next
   Selection.AutoFilter Field:=a.Column, Criteria1:=2
End Sub

TOP

        靜思自在 : 【行善要及時】行善要及時,功德要持續。如燒開水一般,未燒開之前千萬不要停熄火候,否則重來就太費事了。
返回列表 上一主題