Как добавить границу ниже при изменении значения в столбце Excel?

Существует список данных, который включает повторяющиеся значения, и для лучшей классификации значений я добавляю границу ниже, когда значение изменяется в списке, как показано ниже. В этой статье я расскажу о том, как быстро добавить границу внизу при изменении значения в столбце Excel.

Добавьте границу ниже при изменении значения с помощью VBA

Добавьте границу ниже при изменении значения с помощью VBA

Очевидно, что в Excel нет встроенной функции, которая могла бы помочь вам добавить границу ниже при изменении значения, но есть код VBA, который я могу представить.

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте код ниже в пустое поле Модули.

VBA: добавить границу ниже при изменении значения

Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
    Application.ScreenUpdating = False
    Dim LastRow As Long
    Dim xrg As Range
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For Each xrg In Range("A2:A" & LastRow)
        If xrg <> xrg.Offset(1, 0) Then
            Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
    Next xrg
    Application.ScreenUpdating = True
End Sub

3. Нажмите F5 клавиша для выполнения кода. Затем будут добавлены линии границ под ячейками, где значение изменяется в диапазоне A2:A.

Внимание: В коде VBA A2: A - это диапазон, в который вы хотите добавить границу ниже при изменении его значения, вы можете изменить его по своему усмотрению.

Наконечник: Если вы хотите вставить строку заголовка в каждую n-ю строку, вы можете попробовать применить Вставить строки заголовков полезности Kutools for Excel чтобы быстро решить эту задачу, как показано на снимке экрана ниже.