Sut i dynnu rhifau o dannau testun alffaniwmerig cymysg yn Excel?
Mae'r tiwtorial hwn yn darparu tri dull i helpu i dynnu rhifau o linyn testun alffaniwmerig cymysg yn Excel.
Tynnwch rifau o dannau testun alffaniwmerig cymysg gyda fformiwla
Tynnwch rifau o dannau testun alffaniwmerig cymysg gyda chod VBA
Tynnwch rifau yn hawdd o dannau testun alffaniwmerig cymysg gydag offeryn anhygoel
Tynnwch rifau o dannau testun alffaniwmerig cymysg gyda fformiwla
Gallwch gymhwyso'r fformiwla isod i dynnu rhifau o unrhyw le mewn llinyn testun yn Excel.
1. Dewiswch gell wag i allbwn y rhifau sydd wedi'u hechdynnu, rhowch y fformiwla isod i mewn iddi a gwasgwch y Rhowch allwedd. Yna llusgwch y Trin AutoFill i lawr i gymhwyso'r fformiwla i gelloedd eraill.
=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),"")
Nodyn: Yn y fformiwla, A1 yw'r gell sy'n cyd-fynd â'r llinyn testun rydych chi am dynnu rhifau. Newidiwch ef ar sail eich anghenion.
Yna tynnir rhifau o unrhyw le mewn llinyn testun mewn celloedd penodedig fel y dangosir y screenshot uchod.
Cadwch rifau mewn llinynnau testun alffaniwmerig cymysg yn unig gyda chod VBA
Gall y cod VBA canlynol eich helpu i gael gwared ar yr holl nodau anuniongyrchol o ystod benodol a chadw rhifau mewn celloedd yn unig. Gwnewch fel a ganlyn.
Nodyn: Gan fod y cod yn rhagori ar yr ystod wreiddiol yn uniongyrchol, cadwch gopi o'r ystod wreiddiol rhag ofn colli data.
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: tynnwch yr holl nodau anuniongyrchol o gelloedd
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. Gwasgwch y F5 allwedd i redeg y cod. Yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch yr ystod sy'n cynnwys y tannau testun alffaniwmerig cymysg y byddwch chi'n cadw'r rhifau yn unig, a chliciwch ar y OK botwm.
Nawr mae'r holl nodau anuniongyrchol mewn ystod ddethol wedi'u tynnu ar unwaith, a dim ond y rhifau sy'n cael eu cadw. Gweler y screenshot:
Tynnwch rifau yn hawdd o linynnau testun alffaniwmerig cymysg gyda Kutools ar gyfer Excel
Mae'r adran hon yn argymell cyfleustodau Testun Detholiad o Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gall tynnu rhifau o linyn testun fod yn hawdd ei drin.
Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.
1. Cliciwch Kutools > Testun > Testun Detholiad i alluogi'r nodwedd.
2. Yn y Testun Detholiad blwch deialog, gwnewch y gosodiadau isod.
botwm i ddewis yr ystod o gelloedd y byddwch yn tynnu testun ohonynt;
Nodyn: Gwiriwch y Mewnosod fel fformiwla bydd blwch yng nghornel chwith isaf y dialog yn mewnosod y canlyniad fel fformiwla yn y celloedd canlyniad. Pan fydd gwerth y gell y cyfeirir ati yn newid, bydd y canlyniad yn diweddaru'n awtomatig.
3. Yn y Testun Detholiad blwch deialog, dewiswch gell wag i allbwn y testun sydd wedi'i dynnu, ac yna cliciwch OK.
Yna tynnir rhifau o unrhyw safle mewn llinyn testun. Gweler y screenshot:
Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
