Як додати лінію межі нижче, коли значення змінюється у стовпці Excel?

Існує список даних, який включає повторювані значення, і для кращої класифікації значень я додаю лінію межі нижче, коли значення змінюється у списку, як показано на знімку екрана нижче. У цій статті я розповім про те, як швидко додати рядок межі нижче, коли значення змінюється в стовпці Excel.

Додайте лінію межі нижче, коли значення змінюється за допомогою VBA

Додайте лінію межі нижче, коли значення змінюється за допомогою VBA

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

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модуліі вставте код нижче в порожній сценарій модульe.

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 для Excel швидко вирішити цю роботу, як показано на знімку екрана. Це повноцінна функція без обмежень

будь ласка, завантажте та отримайте безкоштовну пробну версію зараз.

Найкращі інструменти продуктивності офісу

🤖	Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
	Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
	Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
	Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
	Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
	Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
	Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Детальніше ... Завантажити безкоштовно...

---

Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно...