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

В частном случае верхний индекс двумерного массива можно изменить примерно так:  
 
Sub tttt()  
Dim u, l, l1, i, j  
ReDim a(5, 3)  
For i = 0 To 5: For j = 0 To 3: a(i, j) = i & j: Next: Next  
a = WorksheetFunction.Transpose(a)  
l = LBound(a): u = UBound(a): l1 = LBound(a, 2)  
ReDim Preserve a(l To u, l1 To 9)  
a = WorksheetFunction.Transpose(a)  
End Sub  
 
Конкретно Ваш код.  
В первое строке Вы определяете статический массив (Dim a(1 To 1, 1 To 5) )ю Для него ReDim не работает. Что бы можно было изменять размеры, либо Dim a(), а потом по ходу ReDim a(1 to i, 1 to 5), (без Preserve), либо через Transpose, тогда можно и с Preserve/

самое интересное - в примере из первого поста ReDim вообще не нужен.  
автор пытается переопределить размеры массива в цикле 20 раз и в конце концов должен получить массив из 21 строки и 5 столбцов.  
 
проще, правильнее и быстрее написать просто и один раз:  
Dim a(1 To 21, 1 To 5)  
 
 
пс. vikttur'у выписать две премии - за VBA и ежедневное+еженощное дежурство. но - за счёт заведения :)))

"проверял бы массив на совпадения?" - какой массив? Совпадения с чем?  
Задача стандартная, уже столько раз решали... Подход обычно совсем другой.  
По поводу preserve - я стараюсь не использовать. Процесс не из быстрых, если повторять часто, и массив нарастает большой - то уже даже становится заметно...

Поищите "обфускация" :)

Догматизм здесь ни при чем.  
Разбираться в такой записи труднее. Особенно новичкам.  
Не так давно разбирал код календаря, так вот именно такие записи вводили в ступор, заставляя вчитываться в строки и держать в голове логические связи.  
 
Считаю, что лучше все-таки писать прозрачно, да еще и с пустыми строками между блоками  операторов, циклами... Хотя две-три строки типа  
If...: MsgBox  
или  
Sub...: Show...: End Sub  
еще можно одной строкой записать.  
 
P.S. А одуванчика-то ветром унесло :)

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

Danger! This message contains many letters.  
 
 
Hugo )  
 
 
Михаил С., комментарии здесь не при чем.  
 
 
[ikki]>кроме "обфускации", я знаю ещё такое умное слово, как "догматизм" :)
Раз уж мы перешли на "измы" : ) , я тоже скажу - "рационализм".  
 
[ikki]>я часто тоже так пишу.
[ikki]>For i = 0 To 5: For j = 0 To 3: a(i, j) = i & j: Next: Next
Что происходит в голове, когда мы пытаемся прочитать эту строчку? Да тот же Split( string , ":" ). Зачем в пустую напрягать свой мозг?  
 
Вместо того, чтобы сконцентрироваться на логике программы, происходит разбор стоки - отвлечение на мелочи, за которым, нередко, теряется суть.  
 
 
[vikttur]>считаю, что лучше все-таки писать прозрачно
солидарен. Свеженаписанный код, даже такой, читается легко (для автора), но если к нему придется вернуться через некоторый промежуток времени, произойдет все то, что я описал выше, т.е. время на разбор строки + время на понять логику.  
 
 
[ikki]>а вот сейчас вернётся в тему мой тёзка (nerv) и скажет, что - НЕТ! нифига недопустимо.
конечно, скажет : ) Могу даже пример забавный привести.  
Тебе надо сходить в магазин за хлебом. Ты можешь:  
а) просто взять и сходить  
б) идти, подпрыгивая через каждые два шага  
Что выберешь? В варианте б) появляется возможность позабавить прохожих)  
 
Кстати, такой стиль программирования еще называют - говнокод. Это не камень в огород Михаила, а информация в целом.  
 
