Bagaimana cara menghapus seluruh kolom berdasarkan nilai header di Excel?

Dalam banyak kasus, Anda mungkin perlu menghapus seluruh kolom berdasarkan nilai header di Excel. Misalnya, Anda perlu menghapus semua kolom yang berisi nilai "lama" di header. Dalam tutorial ini, kami akan menunjukkan kepada Anda metode untuk menghapus seluruh kolom berdasarkan nilai header secara detail.

Hapus seluruh kolom berdasarkan nilai header dengan kode VBA
Hapus seluruh kolom berdasarkan nilai header dengan Kutools for Excel

Hapus seluruh kolom berdasarkan nilai header dengan kode VBA

Anda dapat menghapus seluruh kolom berdasarkan nilai header dengan kode VBA. Silakan lakukan sebagai berikut.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Aplikasi Microsoft Visual Basic jendela.

2. Dalam Aplikasi Microsoft Visual Basic window, klik Menyisipkan > Modul. Dan kemudian salin dan tempel kode di bawah ini ke jendela Modul.

Kode VBA: hapus seluruh kolom berdasarkan nilai header

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

Catatan:

1) dalam kode, “tua"Adalah nilai tajuk yang ingin Anda hapus berdasarkan seluruh kolom. Harap ubah ke nilai tajuk Anda secara manual. Dan A1: D1 adalah rentang kolom yang ingin Anda gunakan.

2) Kode ini peka huruf besar/kecil.

3. tekan F5 kunci untuk menjalankan kode, seluruh kolom dengan header sama dengan teks yang ditentukan akan segera dihapus.

Hapus seluruh kolom berdasarkan nilai header dengan Kutools for Excel

Dengan Kutools untuk Excel'S Pilih Sel Spesifik utilitas, Anda dapat dengan mudah memilih semua kolom yang berisi nilai tajuk tertentu terlebih dahulu, lalu menghapus kolom yang dipilih ini sekaligus. Silakan lakukan sebagai berikut.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Pilih rentang yang berisi kolom yang perlu Anda hapus, lalu klik Kutools > Pilih > Pilih Sel Spesifik. Lihat tangkapan layar:

2. Dalam Pilih Sel Spesifik kotak dialog, pilih Seluruh kolom pilihan dalam Tipe pilihan bagian, dan di Tipe khusus daftar drop-down, pilih sama opsi, lalu ketik nilai header di kotak berikut ini. Dan terakhir klik OK tombol. Lihat tangkapan layar:

3. Klik OK tombol di kotak dialog popping up lain, kemudian kolom yang berisi nilai header tertentu dipilih segera.

4. Klik kanan tajuk kolom dari kolom yang dipilih, lalu klik Delete dari menu klik kanan. Kemudian semua kolom yang dipilih dihapus sekaligus.

