Biasanya dalam lembaran kerja excel kita mempunyai dua kaedah yang berbeza untuk menghapus lajur satu adalah jalan pintas 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 lajur bersama-sama, trik 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 cemerlang seperti memotong, menyalin, menampal, menambah, menghapus, memasukkan, dan banyak perkara seperti itu 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, ia akan menghapus lajur 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 ingin menghapus beberapa lajur, kita tidak dapat memasukkan lajur. Kita perlu merujuk lajur dengan tajuk lajur, iaitu huruf.
Lajur ("A: D"). Padam
Ini akan menghapus 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 memadamkan lajur menggunakan VBA.
Contoh # 1 - Menggunakan Kaedah Hapus
Andaikan anda mempunyai lembaran data, seperti di bawah.
Sekiranya kita mahu memadamkan lajur bulan "Mar", pilih dahulu lajur properti
Kod:
Sub Hapus_Contoh1 () Lajur (Sub Akhir
Sebut nombor lajur atau abjad. Dalam kes ini, 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 taip "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 ruangan yang disebutkan.
Sekiranya kita mahu memadamkan beberapa lajur, kita perlu menyebutnya dalam abjad. Kami tidak boleh menggunakan nombor lajur di sini.
Sekiranya kita mahu memadamkan lajur 2 hingga 4, kita dapat 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 aktif, ia akan menghapus lajur helaian tersebut.
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 boleh 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 lembaran kerja "Lembaran Jualan." Untuk kod ini, tidak kira yang aktif. Namun, 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"). Hapus Sub Akhir
Ini juga menghapus lajur "B hingga D" tanpa memilih lembaran kerja "Lembaran Jualan."
Contoh # 3 - Padamkan Lajur Kosong
Andaikan anda mempunyai data yang mempunyai lajur kosong alternatif seperti di bawah.
Jadi, hapus setiap lajur alternatif yang boleh kita gunakan kod di bawah.
Kod:
Sub Delete_Contoh3 () Dim k Sebagai Integer Untuk k = 1 Hingga 4 Tiang (k + 1). Padam Seterusnya k Akhir Sub
Jalankan kod ini menggunakan kekunci F5 atau secara manual. Kemudian, ia akan memadamkan semua lajur kosong alternatif, dan data kami akan kelihatan seperti ini.
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, keperluan saya adalah 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 kod di bawah 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 perlu memiliki sifat 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.
Pemilihan. Seluruh Kolom. Hapus
Jadi hasil akhir kita akan kelihatan seperti ini.
Di mana sahaja ia menjumpai sel kosong, ia telah menghapuskan keseluruhan lajur sel kosong itu.
Anda boleh memuat turun Excel VBA Delete Column ini di sini - Templat Hapus Column VBA
