Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas a líonann sonraí i roinnt bileoga oibre le sraitheanna i Excel?

Mar shampla, tá réimse liosta sonraí agam, anois ba mhaith liom é a roinnt i ilbhileoga oibre le sraitheanna a chomhaireamh, sa sampla seo, scoiltfidh mé gach sraith 5 (féach na scáileáin scáileáin seo a leanas). An bhfuil aon bhealaí ann chun cabhrú linn an fhadhb seo a réiteach go tapa? Anseo tabharfaidh mé dhá chleasas duit chun é a dhéanamh go héasca.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

Comhaontaigh cód VBA le sonraí a roinnt i bileoga oibre il le sraitheanna

Comhroinn sonraí le Kutools do Excel le sonraí a roinnt i bileoga oibre il le sraitheanna


mboilgeog ceart gorm arrow Comhaontaigh cód VBA le sonraí a roinnt i bileoga oibre il le sraitheanna


Is féidir leis an gcód VBA seo a leanas cabhrú leat na sraitheanna a roinnt i bplean oibre il le sraitheanna a líonadh, mar a leanas:

1. Coinnigh síos an ALT + F11 eochair do oscailt Microsoft Visual Basic d'Iarratais fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúl.

VBA: Comhlánaigh sonraí i leatháin le sraitheanna i Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Ansin brúigh F5 Is eochair an cód a reáchtáil, agus nochtann dialóg le haghaidh raon a roghnú le scoilt, agus ansin cliceáil OK, agus dialóg eile chun tú a shonrú na sraitheanna a chomhaireamh. Féach ar an scáileán:

4. cliceáil OK, agus roinntear an raon ina ilbhileoga ag an líon sraitheanna.

nótaí: Cuirtear na bileoga oibre roinnte ar chúl an mhárta bileog oibre.


mboilgeog ceart gorm arrow Comhroinn sonraí le Kutools do Excel le sonraí a roinnt i bileoga oibre il le sraitheanna

Ní féidir leis an gcód thuas ach na sonraí a roinnt leis an líon sraitheanna sonraithe, agus ní chuirfidh sé an teideal ar gach sonraí bileog oibre má tá an teideal ag do chuid sonraí.

Ach le Kutools le haghaidh Excel'S Sonraí Scoilte, ní féidir leat na ceannteidil a chur isteach i ngach aon bhileog oibre, ach is féidir na hainmneacha nua scoilteacha oibre a shonrú freisin.

Kutools le haghaidh Excel áirítear níos mó ná uirlisí Excel 300 handy. Saor in aisce chun iarracht gan aon teorannú a dhéanamh i laethanta 30. Faigh é anois

Má tá Kutools suiteáilte agat le haghaidh Excel, déan mar a leanas:

1. Roghnaigh an raon sonraí a theastaíonn uait a scoilt.

2. Cliceáil Fiontar > Uirlisí Bileog Oibre > Sonraí Scoilte (nó Fiontar > Sonraí Scoilte ), féach an scáileán:

doc-split-data-by-rows6

3. Sa an Scoilt Sonraí i Illeabhar Bileoga Oibre dialóg:

  • Roghnaigh Sraitheanna seasta ó Scoilt bunaithe ar roghnaigh, agus cuir isteach líon na sraitheanna ar mian leat a scoilt do gach bileog oibre. (Má tá ceannteidil ag do chuid sonraí agus gur mhaith leat iad a chur isteach i ngach bileog oibre scoilt nua, seiceáil le do thoil Tá ceanntásca ag mo chuid sonraí rogha.)
  • Ansin, is féidir leat na hainmneacha bileog oibre scoilte a shonrú, faoi Ainm nua bileoga oibre roghnaigh na rialacha ainmneacha ar an mbileog oibre Rialacha titim síos, is féidir leat an Réimse or iarmhír do na hainmneacha bileog chomh maith. Féach ar an scáileán:

doc-split-data-by-rows7

4. Tar éis na socruithe a shonrú, cliceáil ansin OK, agus roinntear na sonraí a roghnaíodh i ilbhileoga oibre de leabhar oibre nua ag gach sraithe 5. Agus cuirtear na ceannteidil isteach i ngach bileog oibre nua. Féach ar an scáileán:

doc-split-data-by-rows8

Cliceáil chun tuilleadh eolais a fháil faoin ngné seo Sonraí Split.

Airteagal gaolmhar:

Conas sonraí a roinnt i roinnt bileoga oibre bunaithe ar cholún in Excel?



Uirlisí Táirgiúlachta Molta

Tab Office

óir star1 Tabs tabs láimhe le Excel agus bogearraí eile Oifige, cosúil le Chrome, Firefox agus Internet Explorer nua.

Kutools le haghaidh Excel

óir star1 Iontach! Méadú do tháirgiúlacht i 5 nóiméad. Ní gá aon scileanna speisialta a bheith agat, ach dhá uair an chloig a shábháil gach lá!

óir star1 Gnéithe Nua 300 le haghaidh Excel, Déan Excel Mór Éasca agus Cumhachtach:

  • Cumaisc Cill / Sraitheanna / Colúin gan Sonraí a Chailliúint.
  • Ilchláir agus Leabhair Oibre a Chomhcheangal agus a Chomhdhlúthú.
  • Déan comparáid idir Ranganna, Cóipeáil Ilchéimeanna, Tiontaigh Téacs go dtí Dáta, Aonad agus Comhshó Airgeadra.
  • Count by Colors, Subtotals Paging, Ard-Shórtáil agus Scagaire Super,
  • Tuilleadh Roghnaigh / Ionsáigh / Scrios / Téacs / Formáid / Nasc / Comment / Leabhair Oibre / Bileoga Oibre Uirlisí ...

Lámhach scáileán de Kutools do Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 9 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?