Tá sé éasca agus coitianta dúinn uimhreacha a shórtáil i liosta colún, ach an ndearna tú iarracht riamh uimhreacha a shórtáil laistigh de chill amháin? B’fhéidir nach bhfuil aon bhealach maith ann duit seachas iad a shocrú ceann ar cheann, anseo, labhróidh mé faoi conas uimhreacha a shórtáil laistigh de chealla in Excel.
Sórtáil uimhreacha laistigh de chealla le foirmle
Sórtáil uimhreacha laistigh de chealla a bhfuil Feidhm Sainithe ag an Úsáideoir acu
Sórtáil uimhreacha atá scartha le camóga laistigh de chealla le cód VBA
Sórtáil uimhreacha laistigh de chealla le foirmleChun uimhreacha a shórtáil laistigh de chealla i mbileog oibre, is féidir leat an fhoirmle fhada seo a leanas a chur i bhfeidhm, déan é seo le do thoil:
1. In aice le do chuid sonraí, cuir isteach an fhoirmle seo a leanas, sa sampla seo, clóscríobhfaidh mé é i gcill C1, féach an scáileán:
=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. Ansin brúigh Ctrl + Shift + Iontráil eochracha le chéile, ansin tarraing an láimhseáil líonta go dtí an raon a theastaíonn uait an fhoirmle seo a chur i bhfeidhm, agus gheobhaidh tú go bhfuil na huimhreacha curtha in eagar ó bheag go mór. Féach an pictiúr:
Nótaí:
1. Má tá dhigit na huimhreach níos mó ná 15 sa chill, ní bhfaighidh an fhoirmle seo an toradh ceart.
2. Más mian leat na huimhreacha a shórtáil in ord íslitheach, is féidir leat an fhoirmle seo a úsáid: =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. Sna foirmlí thuas, léiríonn A1 an chill ina bhfuil na huimhreacha is mian leat a shórtáil, is féidir leat í a athrú go do riachtanas.
Sórtáil uimhreacha laistigh de chealla a bhfuil Feidhm Sainithe ag an Úsáideoir acuToisc go bhfuil roinnt teorainneacha leis an bhfoirmle, is féidir leat an méid seo a leanas a úsáid Feidhm Sainithe ag an Úsáideoir chun uimhreacha a shórtáil i gcealla níos faide ná 15 dhigit.
1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Sórtáil uimhreacha laistigh de chealla
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. Ansin sábháil agus dún an cód seo, téigh ar ais chuig do bhileog oibre, agus iontráil an fhoirmle seo = sortnumsincell (A1) isteach i gcill bhán in aice le do chuid sonraí, féach an scáileán:
4. Agus ansin tarraing an láimhseáil líonta chuig na cealla ar mhaith leat an fhoirmle seo a bheith iontu, agus tá na huimhreacha go léir sna cealla curtha in eagar in ord ardaitheach mar a thaispeántar an scáileán a leanas:
nótaí: Más mian leat na huimhreacha a shórtáil in ord íslitheach, iontráil an fhoirmle seo le do thoil = sortnumsincell (A1,1).
Sórtáil uimhreacha atá scartha le camóga laistigh de chealla le cód VBAMá tá d’uimhreacha scartha le carachtair áirithe cosúil le camóg, leathchlón, tréimhse agus mar sin de mar a leanas ar an scáileán, conas a d’fhéadfá iad a shórtáil i gcealla? Anois, tugaim isteach cód VBA chun tú a shórtáil.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Tá camóga scartha le camóga laistigh de chealla
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. Ansin brúigh F5 eochair chun an cód seo a rith, agus ansin roghnaigh do chealla ina bhfuil na huimhreacha sa bhosca pras popped amach, féach an scáileán:
4. Agus ansin cliceáil OK, rinneadh na huimhreacha go léir sna cealla a shórtáil go héadrom sa raon bunaidh.
nótaí: Is féidir leat an camóg “,” a athrú go carachtair ar bith eile de réir mar a theastaíonn uait sa chód thuas. Agus ní féidir leis an gcód seo ach sonraí a shórtáil go ardaitheach.
Earraí gaolmhara:
Conas uimhreacha a shórtáil le hailt in Excel?
Conas sonraí a shórtáil de réir an luacha is minice in Excel?
Conas seoladh ríomhphoist a shórtáil de réir fearainn in Excel?
Conas sraitheanna a shórtáil chun na cealla bána a chur ar barr in Excel?
