Contents [show]
Perumusan masalah
Kami mempunyai julat sel dengan data yang mengandungi sel kosong:
Tugasnya adalah untuk membuang sel kosong, hanya meninggalkan sel dengan maklumat.
Kaedah 1. Kasar dan pantas
- Memilih julat asal
- Tekan kekunci F5, butang seterusnya Serlahkan (Istimewa). Dalam tetingkap yang terbuka, pilih sel kosong(Kosong) dan klik OK.
Semua sel kosong dalam julat dipilih.
- Kami memberi arahan dalam menu untuk memadam sel yang dipilih: klik kanan- Padamkan sel (Padamkan Sel) dengan anjakan ke atas.
Kaedah 2: Formula Tatasusunan
Untuk memudahkan, mari namakan julat kerja kami menggunakan Pengurus Nama (Pengurus Nama) tab formula (Formula) atau, dalam Excel 2003 dan lebih lama, menu Sisipkan – Nama – Tugaskan (Sisipkan — Nama — Tentukan)
Namakan julat B3:B10 HaveEmpty, julat D3:D10 – TiadaKosong. Julat mestilah sama besar saiznya, dan boleh ditempatkan di mana-mana berbanding antara satu sama lain.
Sekarang pilih sel pertama julat kedua (D3) dan masukkan formula menakutkan ini ke dalamnya:
=IF(ROW() -ROW(NoKosong)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty);””;TIDAK LANGSUNG(ALAMAT(TERENDAH((JIKA(Kosong<>“”,ROW(Kosong);ROW()) + ROWS(Ada Kosong))); LINE()-ROW(Tiada Kosong)+1); COLUMN(Ada Kosong); 4)))
Dalam versi bahasa Inggeris ia akan menjadi:
=IF(ROW()-ROW(NoKosong)+1>ROWS(Kosong)-COUNTBLANK(Kosong),””,TIDAK LANGSUNG(ALAMAT(KECIL((JIKA(Kosong<>“”,ROW(Kosong),ROW()) +ROWS(HaveEmpty))),ROW()-ROW(NoKosong)+1), COLUMN(HaveEmpty),4)))
Selain itu, ia mesti dimasukkan sebagai formula tatasusunan, iaitu tekan selepas menampal Masukkan (seperti biasa) dan Ctrl + Shift + Enter. Kini formula boleh disalin ke bawah menggunakan autolengkap (seret pangkah hitam di sudut kanan bawah sel) – dan kita akan mendapat julat asal, tetapi tanpa sel kosong:
Kaedah 3. Fungsi tersuai dalam VBA
Jika terdapat syak wasangka bahawa anda sering perlu mengulangi prosedur untuk mengalih keluar sel kosong daripada julat, maka lebih baik untuk menambah fungsi anda sendiri untuk mengalih keluar sel kosong ke set standard sekali, dan menggunakannya dalam semua kes berikutnya.
Untuk melakukan ini, buka Editor Visual Basic (ALT + F11), masukkan modul kosong baharu (menu Sisipan – Modul) dan salin teks fungsi ini di sana:
Fungsi TiadaKosong(Julat Data Sebagai Julat) Sebagai Varian() Malap N Sepanjang Malap N2 Sepanjang Malap Rng Sebagai Julat Malapkan MaxCells Sebagai Long Malap Hasil() Sebagai Varian Malap R Sepanjang Malap C Sepanjang MaxCells = Application.WorksheetFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Result(1 To MaxCells, 1 To 1) Untuk Setiap Rng Dalam DataRange.Cells Jika Rng.Value <> vbNullString Then N = N + 1 Result(N, 1 ) = Rng.Nilai Tamat Jika Seterusnya Rng Untuk N2 = N + 1 Ke MaxCells Result(N2, 1) = vbNullString Next N2 Jika Application.Caller.Rows.Count = 1 Kemudian NoBlanks = Application.Transpose(Result) Lain NoBlanks = Result Tamat Jika Tamat Fungsi
Jangan lupa simpan fail dan tukar semula daripada Editor Visual Basic kepada Excel. Untuk menggunakan fungsi ini dalam contoh kami:
- Pilih julat sel kosong yang mencukupi, contohnya F3:F10.
- Pergi ke menu Sisipkan – Fungsi (Sisipkan — Fungsi)atau klik pada butang Fungsi Sisipkan (Fungsi Sisipkan) tab formula (Formula) dalam versi Excel yang lebih baharu. Dalam kategori Pengguna Ditentukan (Ditentukan Pengguna) pilih fungsi kami Tiada Kosong.
- Tentukan julat sumber dengan lompang (B3:B10) sebagai hujah fungsi dan tekan Ctrl + Shift + Enteruntuk memasukkan fungsi sebagai formula tatasusunan.
:
- Memadam semua baris kosong dalam jadual sekaligus dengan makro ringkas
- Mengalih keluar semua baris kosong dalam lembaran kerja sekali gus menggunakan alat tambah PLEX
- Cepat isi semua sel kosong
- Apakah makro, tempat untuk memasukkan kod makro dalam VBA