Biasanya di lembar kerja excel kami memiliki dua metode berbeda untuk menambahkan atau menyisipkan kolom satu menjadi pintasan keyboard dan lainnya dengan menggunakan metode klik kanan dan sisipkan tetapi di VBA kita harus menggunakan perintah sisipkan dan seluruh pernyataan kolom untuk menambahkan kolom apa pun bersama-sama, Trik untuk ini adalah bahwa jika kita perlu memasukkan satu kolom kita memberikan referensi kolom tunggal tetapi untuk beberapa kolom kita memberikan referensi beberapa kolom.
Masukkan Kolom di Excel menggunakan VBA
Sebagai bagian dari kode VBA, kita mungkin perlu memasukkan beberapa kolom di lembar data kita agar sesuai dengan kebutuhan kita. Menyisipkan kolom adalah tombol pintas yang mudah di lembar kerja dengan menekan Ctrl + tetapi bagaimana dengan memasukkan kolom baru melalui kode VBA. Dalam artikel ini di "VBA Insert Column", kami akan menunjukkan kepada Anda proses penambahan kolom di excel dan akan menunjukkan kepada Anda contoh skenario yang berbeda.
Bagaimana cara menyisipkan kolom di lembar kerja Excel menggunakan VBA?
Kita dapat memasukkan kolom di VBA menggunakan properti COLUMNS dan objek RANGE. Anda harus mengapa kita membutuhkan kolom dan objek rentang untuk menyisipkan kolom baru.
Untuk menyisipkan kolom baru, kita perlu mengidentifikasi setelah kolom mana kita perlu memasukkan, tanpa memberi tahu, setelah kolom mana kita perlu memasukkan bagaimana VBA dapat memahami logikanya.
Misalnya, jika Anda ingin menyisipkan kolom setelah kolom B, maka Anda dapat membuat kode seperti ini.
Kolom ("C")
Catatan: Alasan mengapa saya menggunakan C untuk menyisipkan kolom setelahnya karena sel yang dipilih akan digeser ke sisi kanan.
Setelah kolom ditentukan, kita perlu mengakses properti "Seluruh Kolom".
Kolom ("C"). Seluruh Kolom
Kemudian kita perlu memilih metode "Sisipkan".
Kolom ("C"). Seluruh Kolom.Insert
Ini akan memasukkan kolom setelah kolom C, dan kolom C yang ada akan dipindahkan ke D.
Contoh # 1 - Sisipkan Kolom Menggunakan Objek Rentang di VBA
Sekarang, lihat cara memasukkan kolom menggunakan objek RANGE. Untuk ini, pertimbangkan data di bawah ini sebagai contoh.
Sekarang saya ingin memasukkan kolom VBA setelah kolom A, ikuti langkah-langkah di bawah ini untuk membuat kode.
Langkah 1: Mulailah Sub Prosedur.
Langkah 2: Buka objek Rentang .
Kode:
Sub ColumnInsert_Example1 () Range (End Sub
Langkah 3: Sekarang sebutkan kolom dalam tanda kutip ganda .
Kode:
Sub ColumnInsert_Example1 () Range ("B: B") End Sub
Langkah 4: Sekarang pilih properti Seluruh Kolom .
Kode:
Sub ColumnInsert_Example1 () Range ("B: B"). Ent End Sub
Langkah 5: Setelah memilih properti Seluruh Kolom, pilih metode "Sisipkan" .
Kode:
Sub ColumnInsert_Example1 () Range ("B: B"). Seluruh Kolom.ins End Sub
Sekarang kode Anda terlihat seperti ini.
Kode:
Sub ColumnInsert_Example1 () Range ("B: B"). Seluruh Kolom. Sisipkan Akhir Sub
Jalankan kodenya. Ini akan memasukkan kolom B baru.
Contoh # 2 - Sisipkan Banyak Kolom
Misalnya, jika Anda ingin memasukkan dua kolom baru setelah kolom A, maka kita perlu menyebutkan dua alamat kolom.
Kode:
Sub ColumnInsert_Example1 () Range ("B: C"). Seluruh Kolom. Sisipkan Akhir Sub
Kode di atas akan menyisipkan dua kolom setelah kolom A.
Contoh # 3 - Dengan Metode "Sisipkan" Saja
Kita dapat menyisipkan kolom baru dengan menggunakan metode "Sisipkan" satu-satunya tanpa mengakses properti Seluruh Kolom. Untuk ini, mari kita pahami sintaks metode "sisipkan".
Expression.Insert ((Shift), (Copy Origin))
(Shift): Saat kita memasukkan kolom baru, apakah kita membutuhkan kolom untuk bergeser ke sisi kanan atau untuk bergeser ke sisi bawah jika ada baris. Di sini kita dapat menggunakan dua opsi, "xlToRight" dan "xlDownTo"
(Copy Origin): This will specify the format for the newly inserted column. Whether you need the format from the left side of the column or from the above cells. Here we can use two options “xlFormatFromLeftOrAbove” and “xlFormatFromRightOrBelow”.
Below is the example code for you.
Sub ColumnInsert_Example1() Range("B:B").Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove End Sub
Example #4 - Insert Columns Using COLUMNS Property in VBA
We have seen how to VBA insert columns using the RANGE object; now, we will show we can insert columns using the “COLUMNS” property.
Open the COLUMNS property.
Code:
Sub ColumnInsert_Example2() Columns( End Sub
We can specify the column in two ways here. One is using as usual alphabetic references, and another one is using column numbers.
If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).
Code:
Sub ColumnInsert_Example2() Columns("B"). End Sub
Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.
Code:
Sub ColumnInsert_Example2() Columns("B").Entir End Sub
Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.
Code:
Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub
Example #5 - Insert Alternative Columns
Assume you have the data like the below image.
If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.
Code:
Sub ColumnInsert_Example3 () Dim k As Integer Columns (2) Pilih Untuk k = 2 Sampai 8 ActiveCell.EntireColumn. Masukkan ActiveCell.Offset (0, 2). Pilih Next k End Sub
Ini akan memasukkan kolom seperti ini.
Contoh # 6 - Sisipkan Kolom Berdasarkan Nilai Sel
Kami juga dapat memasukkan kolom berdasarkan nilai sel juga. Misalnya, lihat data di bawah ini.
Di sini saya ingin memasukkan kolom jika nilai sel baris pertama adalah "Tahun", dan data saya akan seperti ini setelah memasukkan kolom baru.
Gunakan kode di bawah ini untuk melakukan tugas ini.
Kode:
Sub ColumnInsert_Example4 () Dim k Sebagai Integer Dim x Sebagai Integer x = 2 Untuk k = 2 Sampai 12 Jika Sel (1, x) .Value = "Tahun" Lalu Sel (1, x) .EntireColumn.Insert x = x + 1 Selesai Jika x = x + 1 Berikutnya k Akhiri Sub
Anda dapat mengunduh Excel Sisipkan Kolom VBA ini di sini. VBA Sisipkan Kolom Template Excel
