Bagaimana Memasukkan Jumlah Kolom Tertentu pada Interval Tetap di Excel?

Dalam penggunaan Excel sehari-hari, Anda mungkin mengalami situasi yang Anda perlukan tambahkan lebih banyak kolom di antara kolom yang ada. Anda tentu saja dapat menyisipkan kolom satu per satu menggunakan fungsi Sisipkan. Tetapi ketika Anda menghadapi data yang besar dan perlu memasukkan tiga kolom setelah setiap kolom kedua atau ke-n, fungsi Sisipkan tampaknya tidak efektif. Jadi bagaimana Anda bisa cepat menyelesaikan tugas? Dalam tutorial ini, kita akan berbicara tentang dua metode mudah untuk memecahkan masalah.

Masukkan jumlah tertentu kolom kosong ke dalam rentang data pada interval tetap dengan kode VBA

Masukkan jumlah kolom kosong tertentu ke dalam rentang data pada interval tetap dengan fitur luar biasa

Kita dapat menggunakan di bawah ini Kode VBA untuk menyisipkan sejumlah kolom kosong setelah setiap kolom ke-n. Silakan lakukan sebagai berikut.

1. tekan Alt + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul dan tempel makro berikut di file Modul Jendela.

Kode VBA: Masukkan jumlah kolom tertentu ke dalam data pada interval tetap

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. tekan F5 kunci untuk menjalankan kode ini. Sebuah kotak prompt muncul untuk mengingatkan Anda untuk memilih jangkauan data di mana Anda ingin menyisipkan kolom kosong.

4. Klik OK tombol. Kotak prompt lain muncul, silakan masuk jumlah kolom interval dalam Masukkan interval kolom kotak.

5. Terus klik OK tombol. Kotak prompt ketiga muncul, sebutkan jumlah kolom yang ingin Anda sisipkan pada setiap interval dalam kotak.

6. Klik OK tombol untuk mendapatkan hasilnya.

Jika Anda tidak ingin menggunakan metode kode VBA, Sisipkan Baris & Kolom Kosong fitur dari Kutools untuk Excel adalah solusi tepat untuk Anda. Dengan fitur ini, Anda dapat memasukkan jumlah kolom tertentu ke dalam rentang data pada interval tetap hanya dalam beberapa klik.

Sebelum melamar Kutools untuk Excel, silahkan download dan install terlebih dahulu.

1. Pilih rentang data yang ada terlebih dahulu. Lalu klik Kutools > Menyisipkan > Sisipkan Baris & Kolom Kosong.

2. Itu Sisipkan Baris & Kolom Kosong kotak dialog muncul. Anda dapat melihat rentang data yang Anda pilih pada langkah 1 ditampilkan di kotak Rentang. Memilih Kolom kosong pilihan dalam Masukkan tipe bagian. Dan tentukan jumlah kolom interval dan kolom yang ingin Anda sisipkan pada setiap interval. Disini saya masukan 1 dan 3 secara terpisah.

3. Klik OK tombol untuk menyelesaikan pengaturan dan mendapatkan hasilnya.

Note: Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silakan klik untuk mengunduhnya, dan kemudian pergi untuk menerapkan operasi sesuai dengan langkah-langkah di atas.

---

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
• Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
• Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
• Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
• Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
• Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
• Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
• Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli... 

---

Office Tab - menghadirkan antarmuka tab ke Office, dan membuat pekerjaan Anda jauh lebih mudah

• Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
• Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
• Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli...