Lajur Padam VBA

Biasanya dalam lembaran kerja excel kita mempunyai dua kaedah yang berbeza untuk menghapus lajur satu iaitu pintasan papan kekunci dan yang lain dengan menggunakan kaedah klik kanan dan sisipkan tetapi di VBA kita harus menggunakan perintah hapus dan seluruh pernyataan lajur untuk menghapus mana-mana lajur, silap untuk ini adalah bahawa jika kita perlu menghapus satu lajur, kita memberikan rujukan lajur tunggal tetapi untuk beberapa lajur kita memberikan rujukan lajur berganda.

Excel VBA Padam Lajur

Kami melakukan banyak tindakan dalam excel seperti memotong, menyalin, menampal, menambah, menghapus, memasukkan, dan banyak perkara seperti yang kami lakukan secara berkala. Kita boleh menggunakan semua tindakan ini menggunakan Pengekodan VBA. Salah satu konsep penting yang perlu kita pelajari adalah dalam VBA adalah "menghapus lajur". Dalam artikel ini, kami akan menunjukkan kepada anda cara menggunakan pilihan Hapus Lajur ini di VBA.

Apa yang Hapus Lajur Lakukan di Excel VBA?

Seperti namanya akan menghapus ruangan yang ditentukan. Untuk melaksanakan tugas ini, kita perlu mengenal pasti lajur mana yang perlu kita hapus. Pemilihan lajur untuk dihapus berbeza dari satu senario ke senario yang lain, jadi kami akan membahas beberapa senario penting dan sering dihadapi dalam artikel ini.

Menghapus lajur adalah mudah. Pertama, kita perlu menggunakan properti COLUMNS untuk memilih lajur, jadi di bawah ini adalah sintaks kaedah Hapus Lajur di VBA.

Lajur (Rujukan Lajur). Padam

Oleh itu, kita boleh membina kod seperti ini:

Lajur (2). Hapus atau Lajur ("B"). Padam

Ini akan memadamkan lajur nombor 2 iaitu Lajur B.

Sekiranya kita mahu menghapus beberapa lajur kita tidak dapat memasukkan lajur, kita perlu merujuk lajur dengan tajuk lajur iaitu huruf.

Lajur ("A: D"). Padam

Ini akan memadamkan lajur dari A hingga D iaitu 4 lajur pertama.

Seperti ini, kita dapat menggunakan kaedah "Hapus Lajur" di VBA untuk menghapus lajur tertentu. Di bahagian bawah kita akan melihat lebih banyak contoh untuk memahaminya dengan lebih baik. Teruskan membaca.

Contoh Kaedah Padam Lajur Excel VBA

Berikut adalah contoh untuk menghapus lajur menggunakan VBA.

Contoh # 1 - Menggunakan Kaedah Hapus

Andaikan anda mempunyai lembaran data seperti di bawah.

Sekiranya kita ingin menghapus lajur bulan "Mar", pilih dahulu properti lajur.