[ikki]>а кому-то "правильнее" (и он от этого счастлив) написать так:
[ikki]>Set rngFounded=rngGteMyBudemIskat.Find( _
[ikki]>What:=strWhatNamNadoNaiti, _
[ikki]>LookAt:=xlWhole, _
[ikki]>LookIn:=xlPart, _
[ikki]>MatchCase:=True, _
[ikki]>)
сейчас объясню почему. Во-первых, читаемость лучше, во-вторых, сразу видно, какой параметр передаем.  
 
еще существует следующий стиль (если позволит форум)  
Set rngFounded = rngGteMyBudemIskat.Find(What:= strWhatNamNadoNaiti, _  
______________________________________LookAt:= xlWhole, _  
______________________________________LookIn:= xlPart, _  
______________________________________MatchCase:= True)  
 
 
[ikki]>а можно так: Счётчик_Цикла_для_Поиска, [ikki]>Количество_Хрен_знает_чего_Но_ОЧЕНЬ_нужного, [ikki]>Максимальное_количество_Хрен_знает_чего_Но_ОЧЕНЬ_нужного
есть такое понятие как "избыточность"  
 
 
[ikki]>ещё пример - именованные параметры функций, свойств и методов. я пишу:
[ikki]>set c=r.find(what:=s, lookin:=xlpart, lookat:=xlwhole, matchcase:=true)
тот же парсинг в голове. Для этого и придумали визуально наглядную форму записи.  
 
 
[vikttur]>Не так давно разбирал код календаря, так вот именно такие записи вводили в ступор, заставляя вчитываться в строки и держать в голове логические связи.
Это один из возможных вариантов. Другой - нормально оформить код.  
 
 
смысл моей терады - не надо усложнять себе жизнь. Пусть некоторые считают, что им так проще. Как происходит на самом деле, обозначил выше.  
 
За себя скажу: сейчас с однобуквенными переменными не пишу. Счетчик - counter, счетчик строк - rowsСounter (верблюжий стиль, но не в этом суть). Использую оформление. Не объявляю переменные в одной строке через запятую. Забыл о существовании двоеточия для записи в одну строку. Одно строчный If  использую крайне редко, исключительно в тех местах, где он очевиден, например, перед End Sub : ) Использую "отступы вложенности", "отступы отделения логических блоков". Комментарии - наше все )

{quote}{login=nerv}{date=27.05.2012 01:43}{thema=Re: }{post}[Михаил С]> Слова Row и Column служебные, их использовать в качестве имен переменных нельзя
 
с чего вы взяли? ){/post}{/quote}Скажем более мягко - не желательно.    
С чего взял? - да из Ваших же постов в ЭТОЙ теме.  
 
зы. Код, который я привел, я писал для себя, для проверки "мыслей". а строка  
For i = 0 To 5: For j = 0 To 3: a(i, j) = i & j: Next: Next  
вообще внесена последней, что б массив был не пустой.

nerv, спасибо за столь подробный ответ :)  
но я писал:  
 
>> ему так удобно.  
>> а мне - неудобно.  
 
и  
 
>> на вкус и цвет, как говорится...  
 
и  
 
>> ну и... ради Бога, как говорится :)  
 
 
спорить вообще не о чем.  
даже обсуждать - тоже нечего.  
 
я высказал свою т.зр. и то, что мне удобно, ты - свою.  
мне было интересно, но менять ничего не собираюсь.  
советовать кому-либо что-либо - тем более.  
 
пс.  
улыбнуло вот это:  
[ikki]> set c=r.find(what:=s, lookin:=xlpart, lookat:=xlwhole, matchcase:=true)
[nerv]> тот же парсинг в голове. Для этого и придумали визуально наглядную форму записи.
 
nerv, а сложносочиненные и (о,боже!) сложноподчиненные предложения в художественной литературе - тоже неряшливость и парсинг? :))

привет )  
 
ikki, удобно/не_удобно здесь не при чем. Скорее правильно или не правильно (по моему мнению).  
 
