Bagaimana cara mengekstrak angka dari string teks alfanumerik campuran di Excel?
Tutorial ini menyediakan tiga metode untuk membantu mengekstrak angka dari string teks alfanumerik campuran di Excel.
Ekstrak angka dari string teks alfanumerik campuran dengan rumus
Ekstrak angka dari string teks alfanumerik campuran dengan kode VBA
Ekstrak angka dengan mudah dari string teks alfanumerik campuran dengan alat yang luar biasa
Ekstrak angka dari string teks alfanumerik campuran dengan rumus
Anda dapat menerapkan rumus di bawah ini untuk mengekstrak angka dari mana saja dalam string teks di Excel.
1. Pilih sel kosong untuk menampilkan nomor yang diekstrak, masukkan rumus di bawah ini ke dalamnya dan tekan Enter kunci. Kemudian seret Pegangan IsiOtomatis ke bawah untuk menerapkan rumus ke sel lain.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")
Note: Dalam rumusnya, A1 adalah sel yang berisi string teks yang ingin Anda ekstrak angka. Silakan ubah sesuai kebutuhan Anda.
Kemudian angka diekstraksi dari mana saja dalam string teks di sel tertentu seperti gambar di atas yang ditampilkan.
Hanya simpan angka dalam string teks alfanumerik campuran dengan kode VBA
Kode VBA berikut dapat membantu Anda menghapus semua karakter nonnumerik dari rentang yang ditentukan dan hanya menyimpan angka dalam sel. Silakan lakukan sebagai berikut.
Note: Karena kode mengeksekusi rentang asli secara langsung, harap simpan salinan rentang asli jika data hilang.
1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela Modul.
Kode VBA: hapus semua karakter nonnumerik dari sel
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub3. tekan F5 kunci untuk menjalankan kode. Kemudian a Kutools untuk Excel kotak dialog muncul, pilih rentang yang berisi string teks alfanumerik campuran, Anda hanya akan menyimpan nomornya, dan klik OK .
Sekarang semua karakter nonnumerik dalam rentang yang dipilih telah segera dihapus, dan hanya nomor yang disimpan. Lihat tangkapan layar:
Ekstrak angka dengan mudah dari string teks alfanumerik campuran dengan Kutools for Excel
Bagian ini merekomendasikan utilitas Ekstrak Teks dari Kutools for Excel. Dengan utilitas ini, mengekstrak angka dari string teks dapat dengan mudah ditangani.
Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.
1. klik Kutools > Teks > Ekstrak Teks untuk mengaktifkan fitur.
2. Dalam Ekstrak Teks kotak dialog, lakukan pengaturan di bawah ini.
tombol untuk memilih rentang sel yang akan Anda ekstrak teksnya;
Catatan: Periksalah Sisipkan sebagai rumus kotak di sudut kiri bawah dialog akan memasukkan hasil sebagai rumus ke dalam sel hasil. Ketika nilai sel yang direferensikan berubah, hasilnya akan diperbarui secara otomatis.
3. Dalam Ekstrak Teks kotak dialog, pilih sel kosong untuk mengeluarkan teks yang diekstrak, lalu klik OK.
Kemudian nomor dari posisi mana pun dalam string teks diekstraksi. Lihat tangkapan layar:
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
