如何使用vba通過逐個使用過濾值來過濾一組數據

Question

因此，我試圖編寫一個可以過濾一組數據的VBA代碼。假設我有excel中的數據，通過列A到G，我希望我的過濾器在列C中執行操作。現在列C包含像6獨特的值。我想知道如何通過C中的值逐個篩選數據。基於索引的某種循環和選擇是我想要的。

Answer 1

Sub GetUniqueAndCount() 
     Dim d As Object, c As Range, k, tmp As String 
     dim LastRow as long 
      LastRow = Worksheets("sheet1").Range("C" & Rows.Count).End(xlUp).Row 
     Set d = CreateObject("scripting.dictionary") 
     set rng = Worksheets("sheet1").Range("C2:C" & LastRow) 
     For Each c In rng 
      tmp = Trim(c.Value) 
      If Len(tmp) > 0 Then d(tmp) = d(tmp) + 1 
     Next c 
     For Each k In d.keys 
      'Write filter code here d(k) 
      'Criteria1:= d(k) 
     Next k 
    End Sub 

如果你想使用具有唯一值的字典，然後嘗試這樣