Спорить не собирался. Кажется, мы вообще не соприли в этой теме.  
Просто пытаюсь показать почему делать правильно лучше, чем неправильно.  
Лучше в первую очередь для кодера (т.е. для себя)  
 
>nerv, а сложносочиненные и (о,боже!) сложноподчиненные предложения в художественной литературе - тоже неряшливость и парсинг? :))  
В программировании сложносочинять (судя по моему скромному опыту) надо только алгоритмы. Все остальное должно служить для облегчения процесса их создания.  
Еще несколько примеров.  
Сперва устный: есть такая штука, как "таблица умножения". Почему она именно таблица? Для удобства восприятия. Просто представь, что она записана в строку через любой разделитель.  
Примеры кода. Далеко ходить не буду, возьму тот же Find со всеми параметрами.  
 
Set Range = Range.Find("string", Range("A1"), True, xlWhole, xlByColumns, xlPrevious, True, True, Null)  
 
Что надо сделать, чтобы прочитать эту строку?  
1. Вспомнить, что обозначает каждый по счету параметр.  
2. Сверить в мозгу то, что вспомнил с тем, что передаешь.  
3. Разобрать по разделителям (отсчитать запятуйки. Малоли какая-то одна пропущена и тогда ай-яй-яй)  
4. Если на каком то возник ступор (например, засомневался, правильный ли аргумнет передаешь), еще раз п.1 затем п.2.  
 
 
альтернатива  
 
Set Range = Range.Find(What:="string", _  
_____________________After:=Range("A1"), _  
_____________________LookIn:=True, _  
_____________________LookAt:=xlWhole, _  
_____________________SearchOrder:=xlByColumns, _  
_____________________SearchDirection:=xlPrevious, _  
_____________________MatchCase:=True, _  
_____________________MatchByte:=True, _  
_____________________SearchFormat:=Null)  
 
здесь, пожалуй, только парсинг :=  
 
Следует отметить, что VBA, на мой взгляд, не очень удобен в этом отношении из-за := и _  
Например в javascript, можно было бы записать так:  
 
Set Range = Range.Find({What: "string",    
______________________After: Range("A1"),    
______________________LookIn: True,    
______________________LookAt: xlWhole,    
______________________SearchOrder: xlByColumns,    
______________________SearchDirection: xlPrevious,    
______________________MatchCase: True,    
______________________MatchByte: True,    
______________________SearchFormat: Null})  
 
все пракрасно видно и ничего не мазолит глаза

{quote}{login=ikki}{date=27.05.2012 06:00}{thema=nerv, С.М. - приветы}{post}неужели  
Dim i As Integer, j As Integer, k As Integer, A(1 To 100) As Integer  
 
или (ещё круче:)  
Dim i As Integer  
Dim j As Integer  
Dim k As Integer  
Dim A(1 To 100) As Integer  
 
лучше чем  
Dim i%, j%, k%, a%(1 to 100)  
 
???  
(я уж молчу про затраты времени, но - хотя бы результат?..){/post}{/quote}  
Саша,  
1. я оговорил: ИМХО.  
2. "про затраты времени":  
пишу строку  
Dim I, J, K, A(1 To 100) As Integer  
копирую  " As Integer" и всталяю после каждого  I, J, K

А Вы повторите еще раз вопрос, и опишите задачу более подробно. Счас все скучают - минут через 5-10 получите кучу вариантов.  
 
зы. Я думал свой вариант сделать, но не понял, что Вы там делаете вообще (т.е., что нужно получить на выходе)

1.  
With CreateObject("Scripting.Dictionary")  
   For Each aa In a  
      .Item(aa) = 1  
   Next  
   If .Count < UBound(a) Then MsgBox "В выбранном диапазоне имеются дубликаты!"  
End With  
2. A зачем    
ReDim Preserve a(1 To i, 1 To 5) ?  
размерность массива известна  
For i = 2 To 21    
и пишите просто  
Dim a(1 To 20, 1 To 5)