Daftar Isi
Baca terus untuk mempelajari cara pintas untuk menyisipkan satu atau lebih kolom, termasuk yang tidak berdekatan. Ambil dan bagikan makro VBA khusus untuk mengotomatiskan penambahan setiap kolom lainnya.
Mencari cara yang baik untuk menyisipkan kolom baru di tabel Excel Anda, Anda cenderung menemukan banyak tip dan trik berbeda. Pada artikel ini saya berharap dapat mengumpulkan cara tercepat dan paling efektif untuk menambahkan satu atau beberapa kolom yang berdampingan atau tidak berdekatan.
Ketika laporan Anda di Excel hampir siap tetapi Anda memahami bahwa itu kehilangan kolom untuk memasukkan detail penting, ambil trik hemat waktu di bawah ini. Dari pintasan kolom sisipkan hingga menambahkan setiap kolom lainnya, klik tautan yang benar untuk menavigasi langsung ke intinya.
Sisipkan pintasan kolom
Jika tugas Anda adalah menyisipkan satu kolom dengan cepat, langkah-langkah ini sejauh ini adalah yang tercepat dan paling sederhana.
1. Klik pada tombol surat dari kolom tepat di sebelah kanan tempat Anda ingin menyisipkan kolom baru.
jenis. Anda juga dapat memilih seluruh kolom dengan memilih sel mana saja dan menekan Ctrl + Spasi pintasan.
2. Sekarang cukup tekan Ctrl + Shift + + (plus pada keyboard utama).
Tip. Jika Anda tidak terlalu menyukai shortcut, Anda bisa mengklik kanan pada kolom yang dipilih dan memilih Sisipkan opsi dari daftar menu.
Hanya perlu dua langkah sederhana untuk menyisipkan baris baru di Excel. Baca terus untuk melihat cara menambahkan beberapa kolom kosong ke daftar Anda.
Tip. Pintasan keyboard yang lebih bermanfaat dapat ditemukan di 30 pintasan keyboard Excel yang paling berguna.
Sisipkan beberapa kolom baru di Excel
Anda mungkin perlu menambahkan lebih dari satu kolom baru ke lembar kerja Anda. Ini tidak berarti Anda harus memilih kolom satu per satu dan menekan pintasan sisipkan kolom di Excel setiap kali. Untungnya dimungkinkan untuk menempelkan beberapa kolom kosong sekaligus.
1. Sorot kolom sebanyak kolom baru yang ingin Anda dapatkan dengan memilih tombol kolom. Kolom-kolom baru akan segera muncul di sebelah kiri.
Tip. Anda dapat melakukan hal yang sama jika Anda memilih beberapa sel yang berdekatan dalam satu baris dan tekan Ctrl + Space .
2. Tekan Ctrl + Shift+ + (plus pada keyboard utama) untuk melihat beberapa kolom baru yang disisipkan.
Tekan F4 untuk mengulangi tindakan terakhir atau Ctrl + Y untuk menyisipkan kolom baru.
Ini adalah bagaimana Anda dapat dengan mudah menambahkan beberapa kolom baru ke tabel Anda di Excel. Jika Anda perlu menambahkan beberapa kolom yang tidak berdekatan, lihat langkah-langkah di bawah ini.
Menjumlahkan beberapa kolom yang tidak berdekatan
Excel memungkinkan memilih beberapa kolom yang tidak bergabung dan menggunakan pintasan kolom sisipkan untuk mendapatkan kolom baru muncul di sebelah kiri mereka.
1. Pilih beberapa kolom yang tidak berdekatan dengan mengklik pada kolomnya surat tombol dan menjaga tombol Ctrl Kolom yang baru disisipkan akan muncul di sebelah kiri.
2. Tekan Ctrl + Shift+ + (plus pada keyboard utama) untuk melihat beberapa kolom baru yang disisipkan secara massal.
Tambahkan kolom ke daftar yang diformat sebagai Tabel Excel
Jika spreadsheet Anda diformat sebagai Tabel Excel Anda dapat Anda dapat memilih opsi Menyisipkan Kolom Tabel ke Kanan jika itu kolom terakhir. Anda juga dapat memilih opsi Menyisipkan Kolom Tabel ke Kiri untuk kolom apa pun dalam tabel Anda.
1. Untuk menyisipkan kolom, Anda harus memilih kolom yang diperlukan dan klik kanan padanya.
2. Kemudian pilih Sisipkan -> Kolom Tabel ke Kanan untuk kolom terakhir atau Kolom Tabel ke Kiri .
Kolom baru akan dinamai Column1 secara default.
Makro VBA khusus untuk menyisipkan setiap kolom lainnya
Banyak pengguna Excel mencoba menghemat waktu sebanyak mungkin dengan mengotomatiskan tugas spreadsheet yang sering dilakukan. Jadi, saya tidak bisa meninggalkan posting ini tanpa makro. Ambil sepotong kode sederhana ini jika Anda perlu memindahkan kolom terpisah.
Sub InsertEveryOtherColumn() Dim colNo, colStart, colFinish, colStep As Long Dim rng2Insert As Range colStep = 2 colStart = Application.Selection.Cells(1, 1).Column + 1 colFinish = (ActiveSheet.UsedRange.SpecialCells( _ xlCellTypeLastCell).Column * 2) - colStart Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For colNo = colStart To colFinish Step colStepActiveSheet.Cells(1, colNo).EntireColumn.Insert Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End SubSemoga tips ini akan membantu Anda dalam pekerjaan Anda dengan spreadsheet. Jika Anda sering bekerja dengan Excel pada level baris dan kolom, lihat posting terkait yang ditautkan di bawah ini, yang dapat menyederhanakan beberapa tugas untuk Anda. Saya selalu menyambut komentar dan pertanyaan Anda. Berbahagialah dan unggul di Excel!