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 

請注意，這是創建一個「空白」的數組，其中只有滿足您的條件的索引被填充。