Выбор повторяющихся данных в одну ячейку

[The_Prist]

Сообщение от Skif-F

ну да, 65536 - это для Excel 2003. Для Excel 2007 там лежит 1048576.
Так на какой объём будет ссылаться следующее выражение: Range([A1],Cells(Rows.Count,N).Value, если мы работаем в Excel 2007?

Rows.Count - это конструкция уровня приложения. Ссылаться будет на кол-во строк, максимально допустимое в той версии Excel, в которой открыт документ. Я обычно использую не просто Rows.Count, а ActiveSheet.Rows.Count или ссылку на тот лист, с которого считываю/записываю данные. Иначе, при работе в Excel 2007 с документом 2003 обращение к данным с Rows.Count(без явного указания листа данных) вызовет ошибку, т.к. в документе гораздо меньше строк...

[SAS888]

на какой объём будет ссылаться следующее выражение: Range([A1],Cells(Rows.Count,N).Value, если мы работаем в Excel 2007?

Для 2007 - это диапазон ячеек с "A1" по Cells(1048576, N)
Для 2003 - это диапазон ячеек с "A1" по Cells(65536, N)
Rows.Count - это константа, равная количеству строк на листе. Естественно, для 2003 и 2007 это разные числа. Так, например, если требуется определить последнюю заполненную ячейку в столбце "A" и мы не знаем, какая версия Excel установлена у пользователя, то применение выражения Cells(Rows.Count, 1).End(xlUp) будет работать корректно, не зависимо от версии Excel. В то время, как [A65536].End(xlUp) для версии 2007 может вернуть не правильный результат. А выражение [A1048576].End(xlUp) для версии 2003 и вовсе выдаст ошибку.

[Skif-F]

Смысл не в том, к чему мы обращаемся, а к объёму!
Выражением ActiveSheet.Rows.Count мы обращаемся к объёму вот 65536 до МИЛЛИОНА строк. Потом мы этот объём копируем в массивы, сортируем, обрабатываем.
Учитывая, что многие темы здесь задаются начинающими, то эту ошибку они потянут в свои программы и будут жаловаться о медленной работе и ошибках.
Можно использовать выражение ActiveSheet.Rows.Count в проверках типа:

do while aaa<ActiveSheet.Rows.Count 
aaa=aaa+n
loop

но не:

Dim a()
a()=Range([A1],Cells(Rows.Count,Columns.Count)).Value

[SAS888]

Смысл не в том, к чему мы обращаемся, а к объёму!

Кто "мы"? Если этого не требуется, то к такому объему обращаться глупо. Приведите пример со страниц форума, где Вы это видели. Ни я ни кто-нибудь другой этого не делали ни разу.

a()=Range([A1],Cells(Rows.Count,Columns.Count)).V alue

Вот, как раз это и глупо. Другое дело, если, например

a = Range([A1], Cells(Rows.Count, 5).End(xlUp)).Value

Тогда мы получим массив из диапазона от "A1" до последней заполненной строки в 5-м столбце. А Вы как предлагаете получать подобный массив?

[Skif-F]

Сообщение от SAS888

Кто "мы"? Если этого не требуется, то к такому объему обращаться глупо. Приведите пример со страниц форума, где Вы это видели. Ни я ни кто-нибудь другой этого не делали ни разу.

из файла примера в этом разделе:
Set x = Range([A2], Cells(Rows.Count, 1).End(xlUp).Offset(, 2))
x.Sort Key1:=[B2], Key2:=[C2]: a = x.Value:

Здесь, конечно, метод Sort проигнорирует всё лишнее, но не факт (мы не знаем, как он реализован), но потом это всё (2^32 строк) помещается в массив а()....

[SAS888]

По-моему, Вы в чем-то заблуждаетесь. Строка кода

Set x = Range([A2], Cells(Rows.Count, 1).End(xlUp).Offset(, 2))

определит диапазон ячеек от "A2" до ячейки в столбце "C" с номером строки, равным последней заполненной строке в столбце "A". По-моему, такую конструкцию применял именно я. Это потому, что диапазон строк определяется столбцом "A", в то время, как столбец "C" может быть заполнен произвольно или не заполнен вовсе. Где в этой конструкции Вы видите большой объем (диапазон)?

[Skif-F]

Сообщение от SAS888

Это потому, что диапазон строк определяется столбцом "A", в то время, как столбец "C" может быть заполнен произвольно или не заполнен вовсе. Где в этой конструкции Вы видите большой объем (диапазон)?

А вот здесь моя ошибка! Прошу прощения! Я действительно считал, что в переменную а загружается массив до Rows.Count.
Виноват. Каюсь.