Sut i rannu rhestr hir yn grwpiau cyfartal yn Excel?
Os oes gennych chi restr hir o ddata yr oedd angen ei rannu'n grwpiau cyfartal lluosog fel y dangosir y llun isod, sut allech chi ddelio â'r dasg hon yn gyflym ac yn hawdd yn Excel?
Rhannwch restr hir yn grwpiau cyfartal lluosog gyda chod VBA
Rhannwch restr hir yn grwpiau cyfartal lluosog gyda Kutools ar gyfer Excel
Rhannwch restr hir yn grwpiau cyfartal lluosog gyda chod VBA
Ac eithrio copïo a gludo'r data fesul un, gall y cod VBA canlynol ffafrio chi hefyd, gwnewch y camau canlynol:
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: Rhannwch restr hir yn grwpiau cyfartal lluosog
Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xOutArr As Variant
Dim I As Long, K As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
If I < 1 Then
MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
Exit Sub
End If
ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
For K = 0 To xRg.Rows.Count - 1
xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
Next
xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub
3. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac yn y blwch popped out, dewiswch y golofn rydych chi am ei rhannu'n grwpiau lluosog, gweler y screenshot:
4. a chliciwch OK botwm, yna dewiswch gell lle rydych chi am ddod o hyd i'r canlyniad yn y blwch prydlon canlynol, gweler y screenshot:
5. Cliciwch OK, a nodwch nifer y celloedd rydych chi am eu rhannu fesul colofn yn y blwch prydlon, gweler y screenshot:
6. Yn olaf, cliciwch OK i orffen y cod, ac mae'r data rhestr a ddewiswyd wedi'i rannu'n grwpiau cyfartal lluosog yn ôl yr angen, gweler y screenshot:
Rhannwch restr hir yn grwpiau cyfartal lluosog gyda Kutools ar gyfer Excel
Os ydych chi wedi gosod Kutools ar gyfer Excel, Gyda'i Trawsnewid Ystod nodwedd, gallwch chi rannu rhestr hir yn gyflym yn sawl colofn a rhes, ar ben hynny, gallwch chi hefyd gyfuno colofnau lluosog yn un rhestr hir.
Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:
1. Dewiswch y rhestr hir rydych chi am ei rhannu, ac yna cliciwch Kutools > Ystod > Trawsnewid Ystod, gweler y screenshot:
2. Yn y Trawsnewid Ystod blwch deialog, dewiswch Colofn sengl i amrediad O dan y Trawsnewid math adran, ac yna gwirio Gwerth sefydlog a nodwch nifer y celloedd fesul rhes yn y blwch, gweler y screenshot:
3. Yna cliciwch Ok, a dewis cell lle rydych chi am ddod o hyd i'r canlyniad yn y blwch prydlon, gweler y screenshot:
4. A chliciwch OK botwm, mae'r data yn y rhestr wedi'i rannu'n grwpiau cyfartal lluosog yn ôl yr angen.
Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !
Demo: Rhannwch restr hir yn grwpiau cyfartal lluosog gyda Kutools ar gyfer Excel
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!