Kod:

 Sub Hapus_Contoh1 () Lajur (Sub Akhir

Sebut nombor lajur atau abjad. Dalam kes ini, ia sama ada 3 atau C.

Kod:

Sub Hapus_Contoh1 () Lajur (3). Sub Akhir

Gunakan kaedah Padam.

Catatan: anda tidak akan mendapat senarai IntelliSense untuk memilih kaedah Hapus, cukup ketik "Padam",

Kod:

 Sub Hapus_Contoh1 () Lajur (3). Hapus Sub Akhir

Atau anda boleh memasukkan alamat lajur seperti ini.

Kod:

 Sub Hapus_Contoh1 () Lajur ("C"). Hapus Sub Akhir

Jalankan Kod ini menggunakan kekunci F5 atau anda boleh menjalankan secara manual dan melihat hasilnya.

Kedua-dua kod tersebut akan melakukan tugas yang sama dengan menghapus lajur yang disebutkan.

Sekiranya kita mahu memadamkan beberapa lajur, kita perlu menyebutnya dalam huruf, kita tidak boleh menggunakan nombor lajur di sini.

Sekiranya kita mahu memadamkan lajur 2 hingga 4, kita boleh meneruskan kod seperti di bawah.

Kod:

 Sub Hapus_Contoh1 () Lajur ("C: D"). Hapus Sub Akhir

Jalankan kod ini secara manual melalui pilihan jalankan atau tekan kekunci F5, ini akan menghapus lajur "Feb", "Mar", dan "Apr".

Contoh # 2 - Padamkan Lajur dengan Nama Lembaran Kerja

Di atas adalah gambaran umum tentang cara menghapus lajur menggunakan kod VBA. Namun, itu bukan amalan yang baik untuk menghapus lajur, tanpa merujuk nama lembaran kerja, adalah berbahaya untuk menghapus lajur secara membuta tuli.

Sekiranya anda belum menyebut nama lembaran kerja, mana sahaja lembaran yang aktif akan menghapus lajur helaian itu.

Pertama, kita perlu memilih lembaran kerja dengan namanya.

Kod:

 Sub Delete_Example2 () Lembaran Kerja ("Lembaran Jualan"). Pilih Sub Akhir

Setelah memilih helaian, kita perlu memilih lajur. Kita juga dapat memilih lajur dengan menggunakan objek VBA RANGE juga.

Kod:

 Sub Delete_Example2 () Lembaran Kerja ("Lembaran Jualan"). Pilih Julat ("B: D"). Hapus Sub Akhir

Ini akan menghapus lajur B hingga D, dari lembaran kerja "Lembaran Jualan". Untuk kod ini, tidak kira yang aktif, ia akan memadamkan lajur yang disebutkan pada helaian itu sahaja.

Kita juga boleh membina kod VBA dalam satu baris itu sendiri.

Kod:

 Sub Delete_Example2 () Lembaran Kerja ("Lembaran Jualan"). Julat ("B: D"). Padam Sub Akhir

Ini juga akan menghapus lajur “B hingga D” tanpa memilih lembaran kerja “Sales Sheet”.

Contoh # 3 - Padamkan Lajur Kosong

Andaikan anda mempunyai data yang mempunyai lajur kosong alternatif seperti di bawah.

Jadi, hapuskan setiap lajur alternatif yang boleh kita gunakan di bawah kod.

Kod:

 Sub Delete_Contoh3 () Dim k Sebagai Integer Untuk k = 1 Hingga 4 Lajur (k + 1). Padam Seterusnya k Akhir Sub

Jalankan kod ini menggunakan kekunci F5 atau secara manual, ia akan menghapus semua lajur kosong alternatif dan data kami akan kelihatan seperti ini.

Catatan: Ini hanya berfungsi untuk lajur kosong alternatif.

Contoh # 4 - Padamkan Lajur Sel Kosong

Sekarang, lihat contoh ini. Terdapat situasi tertentu di mana kita perlu menghapus keseluruhan lajur jika ada sel kosong yang terdapat dalam julat data. Pertimbangkan data di bawah untuk contoh.

Semua sel berwarna kuning kosong. Jadi di sini syarat saya adalah untuk menghapus semua lajur sel kosong. Kod di bawah akan melakukannya.

Kod:

 Sub Delete_Example4 () Range ("A1: F9"). Pilih Selection.SpecialCells (xlCellTypeBlanks). Pilih Seleksi.EntireColumn. Hapus Sub Akhir

Izinkan saya menerangkan kod ini mengikut baris untuk anda.

Data kami ada dari A1 hingga F9, jadi pertama saya perlu memilih julat itu, dan di bawah kod akan melakukannya.

Julat ("A1: F9"). Pilih

Dalam julat sel yang dipilih ini, saya perlu memilih sel yang kosong. Oleh itu, untuk memilih sel kosong, kita memerlukan harta sel khas dan dalam harta itu, kita telah menggunakan jenis sel sebagai kosong.

Selection.SpecialCells (xlCellTypeBlanks). Pilih

Selanjutnya, ia akan memilih semua sel kosong dan dalam pemilihan, kita akan menghapus keseluruhan lajur pilihan.

Seleksi.EntireColumn.Hapus

Jadi hasil akhir kita akan kelihatan seperti ini.

Di mana sahaja ia menjumpai sel kosong, ia telah menghapus keseluruhan sel kosong itu di seluruh lajur.

Anda boleh memuat turun Excel VBA Delete Column ini di sini - Templat Hapus Column VBA