VBA ::範囲の結果を配列に渡す

Question

現在、VBAの検索機能を使用して検索範囲から結果を取得し、セル位置のアドレスを配列に入力します。

私は以下のコードで配列を設定しようとしました。

Dim FindRange1 as Range 
Dim Find1 as Range 
Dim Results1() as Variant 
Dim R1 as integer 
Dim Max as integer 

Max = Range("E7:E1000").Cells.Count 

     Set FindRange1 = Worksheets("Properties").Range("P7:P1000") 
      If ILsearch.P1B1.Value = True Then 
       For R1 = 1 To Max 
        For Each Find1 In FindRange1 
         If (Find1.Value < TextBox1) And (Find1.Value > "0") Then 
          Results1(R1) = Find1.Address 
         End If 
        Next Find1 
       Next R1 
      End If 

Answer 1

アレイの寸法を設定する必要があります。

redim Results1(Max) '//this will leave an empty Results1(0) 

0インデックスを使用する方がよい。

redim Results1(Max-1) 
... 
Results1(R1 - 1) = Find1.Address 

これはあなたの基準を満たす唯一のインデックスが満たされている「ギャップ」を持つ配列を作成していることに注意してください。