Нумерация ячеек с непустыми значениями

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Нумерация ячеек с непустыми значениями - Мир MS Excel

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

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

Нумерация ячеек с непустыми значениями (Макросы/Sub)

Нумерация ячеек с непустыми значениями

yaweg87

Дата: Пятница, 08.10.2021, 03:19 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Доброго времени суток.

Есть табличка: № п/п в "A2:A16" и "C2:C16" и значениями в "B2:B16" и "D2:D16". В "F2" (Cells 2, 6) значение с которого начинается нумерация.

Помогите, пожалуйста, добавить проверку, что проставлять нумерацию в "A" и "C" только в случае, если соответствующие ячейки "B" и "D" со значениями не пустые.
Т.е. должно получиться как в "J2:M16"

Спасибо.

[vba]

Код

Sub Nomber()

    i = Cells(2, 6)
        For Each c In Range("A2:A16,C2:C16")
        c.Value = i
        i = i + 1
    Next

End Sub

[/vba]

К сообщению приложен файл: 3033096.xlsm (18.3 Kb)

Сообщение отредактировал yaweg87 - Пятница, 08.10.2021, 03:41

Ответить

Nic70y

Дата: Пятница, 08.10.2021, 08:12 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

[vba]

Код

Sub Nomber()

    i = Cells(2, 6)
        For Each c In Range("A2:A16,C2:C16")
        If c.Offset(, 1) <> "" Then
            c.Value = i
            i = i + 1
        End If
    Next

End Sub

[/vba]

ЮMoney 41001841029809

Ответить

Нумерация ячеек с непустыми значениями (Макросы/Sub)

Страница 1 из 1
1