Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana cara mengekstrak nombor dari rentetan teks alfanumerik campuran dalam Excel?

Kadang-kadang anda mungkin perlu mengekstrak nombor hanya dari senarai rentetan alfanumerik. Anda boleh melakukannya dengan kaedah berikut.

Extract nombor dari rentetan teks abjad bercampur dengan kod VBA

Mudah mengeluarkan nombor dari rentetan teks alfanumerik bercampur dengan Kutools untuk Excel


Mudah mengeluarkan nombor dari rentetan rentetan alfanumerik dalam Excel

Platform Kutools untuk Excel's EXTRACTNUMBERS utiliti membantu anda dengan mudah mengekstrak semua nombor dari campuran teks abjad angka bercampur dalam Excel. Lihat tangkapan skrin di bawah:

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Lebih Lanjut Muat turun percubaan percuma sekarang


Extract nombor dari rentetan teks abjad bercampur dengan kod VBA


Kod VBA berikut boleh membantu anda memadam semua aksara bukan angka dari julat yang ditetapkan dan menyimpan hanya nombor dalam sel. Sila buat seperti berikut.

1. Akhbar Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin dan tampal kod VBA di bawah ke dalam tetingkap Modul.

Kod VBA: keluarkan semua aksara nonnumerik dari sel

Sub GetNumbers()
    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 Sub

3. Kemudian a Kutools untuk Excel kotak dialog muncul, sila pilih julat dengan rentetan teks alfanumerik bercampur yang anda perlukan untuk menyimpan nombor sahaja, dan klik OK butang.

Sekarang semua aksara nonnumerik dalam julat terpilih telah dikeluarkan dengan serta-merta, dan hanya nombor yang disimpan. Lihat tangkapan skrin:


Mudah mengeluarkan nombor dari rentetan teks alfanumerik bercampur dengan Kutools untuk Excel

Kod di atas akan memusnahkan data asal, jika anda ingin menyimpan data asal, di sini saya boleh mengesyorkan anda alat berguna - Kutools untuk Excel. Dengannya EXTRACTNUMBERS fungsi, anda boleh dengan cepat mengeluarkan nombor dari rentetan alfanumerik tanpa mengingati formula atau menjalankan kod VBA.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

1. Pilih sel kosong untuk meletakkan nombor yang diekstrak, dan kemudian klik Kutools > Fungsi > teks > EXTRACTNUMBERS. Lihat tangkapan skrin:

2. Di dalam Argumen Fungsi kotak dialog, klik butang untuk memilih sel (kata A2) yang mengandungi rentetan teks abjad angka anda akan mengeluarkan nombor, dan kemudian klik OK butang.


Sekarang semua nombor dalam sel A2 diekstrak. Anda boleh menyeret Pengendali Isi ke bawah untuk mengekstrak semua nombor sel kiri.

Mudah mengeluarkan nombor dari rentetan teks alfanumerik bercampur dengan Kutools untuk Excel

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma sekarang!


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.