Нумерация строк

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Нумерация строк (Формулы/Formulas)

Нумерация строк

boldinae

Дата: Вторник, 19.07.2022, 17:33 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 40% ±

Добрый день! Подскажите, как пронумеровать строки по адресам, реестр адрес большой, в данном файле всего лишь пример/часть

К сообщению приложен файл: _Microsoft_Exce.xlsx (9.0 Kb)

Ответить

msi2102

Дата: Вторник, 19.07.2022, 18:24 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 413

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

Попробуйте так

Код

=ЕСЛИОШИБКА(ЕСЛИ(B2="";A1;A1+1);1)

или макросом
[vba]

Код

Sub Номерация()
    Dim m As Long, rng As Range, f As Byte
    m = 0
    f = 1
    For n = 2 To ActiveSheet.UsedRange.Rows.Count
        If Not Cells(n, 2).MergeCells Then
            f = 1: m = m + 1
        Else
            If f = 1 Then m = m + 1: f = 0
        End If
        Cells(n, 1) = m
    Next n
    If Not rng Is Nothing Then rng.Delete
End Sub

[/vba]
Номерует по принципу: если ячейки в столбце B не объединены то добавляет единицу, иначе то же значение