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

tevadim · 22.12.2012, 13:29

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

aNJay · 22.12.2012, 20:41

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

Код:

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 · 22.12.2012, 21:16

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

tevadim · 23.12.2012, 12:26

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

tevadim · 23.12.2012, 12:47

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

tevadim · 23.12.2012, 13:14

Цитата:

Сообщение от 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 · 25.12.2012, 07:41

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

tevadim · 28.12.2012, 13:35

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

gling · 28.12.2012, 23:35

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

tevadim · 30.12.2012, 15:06

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

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

22.12.2012, 20:41	#2
aNJay Регистрация: 22.12.2012 Сообщений: 7	Для начала попробуй так: Код: `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`

23.12.2012, 12:26	#4
tevadim Пользователь Регистрация: 17.02.2010 Сообщений: 39	Уважаемый Gling ! спасибо работает СУПЭР . Можно попросить Ваш вариант Дописать макрос Если удаляются данные из строки c пoзиции " B " пустая строка полностью удалялась автоматом ? Последний раз редактировалось tevadim; 23.12.2012 в 13:22.

23.12.2012, 12:47	#5
tevadim Пользователь Регистрация: 17.02.2010 Сообщений: 39	Буду оптимизировать варианты ..Протяжкой это- понятно но интересно чтоб таблица " дышала " .(Номера менялись автоматом) . Покапался в нете этот вопрос многих интересует .Когда меняются постоянно количество строк с данными в больших таблицах порядковые номера автоматом менялись .Макросом конечно интереснее . Еще раз спасибо ! Последний раз редактировалось tevadim; 23.12.2012 в 13:07.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Присвоение порядкового номера по заданному условию	tns-ka	Microsoft Office Excel	11	12.07.2021 12:09
программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А (Паскаль)	S_S_V_N	Помощь студентам	1	16.10.2011 21:54
Рассчет порядкового номера запроса	%$PROregRAMi$t%	Microsoft Office Excel	21	18.08.2010 15:41
поиск порядкового номера в pascale	счастливая	Помощь студентам	1	17.05.2010 19:07
Паскаль. Перечислимый тип. Определение порядкового номера дня високосного года.	katya36	Помощь студентам	9	02.05.2009 13:56

28.12.2012, 13:35	#8
tevadim Пользователь Регистрация: 17.02.2010 Сообщений: 39	Просто SUPER ! Эта тема много обсуждалась , но окончательного решения не имела - кажется ее можно закрыть Спасибо гуру " Gling "работает на все случаи жизни .Можно использовать как утилиту к EXCELL С уважением

28.12.2012, 23:35	#9
gling Форумчанин Регистрация: 23.01.2010 Сообщений: 261	я не гуру просто слямзил на этом, или другом сайте все эти навороты. Гуру те у которых репутация >100.

30.12.2012, 15:06	#10
tevadim Пользователь Регистрация: 17.02.2010 Сообщений: 39	Все равно спасибо Уважаемый " Gling " !