Daptar eusi
Rumusan masalah
Urang boga rentang sél jeung data nu ngandung sél kosong:
Tugasna nyaéta ngaleupaskeun sél kosong, ngan ukur nyésakeun sél anu gaduh inpormasi.
Métode 1. Kasar jeung gancang
- Milih rentang aslina
- Pencét konci na F5, tombol salajengna sorot (Istiméwa). Dina jandela nu muka, pilih Sél kosong(Kosong) teras klik OK.
Sadaya sél kosong dina rentang dipilih.
- Kami masihan paréntah dina ménu pikeun ngahapus sél anu dipilih: klik katuhu- Hapus sél (Hapus Sél) kalawan shift ka luhur.
Métode 2: Formula Array
Pikeun nyederhanakeun, hayu urang ngaranan rentang gawé urang ngagunakeun Manajer Ngaran (Ngaran Manajer) tab rumus (Rumus) atawa, dina Excel 2003 tur heubeul, menu nu Lebetkeun - Ngaran - Assign (Selapkeun - Ngaran - Tangtukeun)
Ngaran rentang B3:B10 Boga Kosong, rentang D3:D10 – Euweuh Kosong. Rentang-rentang kedah sami sareng ukuranana, sareng tiasa ditempatkeun di mana waé anu aya hubunganana.
Ayeuna pilih sél kahiji tina rentang kadua (D3) jeung asupkeun rumus pikasieuneun ieu kana eta:
=IF(BARIS() -BARIS(NoKosong)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty);"";TIDAK LANGSUNG(ALAMAT(LOWEST((IF(Kosong<>"",Baris(Kosong););BARIS())) + ROWS(Aya Kosong))); LINE()-ROW(No Kosong)+1); COLUMN(Aya Kosong); 4)))
Dina versi Inggris bakal kieu:
=IF(ROW()-ROW(NoEmpty)+1>BARIS(Kosong)-COUNTBLANK(Kosong),””,TIDAK LANGSUNG(ALAMAT(LEUTIK((IF(Kosong<>“”,BARIS(Kosong),BARIS())) +ROWS(HaveEmpty))),ROW()-ROW(NoEmpty)+1),COLUMN(HaveEmpty),4)))
Leuwih ti éta, éta kudu diasupkeun salaku rumus Asép Sunandar Sunarya, nyaéta pencét sanggeus pasting asup (sakumaha biasa) jeung Ctrl + Shift + Lebetkeun. Ayeuna rumusna tiasa disalin nganggo autocomplete (séréd salib hideung di pojok katuhu handap sél) - sareng urang bakal nampi kisaran asli, tapi tanpa sél kosong:
Métode 3. Fungsi custom di VBA
Upami aya kacurigaan yén anjeun sering kedah ngulang prosedur pikeun ngaleungitkeun sél kosong tina rentang, maka langkung saé pikeun nambihan fungsi anjeun nyalira pikeun ngahapus sél kosong kana set standar sakali, sareng dianggo dina sadaya kasus salajengna.
Jang ngalampahkeun ieu, buka Visual Basic Editor (Alt + F11), selapkeun modul kosong anyar (menu Selapkeun - Modul) sareng salin téks fungsi ieu di dinya:
Fungsi NoBlanks(DataRange Salaku Rentang) Salaku Varian () Taram N Sapanjang Taram N2 Sapanjang Taram Rng Salaku Rentang Taram MaxCells Salaku Long Taram Hasilna () Salaku Varian Taram Sunda Sa Panjang Taram C Sa Panjang MaxCells = Application.WorksheetFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Result(1 To MaxCells, 1 To 1) Pikeun Unggal Rng Dina DataRange.Cells Lamun Rng.Value <> vbNullString Lajeng N = N + 1 Hasil (N, 1 ) = Rng.Value Tungtung Lamun Salajengna Rng Pikeun N2 = N + 1 Pikeun MaxCells Hasil (N2, 1) = vbNullString Salajengna N2 Lamun Application.Caller.Rows.Count = 1 Lajeng NoBlanks = Application.Transpose(Hasil) Lain NoBlanks = Hasil Tungtung Lamun Tungtung Fungsi
Tong hilap simpen file sareng gentos deui tina Visual Basic Editor ka Excel. Pikeun nganggo fungsi ieu dina conto urang:
- Pilih rentang sél kosong anu cukup, contona F3:F10.
- Buka ménu Selapkeun - Fungsi (Selapkeun - Fungsi)atawa klik dina tombol fungsi Selapkeun (Fungsi Insert) tab rumus (Rumus) dina versi Excel nu leuwih anyar. Dina kategori Pangguna Ditetepkeun (Pamaké Ditetepkeun) pilih fungsi kami Noblank.
- Sebutkeun rentang sumber sareng voids (B3:B10) salaku argumen fungsi sareng pencét Ctrl + Shift + Lebetkeunpikeun ngasupkeun fungsi salaku rumus Asép Sunandar Sunarya.
:
- Mupus sadaya baris kosong dina tabel sakaligus ku makro basajan
- Ngahapus sadaya baris kosong dina lembar kerja sakaligus nganggo tambihan PLEX
- Eusian gancang sadaya sél kosong
- Naon macros, dimana nyelapkeun kode makro di VBA