Jika Anda ingin memiliki uji coba gratis (30-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Alat Produktivitas Kantor Terbaik

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

Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
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 tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... 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 ...
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...
Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

Read More ... Download Gratis... Membeli...

Tab Office Membawa 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 ... Download Gratis... Membeli...

komentar (12)

Belum ada peringkat. Jadilah yang pertama memberi peringkat!

Leonard Staggs

tentang 5 tahun lalu

#19816

Komentar ini diminimalkan oleh moderator di situs

Maaf jika ini tampak sangat mendasar tetapi ini adalah pertama kalinya saya mencoba vba. Menggunakan ini bagaimana saya menerapkannya untuk menghapus beberapa tajuk kolom. Saya sebenarnya mencoba untuk hanya menyimpan kolom tajuk tertentu dan menghapus sisa daftar yang berubah.

membalas

nenek moyang Leonard Staggs

sekitar 1 tahun yang lalu

#19817

Komentar ini diminimalkan oleh moderator di situs

Pada kode pertama cukup salin baris ke-4 dan ubah "lama" menjadi nama kolom kedua dan itu akan berfungsi

membalas

Elias

tentang 4 tahun lalu

#26882

Komentar ini diminimalkan oleh moderator di situs

Hai! Ini berfungsi dengan baik hingga Anda memiliki dua kolom yang berdekatan dengan tajuk yang sama. Katakanlah rentang Anda adalah A1:A5, dan A2 dan A3 memiliki tajuk 'lama'. Ini akan menghapus A2, tetapi kemudian A3 akan pindah ke tempat A2 dulu, dan kode akan melewatinya, karena akan melihat A3 baru, sel berikutnya dalam jangkauannya.

membalas

kristal Elias

tentang 4 tahun lalu

#26883

Komentar ini diminimalkan oleh moderator di situs

Hai Elias,
Seperti yang Anda sebutkan, A2 dan A3 memiliki tajuk "lama" yang sama. Tetapi mereka berada di kolom yang sama, setelah menerapkan kode, seluruh kolom A akan segera dihapus.
Saya tidak yakin saya mengerti maksud Anda. Akan lebih baik jika Anda dapat memberikan tangkapan layar dari apa yang Anda coba lakukan.

membalas

Laporan

Mark

tentang 2 tahun lalu

#32598

Komentar ini diminimalkan oleh moderator di situs

Hai, apakah mungkin melakukan ini dengan beberapa nama kolom?

membalas

kristal Mark

tentang 2 tahun lalu

#32599

Komentar ini diminimalkan oleh moderator di situs

Hai Mark,
Coba kode di bawah ini. Pada baris kedelapan, harap sertakan setiap nama kolom dengan tanda kutip ganda dan pisahkan dengan koma. Semoga saya bisa membantu. Terima kasih.

Sub HapusSpecifcColumn()

Redupkan xFNum, xFFNum, xHitung Sebagai Integer

Redupkan xStr Sebagai String

Dim xArrName Sebagai Varian

Redupkan MR, xRg Sebagai Rentang

On Error Resume Next

Tetapkan MR = Rentang("A1:N1")

xArrName = Array("old", "new", "get") 'lampirkan setiap nama kolom dengan tanda kutip ganda dan pisahkan dengan koma

xHitung = MR.Hitung

xStr = xArrName(xFNum)

Untuk xFFNum = xHitung Sampai 1 Langkah -1

Tetapkan xRg = Sel(1, xFFNum)

Untuk xFNum = 0 Ke UBound(xArrName)

xStr = xArrName(xFNum)

Jika xRg.Value = xStr Maka xRg.EntireColumn.Delete

xFNum berikutnya

Next

End Sub

membalas

Laporan

Batang Paulus kristal

sekitar 1 tahun yang lalu

#32600

Komentar ini diminimalkan oleh moderator di situs

Saya pikir baris 12 perlu diubah agar kode berfungsi. Baris asli 12 "Set xRg = Cells(1, xFFNum)" baris yang dimodifikasi 12 "Set xRg = MR(1, xFFNum)"
Sub HapusSpecifcColumn()
Redupkan xFNum, xFFNum, xHitung Sebagai Integer
Redupkan xStr Sebagai String
Dim xArrName Sebagai Varian
Redupkan MR, xRg Sebagai Rentang
On Error Resume Next
Tetapkan MR = Rentang("A1:N1")
xArrName = Array("old", "new", "get") 'lampirkan setiap nama kolom dengan tanda kutip ganda dan pisahkan dengan koma
xHitung = MR.Hitung
xStr = xArrName(xFNum)
Untuk xFFNum = xHitung Sampai 1 Langkah -1
Tetapkan xRg = MR(1, xFFNum)
Untuk xFNum = 0 Ke UBound(xArrName)
xStr = xArrName(xFNum)
Jika xRg.Value = xStr Maka xRg.EntireColumn.Delete
xFNum berikutnya
Next
End Sub

membalas

Rahul Mark

sekitar 1 tahun yang lalu

#32601

Komentar ini diminimalkan oleh moderator di situs

Bagaimana jika tajuk dimulai dari baris ke-4?

membalas

Jonathan

sekitar 1 tahun yang lalu

#35388

Komentar ini diminimalkan oleh moderator di situs

Contoh VBA menyatakan bahwa kode akan menghapus semua kolom yang headernya BERISI "lama". Itu tidak terjadi. Operator = hanya akan menghapus kecocokan persis. Anda perlu menggunakan operator LIKE dengan wildcard.
Kode tetap: Sub DeleteSpecifcColumn()
Tetapkan MR = Rentang("A1:D1")
Untuk Setiap sel Dalam MR
Jika cell.Value LIKE "old*" Kemudian cell.EntireColumn.Delete
Next
End Sub

membalas

kristal Jonathan

sekitar 1 tahun yang lalu

#35389

Komentar ini diminimalkan oleh moderator di situs

Hai, Terima kasih atas koreksi dan berbagi Anda.

membalas

Laporan

resnick

sekitar 9 bulan yang lalu

#37833

Komentar ini diminimalkan oleh moderator di situs

Hola, tengo una hoja de excel con varios datos, digamos 4 columnas y 12 filas, me gustaría poder imprimir cada fila en un folio separado en una plantilla, es decir, tenemos una hoja con varios nombres y apellidos y teléfono, quiero páriginas como filas tenga la hoja de excel, he inte tado varias cosas pero no encuentro la forma. Gracias de antemano

membalas

kristal resnick

sekitar 9 bulan yang lalu

#37838

Komentar ini diminimalkan oleh moderator di situs

Hai,
Jika Anda ingin mencetak setiap baris di halaman terpisah di lembar kerja, berikut adalah saran agar Anda menyisipkan hentian halaman setiap 1 baris dan kemudian mencetaknya.
Metode yang disediakan dalam artikel ini dapat membantu Anda. Silakan coba. Terima kasih.
Bagaimana Memasukkan Page Break Setiap X Baris Di Excel?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html

membalas

Laporan

Belum ada komentar yang diposting di sini

Tinggalkan komentar anda

Posting sebagai Tamu

Nama (Wajib)

Email (Diperlukan)

Beri peringkat pos ini:

ulang

0 Karakter

Saya setuju dengan syarat dan ketentuan