эээ..нет,я просто его прикрепил

Михаил, что вы присылаете?) у меня открывается набор файлов и папок. Так что если вам не трудно, напишите код сюда.  
 
А лучше,если можно, отредактируйте вот этот мой, чтобы он был правильным, то есть работал и проверял на совпадения.  
 
 
Sub Test()  
 
Dim a()  
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 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  
 
   
         
End Sub

"про проверку на совпаденияю Объясню подробнее. Я должен создать тест. Я написал код, который выбирает случайным образом из списка названия элементов. Но элементы могут повторятся, этого не должно быть. Мне нужен код,который проверял бы столбец, ну или массив,не знаю как правильнее сказать, на то,есть ли одинаковые ячейки, и если есть, то заменить эту ячейку на другую случайную. Надеюсь, объяснил нормально("  
 
я ответил на вопрос

RAN, вы пишете  
For Each aa In a  
что есть "аа"? как её обозначить?

остальные 80 не имекют значения. мне выбранные 20 интересны. чтобы в них не было повтора

эм...ну смотрите,я делаю тест) и случайным образом выбираю из списка элементов 20 штук. И они НЕ должны повторяться. То есть в столбике не должно быть повторений

Друзья,многофбукофф и если я правильно понимаю, не по моей теме) я так и не получил на ответ на свой последний вопрос, про проверку на совпадения. Я не понимаю,какие действия и какие команды нужны, просьба, написать в подробностях и понятно)

спасибо за подсказки, он хотя бы перестал ругаться на неправильность кода)  
 
про проверку на совпаденияю Объясню подробнее. Я должен создать тест. Я написал код, который выбирает случайным образом из списка названия элементов. Но элементы могут повторятся, этого не должно быть. Мне нужен код,который проверял бы столбец, ну или массив,не знаю как правильнее сказать, на то,есть ли одинаковые ячейки, и если есть, то заменить эту ячейку на другую случайную. Надеюсь, объяснил нормально(

а можно по-понятнее и по-подробнее? я в vba новичок

Создаю тест в 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)"    
почему и как исправить?  
 
 
прилагаю файл, со всей инфой