макрос проставление порядкового номера

[tevadim]

Уважаемые Знатоки ! Прошу Вас предложить ваши варианты -создать макрос или формулу: автоматическое проставление порядкового номера в таблице . В “ A” c первой пустой ячейки до последней не пустой строки ( row) ну и на десерт если менялось количество строк ( paste ;cut) с данными автоматически менялись и порядковые номера .Естественно стандартные инструменты типа протягивание не рассматриваются …https://www.dropbox.com/s/fxyf89fbvgbyicv/N.N.rar

[aNJay]

Для начала попробуй так:

Sub NN()
xFinish = Sheets("Лист1").Cells(2, 2).End(xlDown).Row
For i = 3 To xFinish
    Sheets("Лист1").Cells(i, 1) = i - 2
Next i
End Sub

[gling]

ДВА ВАРИАНТА, ОБА ФОРМУЛАМИ. ОДИН ПРОТЯЖКОЙ ВТОРОЙ МАКРОСОМ.

[tevadim]

Уважаемый Gling ! спасибо работает СУПЭР . Можно попросить Ваш вариант Дописать макрос Если удаляются данные из строки c пoзиции " B " пустая строка полностью удалялась автоматом ?

[tevadim]

Буду оптимизировать варианты ..Протяжкой это- понятно но интересно чтоб таблица " дышала " .(Номера менялись автоматом) . Покапался в нете этот вопрос многих интересует .Когда меняются постоянно количество строк с данными в больших таблицах порядковые номера автоматом менялись .Макросом конечно интереснее . Еще раз спасибо !

[tevadim]

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

Для начала попробуй так:

Sub NN()
xFinish = Sheets("Лист1").Cells(2, 2).End(xlDown).Row
For i = 3 To xFinish
    Sheets("Лист1").Cells(i, 1) = i - 2
Next i
End Sub

Уважаемы aNJay С П А С И Б О ! Ваш вариант работает отлично, а можно дописать макрос чтоб пустая строка удалялась автоматом из таблицы. Это получится КЛАСИЧЕСКИЙ вариант для работы с движущимися массивами .
Еще момент чтоб отсчет 1.2.3.4.. шел с первой пустой ячейки колонки "A"

[gling]

ТАКОЙ ВАРИАНТ ПОДОЙДЕТ?

[tevadim]

Просто SUPER ! Эта тема много обсуждалась , но окончательного решения не имела - кажется ее можно закрыть Спасибо гуру " Gling "работает на все случаи жизни .Можно использовать как утилиту к EXCELL С уважением

[gling]

я не гуру просто слямзил на этом, или другом сайте все эти навороты. Гуру те у которых репутация >100.

[tevadim]

Все равно спасибо Уважаемый " Gling " !