Sut i dynnu rhif yn unig o linyn testun yn Excel?
Ydych chi erioed wedi bod eisiau tynnu rhifau yn unig o restr o linynnau yn Excel? Yma, rwy'n cyflwyno rhai ffyrdd i chi dynnu rhifau yn unig yn gyflym ac yn hawdd yn Excel.
Dull 1: Dyfynnu rhif yn unig o dannau testun gyda fformiwla
Dull 2: Tynnu rhif yn unig o dannau testun gyda chod VBA
Dull 3: Detholiad rhif yn unig o llinyn testun gyda Kutools ar gyfer Excel
Dull 4: Tynnu rhif degol yn unig o linyn testun gyda fformiwla
Dull 1: Dyfynnu rhif yn unig o dannau testun gyda fformiwla
Gall y fformiwla hir ganlynol eich helpu i dynnu dim ond y rhifau o'r tannau testun, gwnewch fel hyn:
Dewiswch gell wag lle rydych chi am allbynnu'r rhif sydd wedi'i dynnu, yna teipiwch y fformiwla hon: = SUMPRODUCT (MID (0 & A5, LARGE (MYNEGAI (ISNUMBER (- MID (A5, ROW (INDIRECT ("1:" & LEN (A5)), 1)) * ROW (INDIRECT ("1:" & LEN (A5) )), 0), ROW (INDIRECT ("1:" & LEN (A5)))) + 1, 1) * 10 ^ ROW (INDIRECT ("1:" & LEN (A5)) / 10), ac yna llusgwch yr handlen llenwi i lenwi'r ystod sydd ei hangen arnoch i gymhwyso'r fformiwla hon. Gweler y screenshot:
Nodiadau:
- 1. A5 yn sefyll y data cyntaf rydych chi am dynnu rhifau o'r rhestr yn unig.
- 2. Dangosir y canlyniad fel 0 pan nad oes rhifau yn y llinyn.
Tynnwch rifau yn unig o dannau testun:
Gyda Kutools ar gyfer Excel'S RHIFAU DYFYNIAD swyddogaeth, gallwch chi dynnu rhifau yn unig o'r celloedd llinyn testun. Cliciwch i lawrlwytho Kutools ar gyfer Excel!
Dull 2: Tynnu rhif yn unig o dannau testun gyda chod VBA
Dyma god VBA a all hefyd ffafrio chi, gwnewch fel a ganlyn:
1. Daliwch i lawr y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Dyfyniad rhif yn unig o'r llinyn testun:
Sub ExtrNumbersFromRange()
Dim xRg As Range
Dim xDRg As Range
Dim xRRg As Range
Dim nCellLength As Integer
Dim xNumber As Integer
Dim strNumber As String
Dim xTitleId As String
Dim xI As Integer
xTitleId = "KutoolsforExcel"
Set xDRg = Application.InputBox("Please select text strings:", xTitleId, "", Type:=8)
If TypeName(xDRg) = "Nothing" Then Exit Sub
Set xRRg = Application.InputBox("Please select output cell:", xTitleId, "", Type:=8)
If TypeName(xRRg) = "Nothing" Then Exit Sub
xI = 0
strNumber = ""
For Each xRg In xDRg
xI = xI + 1
nCellLength = Len(xRg)
For xNumber = 1 To nCellLength
If IsNumeric(Mid(xRg, xNumber, 1)) Then
strNumber = strNumber & Mid(xRg, xNumber, 1)
End If
Next xNumber
xRRg.Item(xI) = strNumber
strNumber = ""
Next xRg
End Sub
3. Ac yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i atgoffa dewis yr ystod testun rydych chi am ei ddefnyddio, gweler y screenshot:
4. Yna, cliciwch OK, mae blwch prydlon arall yn dilyn, dewiswch gell i allbwn y canlyniad, gweler y screenshot:
5. O'r diwedd, cliciwch OK botwm, ac mae'r holl rifau yn y celloedd a ddewiswyd wedi'u tynnu ar unwaith.
Dull 3: Detholiad rhif yn unig o llinyn testun gyda Kutools ar gyfer Excel
Kutools ar gyfer Excel mae ganddo hefyd swyddogaeth bwerus a elwir RHIFAU DYFYNIAD, gyda'r swyddogaeth hon, dim ond y rhifau o'r tannau testun gwreiddiol y gallwch eu tynnu'n gyflym.
Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:
1. Cliciwch cell ar wahân i'ch llinyn testun lle byddwch chi'n rhoi'r canlyniad, gweler y screenshot:
2. Yna cliciwch Kutools > Swyddogaethau Kutools > Testun > RHIFAU DYFYNIAD, gweler y screenshot:
3. Yn y Dadleuon Swyddogaeth deialog, dewiswch gell rydych chi am dynnu'r rhifau ohoni Testun blwch testun, ac yna nodwch yn wir or ffug i mewn i'r N blwch testun, gweler y screenshot:
Nodyn: y ddadl N yn eitem ddewisol, os ewch i mewn yn wir, bydd yn dychwelyd y rhifau fel rhifiadol, os nodwch ffug, bydd yn dychwelyd y rhifau fel fformat testun, mae'r rhagosodiad yn ffug, felly gallwch ei adael yn wag.
4. Ac yna cliciwch OK, mae'r rhifau wedi'u tynnu o'r gell a ddewiswyd, yna llusgwch y handlen llenwi i lawr i'r celloedd rydych chi am gymhwyso'r swyddogaeth hon, fe gewch chi'r canlyniad canlynol:
Cliciwch i Lawrlwytho a threialu am ddim Kutools ar gyfer Excel Nawr!
Dull 4: Tynnu rhif degol yn unig o linyn testun gyda fformiwla
Os yw'r llinynnau testun sy'n cynnwys rhai rhifau degol yn eich taflen waith, sut allech chi dynnu dim ond y rhifau degol o'r tannau testun?
Gall y fformiwla isod eich helpu i echdynnu'r rhifau degol o'r tannau testun yn gyflym ac yn hawdd.
Rhowch y fformiwla hon :=LOOKUP(9.9E+307,--LEFT(MID(A5,MIN(FIND({1,2,3,4,5,6,7,8,9,0}, $A5&"1023456789")),999),ROW(INDIRECT("1:999")))), Ac yna llenwch handlen i lawr i'r celloedd rydych chi am gynnwys y fformiwla hon, mae'r holl rifau degol wedi'u tynnu o'r tannau testun, gweler y screenshot:
Detholiad rhif yn unig o llinynnau gyda Kutools ar gyfer Excel
Erthyglau Perthynas:
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!