Formulasi masalah
Kita duwe sawetara sel kanthi data sing ngemot sel kosong:
Tugas kanggo mbusak sel kosong, mung ninggalake sel kanthi informasi.
Cara 1. Kasar lan cepet
- Milih kisaran asli
- Pencet tombol F5, tombol sabanjuré Penting (Khusus). Ing jendhela sing mbukak, pilih sel kosong(Kosong) lan klik OK.
Kabeh sel kosong ing kisaran dipilih.
- Kita menehi prentah ing menu kanggo mbusak sel sing dipilih: klik-tengen- Mbusak sel (Busak sel) kanthi shift munggah.
Cara 2: Formula Array
Kanggo nyederhanakake, ayo jeneng kisaran kerja kita nggunakake Jeneng Manajer (Nama Manager) tab rumus (Formula) utawa, ing Excel 2003 lan lawas, menu Lebokake - Jeneng - Temtokake (Sisipake - Jeneng - Define)
Jenenge kisaran B3:B10 Duwe Kosong, kisaran D3:D10 – Ora anaKosong. Range kudu ukurane padha, lan bisa dumunung ing ngendi wae relatif kanggo saben liyane.
Saiki pilih sel pisanan saka kisaran kapindho (D3) lan ketik rumus medeni iki:
=IF(ROW() -ROW(NoEmpty)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty);"";INDIRECT(ALAMAT(LONDOK((IF(Kosong<>"",ROW(Kosong);ROW())) + ROWS(Ana Kosong))); LINE()-ROW(Ora Kosong)+1); COLUMN(Ana Kosong); 4)))
Ing versi Inggris bakal dadi:
=IF(ROW()-ROW(NoEmpty)+1>ROWS(Kosong)-COUNTBLANK(Kosong),””,INDIRECT(ALAMAT(CIL((if(Kosong<>“”,ROW(Kosong),ROW()) +ROWS(HaveEmpty))),ROW()-ROW(NoEmpty)+1),COLUMN(HaveEmpty),4)))
Kajaba iku, kudu dilebokake minangka rumus array, yaiku penet sawise nempel Ketik (kaya biasane) lan Ctrl + Shift + Ketik. Saiki rumus kasebut bisa disalin nggunakake autocomplete (seret salib ireng ing pojok tengen ngisor sel) - lan kita bakal entuk kisaran asli, nanging tanpa sel kosong:
Cara 3. Fungsi khusus ing VBA
Yen ana anggepan yen sampeyan bakal kerep kudu mbaleni prosedur kanggo mbusak sel kosong saka kisaran, iku luwih apik kanggo nambah fungsi dhewe kanggo njabut sel kosong kanggo nyetel standar sapisan, lan nggunakake ing kabeh kasus sakteruse.
Kanggo nindakake iki, bukak Visual Basic Editor (ALT + F11), lebokake modul kosong anyar (menu Insert - Modul) lan salin teks fungsi iki ana:
Fungsi NoBlanks(DataRange As Range) Minangka Varian() Dim N Minangka Long Dim N2 As Long Dim Rng Minangka Range Dim MaxCells Minangka Long Dim Result() Minangka Varian Dim R Minangka Long Dim C Minangka Long MaxCells = Application.WorksheetFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Result(1 To MaxCells, 1 To 1) Kanggo Saben Rng Ing DataRange.Cells Yen Rng.Value <> vbNullString Banjur N = N + 1 Hasil(N, 1 ) = Rng.Value End Yen Sabanjure Rng Kanggo N2 = N + 1 Kanggo MaxCells Result(N2, 1) = vbNullString Next N2 Yen Application.Caller.Rows.Count = 1 Banjur NoBlanks = Application.Transpose(Asil) Liyane NoBlanks = Asil Fungsi End If End
Aja lali kanggo nyimpen file lan bali saka Visual Basic Editor kanggo Excel. Kanggo nggunakake fungsi iki ing conto kita:
- Pilih sawetara sel kosong sing cukup, contone F3:F10.
- Bukak menu Insert - Fungsi (Sisipake - Fungsi)utawa klik ing tombol Fungsi insert (Fungsi Insert) tab rumus (Formula) ing versi Excel sing luwih anyar. Ing kategori Ditetepake pangguna (Ditetepake pangguna) pilih fungsi kita Ora Kosong.
- Nemtokake sawetara sumber kanthi voids (B3:B10) minangka argumen fungsi lan pencet Ctrl + Shift + Ketikkanggo ngetik fungsi minangka rumus array.
:
- Mbusak kabeh baris kosong ing tabel bebarengan karo makro prasaja
- Mbusak kabeh baris kosong ing lembar kerja kanthi nggunakake tambahan PLEX
- Isi cepet kabeh sel kosong
- Apa macro, ngendi kanggo masang kode makro ing VBA