Sut i ddidoli rhesi neu golofnau lluosog yn annibynnol ar unwaith yn Excel?
Yn Excel, gallwch gymhwyso'r nodwedd Trefnu i ddidoli un rhes neu golofn yn unig mewn ystod o golofnau, ond, os oes angen i chi ddidoli rhesi neu golofnau lluosog yn annibynnol ar unwaith i ddangos y screenshot canlynol. A oes unrhyw ffyrdd cyflym o ddatrys y dasg hon yn Excel?
Trefnwch golofnau lluosog yn annibynnol ar unwaith gyda chod VBA
Trefnwch resi lluosog yn annibynnol ar unwaith gyda chod VBA
Trefnwch golofnau lluosog yn annibynnol ar unwaith gyda chod VBA
I ddidoli sawl colofn yn annibynnol mewn trefn esgynnol, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:
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: Trefnwch golofnau lluosog yn annibynnol ar unwaith:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei didoli yn seiliedig ar bob colofn, gweler y screenshot:
4. Ac yna cliciwch OK, mae pob colofnau wedi'u didoli'n ddibynnol ar unwaith, gweler y screenshot:
Trefnwch resi lluosog yn annibynnol ar unwaith gyda chod VBA
Os ydych chi eisiau didoli rhesi lluosog yn annibynnol, dyma hefyd god VBA i chi.
1. Dewiswch y data rydych chi am ei ddidoli yn seiliedig ar bob rhes.
2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Trefnwch resi lluosog yn annibynnol ar unwaith:
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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r data ym mhob rhes wedi cael eu didoli ar unwaith, gweler y screenshot:
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!