Добрый день.
Существует файл (см.вложенный файл), в котором в столбце количество менеджер вносит необходимый объем. Далее фильтром все пустые строки скрываются. Необходимо написать макрос по нумерации только видимых строк. При этом есть особенность - некоторые строки объединены в одну ячейку для нумерации и количество объединенных ячеек различное.
Написан макрос для нумерации объединенных ячеек всех строк видимых и невидимых. Как его скорректировать только под видимые на экране строки?
Существует файл (см.вложенный файл), в котором в столбце количество менеджер вносит необходимый объем. Далее фильтром все пустые строки скрываются. Необходимо написать макрос по нумерации только видимых строк. При этом есть особенность - некоторые строки объединены в одну ячейку для нумерации и количество объединенных ячеек различное.
Написан макрос для нумерации объединенных ячеек всех строк видимых и невидимых. Как его скорректировать только под видимые на экране строки?
Код |
---|
Sub Auto123() Dim i As Range, LMC As String, n As Single For Each i In Selection If i.MergeCells Then If LMC <> i.MergeArea.Address Then n = n + 1: i = n End If LMC = i.MergeArea.Address Else n = n + 1: i = n End If: Next: End Sub |