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

Sut i rannu rhestr hir yn grwpiau cyfartal yn Excel?

rhestr rhaniad doc i grwpiau 4

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


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:

rhestr rhaniad doc i grwpiau 1

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:

rhestr rhaniad doc i grwpiau 2

5. Cliciwch OK, a nodwch nifer y celloedd rydych chi am eu rhannu fesul colofn yn y blwch prydlon, gweler y screenshot:

rhestr rhaniad doc i grwpiau 3

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:

rhestr rhaniad doc i grwpiau 4


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:

rhestr rhaniad doc i grwpiau 7

3. Yna cliciwch Ok, a dewis cell lle rydych chi am ddod o hyd i'r canlyniad yn y blwch prydlon, gweler y screenshot:

rhestr rhaniad doc i grwpiau 8

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 Now!


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

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 Swyddfa / Excel 2007-2019 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 (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn dod yn handi iawn! Un cwestiwn: Yn y cod VBA sut alla i drawsosod yr allbwn? Felly yn lle xRg.Rows.Count / I = nifer yr allbwn colofnau, mae'r allbwn yn cael ei gynhyrchu fel xRg.Rows.Count / I = nifer y rhesi allbwn gyda I yw nifer y colofnau fesul rhes.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Copïais y cod ac mae Excel 365 yn dweud gwall cystrawen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut y gallaf ei newid o nifer y celloedd fesul colofn i nifer y colofnau sydd eu hangen. fel bod y data yn cael ei rannu'n gyfartal rhwng nifer o golofnau yn lle dewis faint i'w cael ym mhob colofn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod yn gweithio'n wych i mi. Sut ydw i'n ei newid o ofyn faint ym mhob colofn i faint o golofnau sydd eu hangen? fel ei fod yn rhannu'r wybodaeth yn gyfartal yn nifer penodol o golofnau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, trinetta,
Efallai y gall yr erthygl ganlynol eich helpu chi, yn yr erthygl honno, mae yna rai fformiwlâu a all ddiwallu'ch anghenion. Gwiriwch ef os gwelwch yn dda:
https://www.extendoffice.com/documents/excel/681-excel-change-columns-to-rows.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r ddolen ond yn dweud wrthyf sut i wneud yr un peth. Nid yw'n dweud wrthyf sut i ddweud wrth y cod neu'r fformiwla faint o golofnau sydd eu hangen arnaf ... dim ond faint ym mhob colofn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Tpdixon,
Yn yr erthygl honno, gall y fformiwla: =OFFSET($A$1,COLUMNS($A1:A1)-1+(ROWS($1:1)-1)*5) eich helpu i rannu'r rhestr yn golofnau lluosog, does ond angen i newid y rhif 5 i rif arall sydd ei angen arnoch, mae'n cynrychioli rhif y golofn.
Ar ôl mynd i mewn i'r fformiwla hon, dylech lusgo'r handlen llenwi ar draws i'r dde gyda 5 cell.
Ceisiwch, diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir