Цей підручник продемонструє, як за допомогою VBA вставляти рядки та стовпці в Excel.
Для вставлення рядків або стовпців ми будемо використовувати Метод вставки.
Вставте один рядок або стовпець
Вставити новий рядок
Щоб вставити один рядок, можна скористатися об'єктом Rows:
1 | Ряди (4). Вставка |
Або ви можете використовувати об'єкт Range разом з EntireRow:
1 | Діапазон ("b4"). EntireRow.Insert |
Вставити нову колонку
Подібно до вставлення рядків, ми можемо використовувати об'єкт Columns для вставлення стовпця:
1 | Стовпці (4). Вставка |
Або об'єкт Range разом із EntireColumn:
1 | Діапазон ("b4"). EntireColumn.Insert |
Вставте кілька рядків або стовпців
Вставте кілька рядків
При вставленні кількох рядків з об'єктом Rows потрібно вводити рядки в лапки:
1 | Ряди ("4: 6"). Вставити |
Вставлення кількох рядків з об'єктом діапазону працює так само, як і з одним рядком:
1 | Діапазон ("b4: b6"). EntireRow.Insert |
Вставити кілька стовпців
Під час вставлення кількох стовпців з об’єктом Columns введіть стовпець листи у лапках:
1 | Стовпці ("B: D"). Вставити |
Вставка кількох стовпців з об'єктом діапазону працює так само, як і з одним стовпцем:
1 | Діапазон ("b4: d4"). EntireColumn.Insert |
Вставка - Shift & CopyOrigin
The Метод вставки має два необов’язкові аргументи:
- Зсув - У якому напрямку змістити комірки
- CopyOrigin - Яке форматування комірки скопіювати (зверху, знизу, зліва чи справа)
Аргумент Shift не має значення при вставці цілих рядків або стовпців. Він дозволяє лише вказувати на зміщення вниз або на праворуч:
- xlShiftDown - Зсунути комірки вниз
- xlShiftToRight - Зсунути клітинки вправо
Як бачите, ви не можете зрушити вгору або вправо.
The CopyOrigin аргумент має два потенційні входи:
- xlFormatFromLeftorAbove - (0) Щойно вставлені клітинки беруть форматування з осередків зверху чи зліва
- xlFormatFromRightorBelow (1) Щойно вставлені осередки форматуються з осередків знизу або праворуч.
Давайте розглянемо деякі приклади CopyOrigin аргумент. Ось наші вихідні дані:
У цьому прикладі буде вставлено рядок, взявши форматування з наведеного вище рядка.
1 | Рядки (5) .Insert, xlFormatFromLeftOrAbove |
У цьому прикладі буде вставлено рядок із форматуванням із нижнього рядка.
1 | Рядки (5). Вставка, xlFormatFromRightOrBelow |
Інші приклади вставки
Вставити скопійовані рядки або стовпці
Якщо ви хочете вставити скопійований рядок, використовуйте такий код:
12 | Діапазон ("1: 1"). КопіюватиДіапазон ("5: 5"). Вставити |
Тут ми копіюємо рядок 1 і вставляємо його в рядок 5.
Вставлення рядків на основі значення клітинки
Це прокрутить діапазон, вставляючи рядки на основі значень комірки:
1234567891011 | Sub InsertRowswithSpecificValue ()Яскрава клітинка як діапазонДля кожної клітинки в діапазоні ("b2: b20")Якщо cell.Value = "вставити" Тодіcell.EntireRow.InsertЗакінчити ЯкщоНаступна клітинаEnd Sub |
Видалити рядки або стовпці
Щоб видалити рядки або стовпці, просто скористайтеся Видалити метод.
1234567 | Рядки (1). ВидалитиДіапазон ("a1"). EntireRow.DeleteСтовпці (1). ВидалитиДіапазон ("a1"). EntireColumn.Delete |