Excel VBA Вставте рядок

Оскільки у цьому слові є дві речі, одна - VBA, а інша - Вставити рядок. У цьому я поясню, як вставити рядок в Excel за допомогою VBA (Visual Basic для додатків).

VBA - це мова програмування для тих, хто працює в Excel та інших програмах Office, тому можна автоматизувати завдання в Excel, написавши так звані макроси. Використовуючи кодування VBA, ми можемо виконувати всі більшість усіх завдань, які ми виконуємо в Excel, оскільки ми можемо копіювати, вставляти, видаляти тощо.

Вставити рядок - використовується для вставки рядка в Excel між іншим рядком за допомогою автоматизації, тобто одним натисканням кнопки.

Припустимо, ми вводимо деталі працівника в Excel, і ми пропустили деяких співробітників і хочемо вставити деталі пропущених між ними, тому ми повинні створити пробіл і вставити рядок, щоб ввести їх дані. Замість того, щоб вставляти рядок один за одним, ми можемо автоматизувати завдання вставки рядків за допомогою VBA та створення макросів.

Існує багато способів, за допомогою яких ми можемо вставляти рядки за допомогою кодування VBA. Функція, що використовується для вставки рядка в VBA, це:

Діапазон (). Рядок (). EntireRow.Insert

Розглянемо, у нас є набір даних, який складається з стовпців, таких як Ім'я клієнта , Товар, Продаж, Кількість, Вартість доставки, Пріоритет замовлення.

Припустимо, шанс, що нам потрібно зрушити стовпці вниз, щоб вставити 3 нових рядки між 3 і 4, щоб вставити новий запис, що відсутній. Замість того, щоб вставляти рядок по одному, ми автоматизуємо це, щоб вставити всі 3 ряди одним клацанням миші.

Як вставити рядки в Excel VBA?

Нижче наведено різні приклади для вставки рядків у Excel за допомогою коду VBA.

Ви можете завантажити шаблон VBA Insert Row Excel тут - VBA Insert Row Excel Шаблон

Приклад №1 - Використання всього рядка

Виконайте наведені нижче дії, щоб вставити рядки в excel, використовуючи код VBA.

Крок 1. Для створення макросу нам потрібно вибрати вкладку Developer.

Крок 2: Після відкриття вкладки Developer вставте кнопку з групи Controls. Клацніть на Вставити та виберіть перший варіант з ActiveX Controls. Як ви бачите, що кнопка Command .

Крок 3: Перетягніть стрілку в будь-яку клітинку, щоб створити командну кнопку.

Крок 4: Щоб увійти до функції Вставка, клацніть правою кнопкою миші кнопку Comand, тобто Вставте 3 рядки та натисніть на Переглянути код.

Крок 5: При натисканні на код Перегляд з'являється наступний код.

Код:

 Приватний Sub CommandButton1_Click () Кінець Sub

Крок 6: Ми повинні написати наш код ВСТАВИТИ РЯД. Як було сказано раніше, ми повинні використовувати функцію Rows.EntireRow з RANGE в VBA. У цей код ми маємо вставити 3 між 3 -м та 4- м .

Код:

 Приватний діапазон Sub CommandButton1_Click () ("A3"). Рядки ("3: 5"). EntireRow.Insert End Sub

У наведеному вище рядку коду A3 - це стовпець, куди ми повинні вставити рядок, а рядки (3: 5) - ми повинні вставити 3 нові рядки.

Крок 7: Запустіть код, натиснувши кнопку " Вставити 3 рядки ".

Приклад №2 - Використання чисел рядків

Аналогічно ми напишемо код, щоб вставити 2 ряди одним натисканням кнопки.

У цьому нам потрібно згадати рядок від початкового рядка до номера кінця рядка, використовуючи RANGE, а потім INSERT, який буде вставляти рядки.

Код:

 Приватний діапазон Sub CommandButton2_Click () ("3: 4"). Вставте кінець підпункту

Коли ми натискаємо кнопку «Вставити 2 ряди», ми бачимо, що два ряди були вставлені між 3 -м та 4- м рядами.

Точно так само ми можемо налаштувати нашу функцію, щоб вставити якомога більше рядків.

Приклад №3 - Використання активної комірки

Активна клітина означає клітинку, яка в даний час обрана. Ми будемо використовувати Активну комірку для вставки рядків. Припустимо, що ми перебуваємо на комірці B3 і хочемо вставити клітинку над нею, ми будемо використовувати властивість активних комірок. Ми будемо використовувати наступний код для активної комірки.

Код:

 Приватний Sub CommandButton3_Click () ActiveCell.EntireRow.Insert End Sub

Коли ми натискаємо кнопку «Активна властивість клітини», ми бачимо, що одна клітинка вставлена ​​над вибраною коміркою. У вищесказаному ми вибрали B5 і нижче, ми бачимо, що над ним вставлено один рядок.

Приклад №4 - Використання активної комірки зі зміщенням

Припустимо, ми хочемо вставити рядок через 3 ряди активної комірки, для цього ми будемо використовувати функцію OFFSET. Припустимо, ми перебуваємо в комірці B4 і нам доведеться вставляти рядок через 2 ряди, і ми будемо використовувати цей код.

Код:

 Приватний Sub CommandButton4_Click () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub

Коли ми натискаємо кнопку «Активна комірка за допомогою зміщення», один рядок вставляється в B6.

Що потрібно пам’ятати

  • Він використовується для вставки рядків в Excel шляхом автоматизації.
  • VBA Insert Row використовується з об'єктом RANGE в VBA.
  • Перед роботою увімкніть "Увімкнути всі макроси" в налаштуваннях макросу.

Рекомендовані статті

Це посібник з VBA Insert Row. Тут ми обговорюємо, як вставити рядок у Excel, використовуючи код VBA разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете переглянути наступні статті, щоб дізнатися більше -

  1. Приклади функції VBA GetObject
  2. Excel Вставити кілька рядків (шаблон Excel)
  3. Як використовувати функцію VBA StrConv?
  4. Керівництво по ярлику Excel Insert Row

Категорія:

VBA