End(xlDown)).Select - если только одна строка.

Multitabs

Гость

28.07.2012 12:32:51

Есть часть макроса для нумерации по-новому и вставки строки в начало:

Range(Range("a1"), Range("a1").End(xlDown)).Select
Selection.Cells(1, 1).Value = 1
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
Range("A1").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

Все хорошо, но если в обрабатываемом списке одна строка, то нумерует до конца листа и ... все. Вставлять дальше некуда. Как сделать чтобы нумеровал и работал и с одной строкой.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 28.07.2012 12:58:57 Range(Range("a1"), Range("a65536").End(xlup)).Select Я сам - дурнее всякого примера! ...

Multitabs

Гость

28.07.2012 13:41:45

Спасибо, но не подходит. Надо чтобы до первой пустой ячейки вниз было выделение, а это в моем случае это всего первая ячейка первой строки (строка то одна). А выделяется все до конца.
Точный диапазон указать нельзя, неизвестно сколько будет строк.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 28.07.2012 13:44:41 Туго... Range(Range("a1"), Range("a65536").End(xlup).offset(1)).Select Я сам - дурнее всякого примера! ...

Multitabs Гость	#5 28.07.2012 14:05:34 Огромное Вам СПАСИБО!!! Все прекрасно работает. Ну извините,что я "тугой" и сам до этого не допер.

Читают тему