excel - Excel VBA If Then ループ条件

Question

私はこれに数日間苦労しています。どんな助けでも大歓迎です！

説明するのは難しいので、頑張って説明します。

私がやろうとしているのは、各クエリの結果の数を数え、その結果の数に基づいて分類することです。

たとえば、Query_A に 1 つの正確な結果があり、次に Query_Z に 1 つの正確な結果がある場合、1 つの結果を持つ合計 2 つのクエリになります。

現在、if then ステートメントでループを使用しようとしていますが、途方に暮れています。

Query_Example_Data_and_Results.xlsx - これは数千行のデータと非常に大きなファイル サイズであるため、実際のスプレッドシートではありません。

以下のコードは、クエリ カウントをプルします (クエリの重複を削除します) が、クエリ結果のカウントは提供しません。私が正しい方向に舵を切るのに十分明確であることを願って失敗した試み。

Sub Query_Count()

G_40 = 0

Query = ""

Application.StatusBar = " ~~ ~~ QUERY COUNT ~~ RUNNING ~~ ~~ " & x

x = 2

Do Until Sheets(1).Cells(x, 1) = ""

    If Sheets(1).Cells(x, 9) = "Yes" Then
    If Query <> Sheets(1).Cells(x, 1) Then
        G_40 = G_40 + 1
    End If
    End If
    Query = Sheets(1).Cells(x, 1)

x = x + 1

Loop

Application.StatusBar = "DONE RUNNING QUERY COUNT OF " & x & " ROWS!"

G = 40
Sheets(3).Cells(G, 7) = G_40 'query_count:

End Sub

前もって感謝します！