Здравствуйте. Как можно пронумеровать столбец автоматом "С" подсчитав пустоты в столбце "B". Отсчет необходимо начинать снова от единицы после того как будет достигнуто следующее число в столбце "B". Пример в файле. Лист «Было» и то что необходимо в листе «Стало». Не знаю, на сколько понятно получилось. Прошу прощения, если скомкано. Или , другими словами. Пронумеровать ячейки от 1... до Х в столбце "С". В столбце "B" есть числа. Они то и являются границами следующего цикла нумерации. Каждый новый отсчет должен начинаться от цифры в столбце "B".
fuzzlo, здравствуйте. Отвечу более универсальным кодом, для любого количества наименований в группе. Выделить диапазон, ГДЕ нужно проставить нумерацию. Выделить 1 ячейку в столбце с ГРУППАМИ (в вашем случае ФРАЗА)
Скрытый текст
Код
'Нумерация РАБОТ в группах по порядку
'Описание: Индексирует в Selection РАБОТЫ по ГРУППАМ, согласно текущей сортировки
'Процесс: Указывается столбец групп (средний уровень группировки)
'Автор: Jack Famous
'Тема на форуме: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=61888&TITLE_SEO=61888-makros-numeratsii-bez-skrytykh-yacheek
'=================================================================================================================================================
Sub IndexWorksByGroups()
Dim GrRng As Range
Dim i As Long
Dim группа As Long
Dim выбор As Long
Dim начало As Long
Dim конец As Long
Set GrRng = Application.InputBox("Укажите любую ячейку столбца ГРУПП:", "Запрос данных.", , Type:=8).Cells(1)
группа = GrRng.Column
выбор = Selection.Column
начало = Selection.Row + 1
конец = Selection.Row + Selection.Rows.Count - 1
Application.ScreenUpdating = 0
Cells(Selection.Row, выбор).Value = 1
For i = начало To конец
If Cells(i, группа).Value = Cells(i - 1, группа).Value Then
Cells(i, выбор).Value = Cells(i - 1, выбор).Value + 1
Else
Cells(i, выбор).Value = 1
End If
Next
Application.ScreenUpdating = 1
End Sub
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Владими, прошу прощения. Я кое-что поменял в задании. Вспомнил что от 1 до 20 не верно. Могут быть разные количество пустых ячеек между заполненными ячейками в столбце "B". Столбец "B" (цифры в ячейках) является ориентиром для начала каждого нового цикла отсчета.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