UBound

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

20.01.2011 15:55:12

Приветствую всех.
Ну никак не могу разобраться.
Если задаю массив так, то
Lrw = Rows(Rows.Count).End(xlUp).Row
arr = Range(Cells(1, 1), Cells(Lrw, 1))
a = UBound(arr)________ = последний эл-т
а если так
LCol = Columns(Columns.Count).End(xlToLeft).Column
arr1 = Range(Cells(1, 1), Cells(1, LCol))
a = UBound(arr1)_______ = 1

в чем ошибка? И как определить последний эл-т масива из строки?

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

20.01.2011 16:04:29

Правильно будет так:

Lrw = Rows(Rows.Count).End(xlUp).Row
arr = Range(Cells(1, 1), Cells(Lrw, 1)).Value
a = arr(UBound(arr, 1), 1) ' последний эл-т

LCol = Columns(Columns.Count).End(xlToLeft).Column
arr1 = Range(Cells(1, 1), Cells(1, LCol)).Value
a = arr1(1, UBound(arr1, 1)) ' последний эл-т

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#3 20.01.2011 16:06:09 Массив, полученный присвоением диапазона, всегда двумерный. UBound(arr) эквивалентно UBound(arr, 1), и это число строк. Во втором случае надо UBound(arr, 2)

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#4 20.01.2011 16:07:56 Сенкс!

Hugo Пользователь Сообщений: 26349 Регистрация: 22.12.2012	#5 20.01.2011 16:15:14 В окне Locals хорошо видна разница между массивами - первый (1 to 18, 1 to 1) второй (1 to 1, 1 to 18) Это на моих данных.

Читают тему