Conas iliomad sraitheanna nó colúin a shórtáil go neamhspleách ag an am céanna in Excel?
In Excel, is féidir leat an ghné Sórtáil a chur i bhfeidhm chun ach sraith nó colún amháin a shórtáil i raon colún, ach, más gá duit sraitheanna nó colúin iolracha a shórtáil go neamhspleách ag an am céanna chun an pictiúr seo a leanas a thaispeáint. An bhfuil aon bhealaí gasta ann chun an tasc seo a réiteach in Excel?
Sórtáil colúin iolracha go neamhspleách ag an am céanna le cód VBA
Sraitheanna iolracha go neamhspleách ag an am céanna le cód VBA
Sórtáil colúin iolracha go neamhspleách ag an am céanna le cód VBA
Chun ilcholúin a shórtáil go neamhspleách in ord ardaitheach, d’fhéadfadh an cód VBA seo a leanas cabhrú leat, déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sórtáil ilcholúin go neamhspleách ag an am céanna:
Sub SortIndividualJR()
'Updateby Extendoffice
Dim xRg As Range
Dim yRg As Range
Dim ws As Worksheet
Set ws = ActiveSheet
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
Application.ScreenUpdating = False
For Each yRg In xRg
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, Order:=xlAscending
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNo
.MatchCase = False
.Apply
End With
Next yRg
Application.ScreenUpdating = True
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an raon sonraí a theastaíonn uait a shórtáil bunaithe ar gach colún, féach an scáileán:
4. Agus ansin cliceáil OK, rinneadh gach colún a shórtáil go spleách ag an am céanna, féach an pictiúr:
Sraitheanna iolracha go neamhspleách ag an am céanna le cód VBA
Más mian leat iliomad sraitheanna a shórtáil go neamhspleách, seo cód VBA duitse freisin.
1. Roghnaigh na sonraí a theastaíonn uait a shórtáil bunaithe ar gach sraitheanna.
2. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sórtáil iliomad sraitheanna go neamhspleách ag an am céanna:
Sub SortIndividualR()
'Updateby Extendoffice
Dim xRg As Range, yRg As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set xRg = Selection
If xRg.Count = 1 Then
MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Application.ScreenUpdating = False
For Each yRg In xRg.Rows
yRg.Sort Key1:=yRg.Cells(1, 1), _
Order1:=xlAscending, _
Header:=xlNo, _
Orientation:=xlSortRows
Next yRg
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
Application.ScreenUpdating = True
End Sub
4. Ansin brúigh F5 eochair chun an cód seo a rith, rinneadh na sonraí i ngach sraitheanna a shórtáil ag an am céanna, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!