返回列表 上一主題 發帖

篩選問題

回復 1# spermbank
  1. Sub nn()
  2. Dim A As Filter
  3. With Sheet1
  4.    For Each A In .AutoFilter.Filters
  5.       If A.On Then .ShowAllData
  6.    Next
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題