Vba: як вставити рядок із форматуванням

Ви можете використовувати такий синтаксис у VBA, щоб вставити рядок у тому самому форматі, що й рядок над ним:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

Цей конкретний макрос вставлятиме рядок під поточною виділеною коміркою з таким самим форматуванням, як і комірки у поточному вибраному рядку.

Примітка . Рядок Application.CutCopyMode = False вказує, що режим вирізання та копіювання слід вимкнути після виконання макросу.

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Пов’язане: Як вставити кілька рядків за допомогою VBA

Приклад: вставте рядок із форматуванням у VBA

Припустімо, у нас є такий набір даних у Excel, який містить інформацію про різних баскетболістів:

Припустімо, ми хочемо вставити рядок під рядком 2 із таким самим форматуванням.

Для цього ми можемо створити такий макрос:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

Потім ми можемо вибрати клітинку A2 і запустити цей макрос.

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що новий рядок, який ми вставили, має точно такий самий формат, як і клітинки в рядку 2, включаючи кольори клітинок і рамку.

Також зауважте, що всі інші рядки в існуючому наборі даних просто переміщено вниз.

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: як знайти останній використаний рядок
VBA: як підрахувати кількість рядків у діапазоні
VBA: як підрахувати кількість використаних стовпців