Cara Menambah Baris dan Kolom Menggunakan VBA Excel

Menambah baris dan kolom dalam Ms Excel adalah suatu hal yang sangat mudah. Untuk menambah baris atau kolom dalam Ms. Excel kalian bisa pilih fitur insert row atau insert column.

Namun, untuk menambah baris dan kolom menggunakan script VBA tentunya tidak semudah menambah baris dan kolom dengan fitur yang biasa digunakan. Untuk menambah baris dan kolom menggunakan script VBA, kalian bisa gunakan Range.Insert Method.

Pengertian Range.Insert Method VBA Excel

Range.Insert Method adalah suatu method VBA Excel yang bisa menyisipkan sel atau rentang sel ke dalam lembar kerja atau lembar makro dan menggeser sel lain menjauh untuk memberi ruang.

Syntax Range.Insert Method VBA Excel

expression.Insert (Shift, CopyOrigin)

Keterangan :

expression adalah ekspresi sebuah variabel yang mewakili objek Range.
Shift adalah berfungsi untuk menentukan cara mana untuk menggeser sel. Dapat berupa salah satu konstanta XlInsertShiftDirection seperti xlShiftToRight atau xlShiftDown.
CopyOrigin adalah asal salinan dari mana menyalin format untuk sel yang disisipkan, dapat berupa salah satu konstanta XlInsertFormatOrigin berikut: xlFormatFromLeftOrAbove atau xlFormatFromRightOrBelow

Untuk cara menambah baris dan kolom menggunakan VBA Excel maka kita langsung saja praktikan ke contoh berikut ini :

Misalkan kita ingin menambah satu kolom di depan kolom A di sheet 1, maka script VBAnya adalah sebagai berikut :

Sub TambahKolom()

Range("A:A").Insert CopyOrigin:=xlFormatFromRightOrBelow

End Sub

Penjelasan :

expression adalah ("A:A")
CopyOriginnya adalah xlFormatFromRightOrBelow

Langkah-langkah penggunaan script VBA :

1. Buka Aplikasi Ms. Excel;

2. Pilih menu Developer - View Code;

3. Setelah jendela VBA terbuka pilih menu Insert - Module di jendela VBA;

4. Isikan script VBA di atas ke dalam jendela Module;

5. Pilih menu Run Sub/User Form;

Maka hasilnya menjadi :

Jika kalian ingin menambah baris, maka ganti saja rangenya. Misal jika ingin menambah satu baris di atas baris pertama maka ganti range menjadi Range("1:1").

Demikian artikel kali ini.

Mohon maaf apabila ada salah-salah kata.
Apabila ada yang ingin ditanyakan atau disampaikan, silahkan untuk menulis pada kolom komentar di bawah.

Referensi :