Создаю тест в VBA. есть несколько вопросов    
1)первый, как написать код,который проверял бы массив на совпадения?    
2)Sub Test()    
Dim a(1 To 1, 1 To 5)    
Dim x As Integer    
Dim y As Integer    
Dim z As Integer    
Dim i As Integer    
Dim m As Integer    
 
For i = 2 To 21    
x = Int((108 * Rnd) + 2)    
y = Int((108 * Rnd) + 2)    
z = Int((108 * Rnd) + 2)    
m = Int((108 * Rnd) + 2)    
 
ReDim Preserve a(1 To i, 1 To 5)    
a(i, 1) = Cells(x, 1)    
a(i, 2) = Cells(x, 2)    
a(i, 3) = Cells(y, 2)    
a(i, 4) = Cells(z, 2)    
a(i, 5) = Cells(m, 2)    
 
Next i    
MsgBox (a(1, 1))    
 
End Sub    
 
собственно вот написаный мной код, но эксель ругается на строчку " ReDim Preserve a(1 To i, 1 To 5)"    
почему и как исправить?  
 
 
прилагаю файл, со всей инфой