Нумерация заглавных (ячейки 1 уровеня) и подзаголовных ячеек (ячейки 2 уровня) по условию
Столбец А: нумерация по строчкам, исключая первую Столбец D: нумерация по порядку строк с наименованием (у них всегда значения Q не пустые) Столбец С: такая же нумерация как и в D, но и белых Столбец B: если значение столбца Q равно 0, в соответсвующих значениям столбца C строк появляется 0, для того чтобы пустые значения я потом отфильтрововал Функцию ВПР понял, а вот реализовать нумерацию через индексы, поискпоз, счёт и прочее не получается. А автоматизировать такой процесс только умной таблицей можно?
Ігор Гончаренко,При моих грешках, когда удаляю или добавляю строчки. Если сложно автоматизировать, буду протягивать тогда или умной таблицей пользоватся.
1. Наименование товара (выделен серным, Не пустые значения в столбце Q) Белые ячейки это характеристики товара их для удобства выборки отдельных позицей нумеровать номером этого товара (для понимания, это 1.1, 1.2 и прочее)
Максим, Посмотрите приложенный документ. То ли это что Вам нужно? Disclaimer: столбец D я менять не стал, т.к. на него опирается расчет в столбце Q. Если Вы начнете по-другому считать Q, то заполнить столбец D можно при помощи формулы, подобной C с минимальными изменениями.
IKor, Посмотрел документ, признаюсь, изменений не увидел)) Q Столбец считаю только опираясь на подсчитанную сумму аналогичных ячеек из листа рапорта. Как то иначе можно организовать документ?
Цитата
Mershik написал: какая логи определения значений в столбце D
Напротив в столбце Q вписано какое либо число. ЕЧИСЛО подойдет или что то сложней нужно?
Sub nomera_strok() lLastRow = Cells(Rows.Count, 5).End(xlUp).Row For i = 2 To lLastRow Cells(i, 1) = i - 1 If Cells(i, 5).Characters(Start:=i, Length:=1).Font.Bold Then a = Range(Cells(1, 4), Cells(i, 4)).Address b = Application.WorksheetFunction.CountIf(Range(a), "<>" & "") Cells(i, 4) = b + 1 End If End If Next End Sub