Як додати лінію межі нижче, коли значення змінюється у стовпці 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

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

---

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

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

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