Tutorial ini menunjukkan beberapa kaedah untuk memisahkan teks dan nombor dalam sel Excel, menggunakan kedua-dua fungsi terbina dalam dan fungsi VBA tersuai. Anda akan belajar bagaimana untuk mengekstrak nombor semasa mengeluarkan teks, mengasingkan teks semasa membuang nombor, dan akhirnya, memecah data ke dalam dua lajur yang berbeza.
Katakan data anda mempunyai lajur di mana teks dan nombor intermingled. Untuk data yang konsisten, fungsi mudah seperti LEFT
, RIGHT
, dan MID
mungkin cukup. Walau bagaimanapun, data dunia sebenar sering tidak konsisten, dengan nombor yang muncul sebelum, selepas, atau dalam teks. Penyelesaian di bawah menangani kerumitan ini.
Mengeluarkan teks untuk menyimpan nombor (Excel 365, 2021, 2019):
Microsoft Excel 2019 memperkenalkan fungsi TEXTJOIN
, yang memudahkan tugas ini. Formula di bawah leverage TEXTJOIN
, MID
, ROW
, INDIRECT
, SEQUENCE
, dan IFERROR
untuk mencapai ini.
Untuk Excel 365 dan 2021:
=TEXTJOIN("",TRUE,IFERROR(MID(A2,SEQUENCE(LEN(A2)),1)*1,""))
Untuk Excel 365 - 2019:
=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1,""))
(Dalam Excel 2019, ini memerlukan CTRL Shift Enter untuk entri formula array. Dalam array dinamik Excel, mudah masuk mudah.)
Formula ini melangkah melalui setiap watak, mendarab dengan 1 untuk menukar nombor; Watak bukan angka menjadi kesilapan, dikendalikan oleh IFERROR
untuk meninggalkan rentetan kosong. TEXTJOIN
kemudian menggabungkan bilangan yang tinggal.
Fungsi VBA tersuai (semua versi Excel):
Untuk versi Excel yang lebih lama atau pendekatan yang lebih mudah, fungsi VBA tersuai menawarkan penyelesaian yang diperkemas. Dua versi disediakan:
Kod VBA 1 (watak demi watak):
Fungsi RemoveXt (str as string) Dim sres sebagai rentetan sres = "" Untuk i = 1 hingga len (str) Jika isnumeric (mid (str, i, 1)) maka sres = sres & mid (str, i, 1) Seterusnya saya Membuangetext = sres Fungsi akhir
Kod VBA 2 (ungkapan biasa):
Fungsi ReveText (str as string) sebagai rentetan Dengan createObject ("vbscript.regexp") .Global = benar .Pattern = "[^0-9]" MembuangText = .Replace (str, "") Berakhir dengan Fungsi akhir
Gunakan fungsi ini dengan =RemoveText(A2)
. Kod 2 (menggunakan ungkapan biasa) secara amnya melakukan lebih baik pada dataset yang besar.
Mengeluarkan nombor untuk menyimpan teks (Excel 365, 2021, 2019):
Formula yang sama boleh mengekstrak teks semasa mengeluarkan nombor. Sekali lagi, menggunakan TEXTJOIN
, MID
, ROW
, INDIRECT
, SEQUENCE
, IFERROR
, dan ISERROR
:
Untuk Excel 365 dan 2021:
=TRIM(TEXTJOIN("",TRUE,IF(ISERROR(MID(A2,SEQUENCE(LEN(A2)),1)*1),MID(A2,SEQUENCE(LEN(A2)),1),"")))
Untuk Excel 365 - 2019:
=TRIM(TEXTJOIN("",TRUE,IF(ISERROR(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1),MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),"")))
Fungsi TRIM
menghilangkan ruang utama/trailing.
Fungsi VBA tersuai untuk mengeluarkan nombor (semua versi Excel):
Sama dengan fungsi VBA sebelumnya, berikut adalah dua versi untuk mengeluarkan nombor dan menyimpan teks:
Kod VBA 1 (watak demi watak):
Fungsi penyingkiran (str as string) Dim sres sebagai rentetan sres = "" Untuk i = 1 hingga len (str) Sekiranya tidak ada (pertengahan (str, i, 1)) maka sres = sres & pertengahan (str, i, 1) Seterusnya saya Penyingkiran = sres Fungsi akhir
Kod VBA 2 (ungkapan biasa):
Fungsi penyingkiran (str as string) sebagai rentetan Dengan createObject ("vbscript.regexp") .Global = benar .Pattern = "[0-9]" Penyingkiran = .replace (str, "") Berakhir dengan Fungsi akhir
Gunakan ini dengan =TRIM(RemoveNumbers(A2))
.
Memisahkan teks dan nombor ke lajur berasingan:
Fungsi VBA tersuai tunggal boleh mengendalikan kedua -dua teks dan pengekstrakan nombor:
Kod VBA 1 (watak demi watak):
Fungsi splittextNumbers (str as string, is_remove_text sebagai boolean) sebagai rentetan Dim Snum, Stext, Schar sebagai String snum = stext = "" Untuk i = 1 hingga len (str) schar = pertengahan (str, i, 1) Jika isnumeric (schar) maka snum = snum & schar else stext = stext & schar Seterusnya saya Jika is_remove_text kemudian spitextNumbers = snum lain splittextNumbers = stext Fungsi akhir
Kod VBA 2 (ungkapan biasa):
Fungsi splittextNumbers (str as string, is_remove_text sebagai boolean) sebagai rentetan Dengan createObject ("vbscript.regexp") .Global = benar Jika is_remove_text kemudian .pattern = "[^0-9]" else .pattern = "[0-9]" SplitTextNumbers = .Replace (str, "") Berakhir dengan Fungsi akhir
Penggunaan =SplitTextNumbers(A2,TRUE)
untuk menyimpan nombor, dan =TRIM(SplitTextNumbers(A2,FALSE))
untuk menyimpan teks.
Menggunakan alat khusus:
Pertimbangkan untuk menggunakan tambahan Excel khusus untuk penyingkiran watak jika anda lebih suka pendekatan yang lebih visual dan mesra pengguna. Tutorial menyebutkan "suite muktamad" tambahan dengan ciri "keluarkan aksara".
Panduan komprehensif ini menyediakan pelbagai penyelesaian yang memenuhi versi Excel yang berbeza dan keutamaan pengguna. Ingat untuk menyesuaikan rujukan sel seperti yang diperlukan untuk data khusus anda.
Atas ialah kandungan terperinci Cara membuang / memecah teks dan nombor dalam sel excel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!

