Sut i ddidoli rhifau mewn cell yn Excel?
Mae'n hawdd ac yn gyffredin i ni ddidoli rhifau mewn rhestr o golofn, ond a ydych erioed wedi ceisio didoli rhifau mewn un gell? Efallai nad oes ffordd dda i chi heblaw eu trefnu fesul un, yma, byddaf yn siarad am sut i ddidoli rhifau o fewn celloedd yn Excel.
Trefnu rhifau o fewn celloedd gyda fformiwla
Trefnu rhifau o fewn celloedd sydd â Swyddogaeth Diffiniedig Defnyddiwr
Trefnu rhifau sy'n gwahanu gan atalnodau o fewn celloedd sydd â chod VBA
Trefnu rhifau o fewn celloedd gyda fformiwla
I ddidoli rhifau mewn celloedd mewn taflen waith, gallwch gymhwyso'r fformiwla hir ganlynol, gwnewch fel hyn:
1. Wrth ymyl eich data, nodwch y fformiwla ganlynol, yn yr enghraifft hon, byddaf yn ei theipio i mewn i gell C1, gweler y screenshot:
=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))
2. Yna, pwyswch Ctrl + Shift + Enter allweddi gyda'i gilydd, yna llusgwch y ddolen llenwi i'r ystod rydych chi am gymhwyso'r fformiwla hon, a byddwch yn sicrhau bod y rhifau wedi'u didoli o fach i fawr. Gweler y screenshot:
Nodiadau:
1. Os yw digid y rhif yn fwy na 15 yn y gell, ni fydd y fformiwla hon yn cael y canlyniad cywir.
2. Os ydych chi am ddidoli'r rhifau yn nhrefn ddisgynnol, gallwch ddefnyddio'r fformiwla hon: =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).
3. Yn y fformwlâu uchod, mae A1 yn nodi'r gell sy'n cynnwys y rhifau rydych chi am eu didoli, gallwch ei newid i'ch angen.
Trefnu rhifau o fewn celloedd sydd â Swyddogaeth Diffiniedig Defnyddiwr
Gan fod rhai cyfyngiadau ar y fformiwla, gallwch ddefnyddio'r canlynol Swyddogaeth Diffiniedig Defnyddiwr i ddidoli rhifau mewn celloedd sy'n hwy na 15 digid.
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Trefnu rhifau o fewn celloedd
Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
For j = 1 To UBound(VBA.Split(pNum, i))
xOutput = IIf(pOrder, i & xOutput, xOutput & i)
Next
Next
SortNumsInCell = xOutput
End Function
3. Yna arbed a chau'r cod hwn, ewch yn ôl i'ch taflen waith, a nodi'r fformiwla hon = sortnumsincell (A1) i mewn i gell wag wrth ymyl eich data, gweler y screenshot:
4. Ac yna llusgwch y ddolen llenwi i'r celloedd rydych chi am eu cynnwys yn y fformiwla hon, ac mae'r holl rifau yn y celloedd wedi'u didoli yn nhrefn esgynnol fel y dangosir y screenshot canlynol:
Nodyn: Os ydych chi am ddidoli'r rhifau yn nhrefn ddisgynnol, nodwch y fformiwla hon = sortnumsincell (A1,1).
Trefnu rhifau sy'n gwahanu gan atalnodau o fewn celloedd sydd â chod VBA
Os yw'ch rhifau wedi'u gwahanu gan gymeriadau penodol fel coma, hanner colon, cyfnod ac ati fel a ganlyn ar y screenshot, sut allech chi eu didoli mewn celloedd? Nawr, rwy'n cyflwyno cod VBA i chi eu didoli.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Mae atalnodau wedi'u gwahanu gan atalnodau o fewn celloedd
Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
Arr = VBA.Split(Rng.Value, ",")
For i = 0 To UBound(Arr)
xMin = i
For j = i + 1 To UBound(Arr)
If Arr(xMin) > Arr(j) Then
xMin = j
End If
Next j
If xMin <> i Then
temp = Arr(i)
Arr(i) = Arr(xMin)
Arr(xMin) = temp
End If
Next i
Rng.Value = VBA.Join(Arr, ",")
Next
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac yna dewiswch eich celloedd sy'n cynnwys y rhifau yn y blwch prydlon popped allan, gweler y screenshot:
4. Ac yna cliciwch OK, mae'r holl rifau yn y celloedd wedi'u didoli yn esgynnol yn yr ystod wreiddiol.
Nodyn: Gallwch chi newid y coma “,” i unrhyw nodau eraill yn ôl yr angen yn y cod uchod. A dim ond didoli data y gall y cod hwn ei wneud.
Erthyglau cysylltiedig:
Sut i ddidoli rhifau â chysylltiadau yn Excel?
Sut i ddidoli data yn ôl y gwerth amlaf yn Excel?
Sut i ddidoli cyfeiriad e-bost yn ôl parth yn Excel?
Sut i ddidoli rhesi i roi'r celloedd gwag ar ei ben yn Excel?
Yr Offer Cynhyrchedd Swyddfa Gorau
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
- Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
