VBA Counties over 500k Rows

Question

私は大きなテーブルをピボットテーブルに入れましたが、ユニークなカウントを取得したいので、1の側にヘルパーカラムを設定しようとしています/ユニークカウント、ピボット、それは私が持っている式はバック1に要約して：（B2：B460489、B2、I2：I460489、I2）

1/COUNTIFS

これは動作するはずですが、以来私は計算するために年齢を取っているほぼ500kの行を持っています。私はVBAで計算をやろうとしていましたが、速くなることを期待していましたが、終了する前に10分以上かかりました。

この計算を管理しやすくするにはどうすればよいですか？

配列を使用するという考えに基づいて、テーブル内の各行について、ストア/製品がテーブル全体で何回発生したかを知る必要があるため、以下のコードをダブルループを使用して作成しました。まだまだ遅いですが、それをより効率的にすることは可能でしょうか？

arr = Sheets("Data").Range("A2:AH" & lr) 

ReDim Arr2(UBound(arr) - 1, 0) 

For i = LBound(arr) To UBound(arr) 
    Ans = 0 
    For j = LBound(arr) To UBound(arr) 
     If arr(j, 2) = arr(i, 2) And arr(j, 9) = arr(i, 9) Then 'And arr(j, 33) = 1 Then 
      Ans = Ans + 1 
     End If 
    Next j 
    If Ans > 0 Then 
     arr(i, 34) = 1/Ans 
     Arr2(i - 1, 0) = arr(i, 34) 
    End If 
Next i 

Sheets("Data").Range("AH2:AH" & lr) = Arr2 

Answer 1

これを達成するために配列を使用する方法の例。私はあなたが記述したものに似た4列を使用しましたが、正確ではないので少し変更する必要があります。何が起こっているのかをより明確に説明できる場合は、必要に応じてこれをあなたの問題に正確に反映させることができます。

Option Explicit 
Sub Example() 
    Dim ans As Integer, i As Integer 
    Dim arr() as variant 

    arr = Range("B2:J8") 

    For i = LBound(arr) To UBound(arr) 
     If arr(i, 2) = 1 And arr(i, 9) = "Fruit" Then 
      ans = ans + 1 
     End If 
    Next i 

    If ans > 0 Then 
     MsgBox 1/ans 
    Else 
     MsgBox "Division by 0 error" 
    End If 
End Sub 

このコードは、あなたがあなたに合わせて範囲を変更する必要があります（配列にあなたの範囲を設定します。私は、他の計算の場合には、配列の中にあなたの全体のusedrangeを置くことをお勧めしたいですあなたがしたいと思うもの）。 if条件に一致する場合、配列の各エントリをテストします。カウントに1を加算します。