Tutorial ini menerangkan cara mengira median data berangka dalam Excel menggunakan fungsi median. Median, ukuran utama kecenderungan pusat, mengenal pasti nilai pertengahan dalam dataset, yang menawarkan perwakilan yang lebih mantap dari Tenden Central

Menguasai sheet google countif: panduan komprehensif Panduan ini meneroka fungsi countif serba boleh di Helaian Google, menunjukkan aplikasinya di luar pengiraan sel mudah. Kami akan merangkumi pelbagai senario, dari perlawanan tepat dan separa ke Han

Tutorial ini menyediakan panduan komprehensif untuk berkongsi buku kerja Excel, meliputi pelbagai kaedah, kawalan akses, dan resolusi konflik. Versi Excel Moden (2010, 2013, 2016, dan kemudian) Memudahkan pengeditan kolaboratif, menghapuskan keperluan untuk m

Tutorial ini meneroka pelbagai kaedah untuk menukar fail .xls ke imej .jpg, merangkumi kedua-dua alat Windows terbina dalam dan penukar dalam talian percuma. Perlu membuat persembahan, berkongsi data spreadsheet dengan selamat, atau merancang dokumen? Menukar yo

Tutorial ini menjelaskan fungsi nama -nama Excel dan menunjukkan bagaimana untuk menentukan nama untuk sel, julat, pemalar, atau formula. Ia juga meliputi penyuntingan, penapisan, dan memadam nama yang ditetapkan. Nama Excel, sementara sangat berguna, sering melampaui

Tutorial ini menjelaskan perbezaan antara sisihan piawai dan kesilapan piawai min, membimbing anda pada fungsi Excel yang optimum untuk pengiraan sisihan piawai. Dalam statistik deskriptif, sisihan min dan piawai adalah intrinsi

Tutorial Excel ini menunjukkan cara mengira akar persegi dan akar n. Mencari akar persegi adalah operasi matematik yang biasa, dan Excel menawarkan beberapa kaedah. Kaedah untuk mengira akar persegi di Excel: Menggunakan fungsi SQRT: The

Buka kunci kekuatan lembaran Google: Panduan Pemula Tutorial ini memperkenalkan asas -asas Google Sheets, alternatif yang kuat dan serba boleh kepada MS Excel. Ketahui cara untuk menguruskan spreadsheet dengan mudah, memanfaatkan ciri -ciri utama, dan bekerjasama


Alat AI Hot

Undresser.AI Undress
Apl berkuasa AI untuk mencipta foto bogel yang realistik

AI Clothes Remover
Alat AI dalam talian untuk mengeluarkan pakaian daripada foto.

Undress AI Tool
Gambar buka pakaian secara percuma

Clothoff.io
Penyingkiran pakaian AI

Video Face Swap
Tukar muka dalam mana-mana video dengan mudah menggunakan alat tukar muka AI percuma kami!

Artikel Panas

Alat panas

Penyesuai Pelayan SAP NetWeaver untuk Eclipse
Integrasikan Eclipse dengan pelayan aplikasi SAP NetWeaver.

MinGW - GNU Minimalis untuk Windows
Projek ini dalam proses untuk dipindahkan ke osdn.net/projects/mingw, anda boleh terus mengikuti kami di sana. MinGW: Port Windows asli bagi GNU Compiler Collection (GCC), perpustakaan import yang boleh diedarkan secara bebas dan fail pengepala untuk membina aplikasi Windows asli termasuk sambungan kepada masa jalan MSVC untuk menyokong fungsi C99. Semua perisian MinGW boleh dijalankan pada platform Windows 64-bit.

VSCode Windows 64-bit Muat Turun
Editor IDE percuma dan berkuasa yang dilancarkan oleh Microsoft

Hantar Studio 13.0.1
Persekitaran pembangunan bersepadu PHP yang berkuasa

SublimeText3 versi Inggeris
Disyorkan: Versi Win, menyokong gesaan kod!
