Note: The other languages of the website are Google-translated. Back to English

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


swigen dde glas saeth 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)))

doc-didoli-rhifau-mewn-celloedd-1

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:

doc-didoli-rhifau-mewn-celloedd-1

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.


swigen dde glas saeth 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:

doc-didoli-rhifau-mewn-celloedd-1

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:

doc-didoli-rhifau-mewn-celloedd-1

Nodyn: Os ydych chi am ddidoli'r rhifau yn nhrefn ddisgynnol, nodwch y fformiwla hon = sortnumsincell (A1,1).


swigen dde glas saeth 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.

doc-didoli-rhifau-mewn-celloedd-1

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:

doc-didoli-rhifau-mewn-celloedd-1

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.
tab kte 201905

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!
gwaelod officetab
sylwadau (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
syr, a fyddech cystal â helpu i ddidoli'r data ar gyfer y dyblyg yn gyntaf, boed yn fach neu'n fawr Enghraifft 1211 ---> 1112 9495 ---> 9945 7379 ---> 7739 Diolch yn fawr am eich cymorth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roeddwn i'n meddwl tybed sut mae'r UDF hwn, = sortnumsincell (A1,1), gellir ei addasu yn fwy cyffredinol, fel =sortnumsincell(A1," "," ",",,1) lle mae'r ddadl gyntaf, A1, yw'r gell darged, yr ail ddadl,"", yn amffinydd a allai gymryd unrhyw gymeriad, neu ofod, neu ddim, gyda thrydydd dadl, "", amffinydd gwahanol neu'r un peth, a'r bedwaredd ddadl, 1 0 neu, yn nodi math esgynnol neu ddisgynnol, gyda'r llinyn canlyniad yn arddangos, wedi'i ddidoli'n gywir, o fewn un gell, gyda rhagosodiad amffinydd yr un fath â'r llinyn gwreiddiol oni bai ei fod wedi'i nodi yn y trydydd term. Hoffwn iddo weithio ar linyn a rhifiadol, ac weithiau gallai'r ail neu'r drydedd ddadl fod yn ffrwd llinell, fel y byddai'n cael ei nodi â llaw gydag alt-enter. Byddech chi'n arwr y mis i mi pe baech chi'n gallu gwneud hynny. Ceisiais ond methu yn druenus. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i gyfres o gelloedd gyda rhifau wedi'u gwahanu gan ofod rydw i eisiau ei ddidoli. ee 8 4 5 1 6 3 rydw i eisiau ei ddidoli fel 1 3 4 5 6 8 Gwerthfawrogi unrhyw help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i ddidoli mwy o rifau mewn un amser o un gell? Er enghraifft, mae gen i restr o 50000 o rifau asedau fel A1234, A1235 ... ac mae angen i mi dynnu 500 o rifau penodol ac mae angen i mi dynnu 500 ar y pryd i wneud newid ac arbed.Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
angen didoli 84-12-74-26-98 unrhyw archeb 12-26-74-84-98 neu 98-84-74-26-12 diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os yw CInt(Arr(xMin)) > CInt(Arr(j)) ac mae'n gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am ddidoli cyfanswm o 14000 i 20000 o resi amrywiol Enghraifft:- 2000,1500 un rhes ac fel yna mae pob rhes yn swm i'w drefnu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'n ymddangos bod y cod VBA yn allbwn yn anghywir, er enghraifft cyn 13,50,47,7,39 ac ar ôl 13-39-47-50-7. Unrhyw syniadau pam?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hOLA, MI PROBLEMA ES QUE TENGO EXEL 2019 EN ESPAÑOL COMO SERIA LA FFORMIWLA?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i ddidoli testun AZ o fewn cell yn Excel?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo diolch am dda braf am ddidoli rhifau a oedd yn gwahanu gan atalnodau o fewn celloedd gyda chod VBA
Dim ond yr wyf wedi wynebu un broblem gyda'r cod.
Ni all y cod ganfod rhif tri digid. er enghraifft y rhifau (65, 93, 53, 72, 64, 85, 103, 48, 77, 81, 54) ar ôl cymhwyso'r cod, y gorchymyn newydd (103, 48, 53, 54, 64, 65, 72, 77, 81, 85, 93)
A oes gennych unrhyw ateb i'r broblem?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, omer, efallai y gall y cod isod eich helpu chi, ceisiwch:
Swyddogaeth Gyhoeddus CellSort(r Fel Ystod) Fel Llinyn
Dim bry() Cyhyd, L Cyhyd, U Cyhyd
ch = r(1).Testun
ary = Hollti(ch, ",")
L = LBound(ary)
U = UBound(ary)
ReDim bry(L I U)
Ar gyfer i = LBound(ary) I UBound(ary)
bry(i) = CLng(ary(i))
Nesaf i
Ffoniwch BubbleSort(bry)
Ar gyfer i = LBound(bry) I UBound(bry)
ary(i) = CStr(bry(i))
Nesaf i
CellSort = Ymuno(ary, ",")
Swyddogaeth End

SubBubbleSort(arr)
Dim strTemp Fel Amrywiad
Dim i Cyhyd
Dim j Cyhyd
Dim lngMin Cyhyd
Dim lngMax Cyhyd
lngMin = LBound(arr)
lngMax = UBound(arr)
Am i = lngMin I lngMax - 1
Ar gyfer j = i + 1 I lngMax
Os arr(i) > arr(j) Yna
strTemp = arr(i)
arr(i) = arr(j)
arr(j) = strTemp
Gorffennwch Os
Nesaf j
Nesaf i
Diwedd SubAr ôl mewnosod y cod uchod, cymhwyswch y fformiwla hon: =CellSort(A1).A byddwch chi'n cael y canlyniad sydd ei angen arnoch chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola, se pueden ordenar letras en una sola celda por orden alfabético? Rydych chi'n rhagori ar gyfer Mac. Gracias
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL