И снова автонумерация

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

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

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

bsi

Дата: Среда, 07.12.2016, 13:21 | Сообщение № 1

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

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

Сообщений: 29

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

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

Excel 2010

Привет форумчане. Находил в инете разные варианты автонумерации, но по функциональности подходит именно этот вариант, за исключением того что удаляет обрамление границ ячеек в сотлбце "А".
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
For Each oCell In Range([B1], Cells(ActiveSheet.UsedRange.Rows.Count, "B")).Cells
    If Not IsEmpty(oCell) Then
        iCount = iCount + 1
        oCell.Previous = iCount
    Else: oCell.Previous.Clear
    End If
Next
Application.EnableEvents = True
End Sub

[/vba]
Работает он нормально, но если пробую сверху сделать шапку с объединенными ячейками, нумерация осуществляется неправильно.
Что надо изменить, чтобы нумервция осуществлялась правильно и не удалялось обрамление границ ячеек в столбце "А" ?
Два файла один с шапкой другой без неё.