Note: The other languages of the website are Google-translated. Back to English
English English

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


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

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.
doc insert-columns-at-intervals 1

4. Klik OK tombol. Kotak prompt lain muncul, silakan masuk jumlah kolom interval dalam Masukkan interval kolom kotak.
doc insert-columns-at-intervals 2

5. Terus klik OK tombol. Kotak prompt ketiga muncul, sebutkan jumlah kolom yang ingin Anda sisipkan pada setiap interval dalam kotak.
doc insert-columns-at-intervals 3

6. Klik OK tombol untuk mendapatkan hasilnya.
doc insert-columns-at-intervals 4


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

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.
doc insert-columns-at-intervals 5

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 serta kolom yang ingin Anda sisipkan pada setiap interval. Disini saya masukan 1 dan 3 secara terpisah.
doc insert-columns-at-intervals 6

3. Klik OK tombol untuk menyelesaikan pengaturan dan mendapatkan hasilnya.
doc insert-columns-at-intervals 7

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.


Operasi Lainnya (Artikel)

Bagaimana Cara Cepat Memasukkan Garis Berdasarkan Tanggal Saat Ini Di Excel?
Misalkan ada lembar yang berisi baris dengan tanggal, dan sekarang saya ingin menyisipkan baris tepat ke tanggal sekarang yang akan otomatis berubah saat membuka buku kerja setiap hari. Apakah ada trik yang bisa menyelesaikannya di Excel?

Bagaimana Cara Selalu Menyisipkan Baris Kosong Di Bawah Bukan Di Atas Di Excel?
Seperti yang kita ketahui bersama, saat memasukkan baris kosong ke dalam lembar kerja, baris kosong akan selalu disisipkan di atas baris atau sel yang dipilih. Namun, terkadang, Anda mungkin perlu menyisipkan baris di bawah sel atau baris yang dipilih. Bagaimana Anda bisa menyelesaikan pekerjaan ini di Excel?

Bagaimana Memasukkan Baris Baru Kosong Secara Otomatis Dengan Tombol Perintah Di Excel?
Dalam banyak kasus, Anda mungkin perlu memasukkan baris baru yang kosong ke posisi tertentu pada lembar kerja Anda. Pada artikel ini, kami akan menunjukkan kepada Anda cara menyisipkan baris baru kosong secara otomatis dengan mengklik Tombol Perintah di Excel.

Bagaimana Memasukkan Baris Kosong Setelah Teks Tertentu Di Excel?
Jika Anda ingin memasukkan baris kosong setelah teks tertentu seperti gambar berikut yang ditampilkan, bagaimana cara mengatasinya dengan cepat dan mudah tanpa memasukkannya secara manual satu per satu?



  • 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...
tab kte 201905
  • 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan