Upami anjeun milarian solusi atanapi sababaraha trik khusus pikeun ngabersihan eusi rentang sareng Excel VBA maka anjeun parantos sumping di tempat anu leres. Aya sababaraha léngkah anu gampang pikeun ngabersihkeun eusi rentang nganggo Excel VBA . Tulisan ieu bakal nunjukkeun anjeun unggal léngkah kalayan ilustrasi anu leres ku kituna anjeun tiasa kalayan gampang nerapkeunana pikeun tujuan anjeun. Hayu urang lebet ka bagian tengah artikel.

Unduh Buku Latihan Praktek

Anjeun tiasa ngaunduh buku latihan latihan ti dieu:

Hapus Eusi Rentang sareng Excel VBA: 3 Kasus

Anggap, anjeun gaduh set data anu anjeun hoyong nganggo deui ngabersihan sél anu tos aya. Janten, anjeun tiasa nganggo kode VBA pikeun mupus eusi file Excel. Dina bagian ieu, kuring bakal nunjukkeun anjeun metode anu gancang sareng gampang pikeun ngabersihan eusi rentang sareng Excel VBA dina sistem operasi Windows. Anjeun bakal mendakan panjelasan anu lengkep sareng ilustrasi anu jelas ngeunaan unggal hal dina tulisan ieu. Abdi parantos nganggo Vérsi Microsoft 365 di dieu. Tapi anjeun tiasa nganggo versi anu sanés tina kasadiaan anjeun. Upami artikel ieu teu tiasa dianggo dina versi anjeun, tinggalkeun koméntar kami.

Kasus 1: Hapus Sadayana Eusi Rentang

Anjeun tiasa nganggo Paréntah Hapus sareng Paréntah Hapus pikeun mupus eusi rentang khusus dina lembar kerja ayeuna atanapi lembar kerja sanés bahkan tina buku kerja sanés ogé. Abdi badéTémbongkeun ka anjeun sakabéh pasualan hiji-hiji.

i. Hapus Eusi Rentang Spésifik Sél

Lamun anjeun hoyong mupus eusi rentang spésifik, tuturkeun léngkah-léngkah ieu di handap:

📌 Léngkah-léngkah:

• Kanggo ieu, mimiti, buka pita luhur terus pencét Pamekar , teras pencét pilihan Visual Basic tina ménu.
• Anjeun tiasa nganggo ALT + F11 pikeun muka jandela “Microsoft Visual Basic for Applications” upami anjeun teu acan nambihan tab Pangembang.

• Ayeuna, jandela ngaranna “Microsoft Visual Basic for Applications” bakal nembongan. Di dieu ti bar ménu luhur, pencét dina "Selapkeun" Sareng ménu bakal muncul. Tina éta, pilih pilihan “Module'” .

• Ayeuna, “Modul” <2 anyar> jandela bakal muncul. Jeung Tempelkeun kode VBA ieu kana kotak.

Nganggo Clear Command:

8908

• Pikeun ngajalankeun kodeu buka ménu luhur, pencét dina Run pilihan, sarta di dieu bakal muka sababaraha pilihan séjén sarta pilih nu Run Sub/UserForm oge ngan saukur mencet F5 pikeun ngajalankeun kodeu.

• Nganggo paréntah Hapus , sél bakal diberesihan ogé pormat ogé bakal dihapus. Tapi sél kosong bakal aya.

Nganggo Komando Hapus:

Anjeun ogé tiasa nganggo Hapus paréntah tinimbang paréntah Hapus . Lajeng nempelkeunkode di handap ieu dina modul.

8910

Nganggo paréntah Hapus, nalika anjeun ngajalankeun kodeu, rentang sél anu dipilih bakal dihapus lengkep.

Baca Deui: Excel VBA: Hapus Eusi Lamun Sél Ngandung Niléy Spésifik

Béda Antara Hapus sareng Hapus Paréntah dina Excel VBA:

Beda konci antara paréntah Hapus sareng Hapus dina Excel VBA nyaéta yén Pupus paréntah miceun rentang sél anu dipilih sacara lengkep sareng paréntah Hapus ngan ukur ngaleungitkeun nilai sél sareng pormat tapi sél kosong bakal aya.

ii. Hapus Eusi Lembar Kerja Lengkep

Upami anjeun hoyong mupus sadaya sél lembar kerja teras paké kodeu ieu di handap. Di dieu, kuring mupus eusi tina lembar kerja ngaranna "1.2". Anjeun kudu nyelapkeun nami tina lembar kerja nu anjeun hoyong pupus dina koma tibalik.

9151

Oge, anjeun tiasa nganggo paréntah Hapus pikeun mupus sadaya sél anu dianggo dina lembar kerja. Teras, anjeun kedah nganggo kode anu dipasihkeun di handap ieu. Ngan, ganti ngaran LKS dina koma tibalik.

5431

iii. Hapus Eusi Lembar Kerja Aktif

Sakapeung, Anjeun meureun kudu mupus eusi LKS aktip wungkul. Dina hal ieu, anjeun kedah nganggo kode anu saderhana di handap ieu:

4879

Anjeun ogé tiasa nganggo paréntah hapus pikeun ngaleungitkeun sél lengkep tinalembar kerja aktip. pikeun ieu, témpélkeun kodeu di handap ieu kana modul.

Sub Delete_Contents_Range()

ActiveSheet.Cells.Delete

End Sub

Baca Selengkapnya: Bédana Antara Hapus sareng Hapus Eusi dina Excel

Kasus 2: Hapus Eusi Rentang Ngajaga Pormat

Dina métode saméméhna, anjeun perhatikeun yén anjeun ngahapus nilai sél sapanjang pormat sél ogé. Janten, upami anjeun hoyong ngahapus niléy sél wungkul bari ngajaga pormatna sami.

i. Eusi Rentang Spésifik

Anjeun tiasa nganggo paréntah ClearContents dina Excel VBA pikeun mupus eusi rentang khusus. Jang ngalampahkeun ieu, témpélkeun kodeu di handap ieu kana modul.

3511

Hasilna, nalika anjeun ngajalankeun kodeu anjeun bakal ningali sél anu dipilih dibersihkeun tapi formatna masih aya. .

Baca Selengkapnya: Kumaha Mupus Sél kalawan Niley Tangtu dina Excel (2 Cara)

ii. Eusi Lembar Kerja Spésifik

Lamun rék mupus eusi lembar kerja husus bari tetep formatna sarua, anjeun kudu maké kodeu ieu di handap:

2037

🔎 Katerangan Kode VBA:

• Worksheets(“2.2”) nyauran lembar kerja anu dingaranan “2.2” lamun Anjeun hoyong nyauran lembar kerja tina nami anu sanés, teras lebetkeun nami lembar kerja dina koma anu dibalikkeun.
• Jeung, Range("B2:D4") nyaéta nangtukeun rentang sélanu bakal diberesihan. Anjeun tiasa ngédit rentang sél pikeun kabutuhan anjeun.

iii. Eusi tina Workbook Lain

Anjeun oge bisa mupus nu eusi tina workbook sejen ngagunakeun VBA kode. Tapi, pikeun ieu, anjeun kedah tetep buku kerja éta buka . Anggo kodeu ieu di handap pikeun ieu:

4367

🔎 Katerangan Kode VBA:

• Workbooks(“file 1”) nyauran workbook ngaranna “File 1”. Nalika ngagunakeun workbooks anjeun, anjeun kudu nyelapkeun ngaran workbook dina koma inverted.
• Worksheets("Sheet1") nelepon lembar kerja anu ngaranna "Sheet 1". Pikeun nelepon lembar kerja anu sejenna, cukup lebetkeun ngaran LKS tinimbang "Lambar 1" dina kode ieu.
• Jeung, Rentang("B3:D13") nepikeun rentang sél nu bakal diberesihan. Anjeun tiasa ngédit rentang sél sakumaha kabutuhan Anjeun.

Baca Selengkapnya: Kumaha Mupus Eusi Tanpa Mupus Rumus Ngagunakeun VBA dina Excel

Kasus 3: Hapus Eusi Rentang Spésifik Sadaya Lembar Kerja sakaligus

Upami anjeun kedah mupus eusi sajumlah spésifik tina sababaraha lembar kerja anjeun tiasa ngalakukeun sakaligus nganggo kode VBA . Anjeun kedah nganggo For loop pikeun ngalakukeun tugas ieu. Tempelkeun kode ieu kana modul pikeun mupus eusi rentang B2:D4 sadaya lembar kerja. Upami anjeun hoyong ngarobih rentang sél teras édit 4thbaris teras selapkeun rentang data anjeun.

9750

Hal-hal anu Perlu Diinget

• Nganggo paréntah Hapus ngan bakal hapus niléy sél jeung formatna.
• Pupus paréntah bakal ngahapus sél sagemblengna.
• ClearContents paréntah bakal mupus niléy sél wungkul tur tetep format sél teu kacekel.

Kacindekan

Dina artikel ieu, anjeun geus manggihan cara ngabersihan eusi rentang jeung Excel VBA . Kuring miharep anjeun kapanggih artikel ieu mantuan. Anjeun tiasa nganjang ka halaman wéb kami ExcelWIKI pikeun neuleuman langkung seueur eusi anu aya hubunganana sareng Excel. Punten, lebetkeun koméntar, saran, atanapi patarosan upami aya dina bagian koméntar di handap.