Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tinqasam id-dejta f'pakketti multipli permezz ta 'għadd ta' ringieli fl-Excel?

Per eżempju, għandi firxa ta 'lista ta' dejta, issa nixtieq li taqsamha f'diversi worksheets billi għadd ta 'ringieli, f'dan l-eżempju, se nqasmaha minn kull ringiela 5 (ara l-screenshots li ġejjin). Hemm xi modi biex tgħinna nissolvu din il-problema malajr? Hawnhekk ser nintroduċi żewġ tricks għalik biex tiksbu faċilment.


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

Id-data maqsuma f'diversi worksheets skond ir-ringieli tgħodd bil-kodiċi VBA

Id-data maqsuma f'diversi worksheets minn fillieri tgħodd b'Kutools għal Excel


vleġġa bużżieqa tal-lemin blu Id-data maqsuma f'diversi worksheets skond ir-ringieli tgħodd bil-kodiċi VBA


Il-kodiċi VBA li ġej jista 'jgħinek taqsam ir-ringieli f'folji multipli billi tgħodd il-fillieri, għamel dan li ġej:

1. Żomm il-buttuna ALT + F11 ċavetta biex tiftaħ il - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

2. Ikklikkja Daħħal > Moduli, u paste tal-kodiċi li ġej fit-Tieqa tal-Modulu.

VBA: Id-data maqsuma f'folji skond ir-ringieli tingħadd fl-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. Imbagħad agħfas F5 ċavetta biex titmexxa l-kodiċi, u dialog toħroġ għall-għażla ta 'firxa biex tinqasam, u mbagħad ikklikkja OK, u dialog ieħor għalik biex tispeċifika l-għadd tal-linji. Ara l-screenshot:

4. ikklikkja OK, u l-firxa hija maqsuma f'folji multipli bl-għadd tal-fillieri.

Nota: Il-worksheets maqsuma huma mqiegħda fuq wara tal-worksheet tal-master.


vleġġa bużżieqa tal-lemin blu Id-data maqsuma f'diversi worksheets minn fillieri tgħodd b'Kutools għal Excel

Il-kodiċi ta 'hawn fuq jista' biss jaqsam id-data mill-għadd ta 'ringieli speċifikati, u mhux se jżid it-titlu għal kull dejta tal-worksheet jekk id-data tiegħek ikollha t-titlu.

Imma ma ' Kutools għal Excel'S Data maqsuma, int mhux biss tista 'ddaħħal l-intestaturi għal kull dejta tal-worksheet, iżda tista' wkoll tispeċifika l-ismijiet ġodda tal-worksheet maqsuma.

Kutools għal Excel Tinkludi aktar għodda 300 handy Excel. Ħieles biex tipprova mingħajr limitazzjoni fil-jiem 30. Ġġibu Issa

Jekk għandek installat Kutools għall-Excel, ħu dan li ġej:

1. Agħżel il-firxa tad-data li trid taqsam.

2. Ikklikkja intrapriża > Għodda tal-Worksheet > Data maqsuma (Jew intrapriża > Data maqsuma ), ara screenshot:

doc-split-data-by-rows6

3. Ġol Iddeskrivi d-Data f'Fajls ta 'Ħidma Multipla kaxxa ta 'dialog:

  • Agħżel Ringieli fissi minn Split ibbażat fuq għażla, u daħħal in-numru ta 'ringieli li jrid li taqsam għal kull worksheets. (Jekk id-data tiegħek ikollha headers u trid iddaħħalhom f'kull skeda ta 'xogħol ġdida, agħmel kontroll Id-data tiegħi għandha headers għażla).
  • Imbagħad tista 'tispeċifika l - ismijiet tal - worksheet maqsuma, taħt il - Isem ta 'worksheets ġodda taqsima, agħżel ir - regoli tal - ismijiet tal - worksheet mill - Regoli drop down list, tista 'żżid il - Prefix or suffiss għall-ismijiet tal-karta wkoll. Ara l-screenshot:

doc-split-data-by-rows7

4. Wara speċifika s-settings, imbagħad ikklikkja OK, u d-data magħżula ġiet maqsuma f'diversi worksheets ta 'workbook ġdid minn kull ringiela 5. U l-headers jiddaħħlu għal kull folja ta 'xogħol ġdida. Ara l-screenshot:

doc-split-data-by-rows8

Ikklikkja biex tkun taf aktar dwar din il-karatteristika tad-Data Split.

Oġġett relatat:

Kif tinqasam id-dejta f'folji ta 'ħidma multipli bbażati fuq kolonna f'Excel?



Għodda tal-Produttività Rakkomandata

Uffiċċju Tab

star tad-deheb 1 Ġib tabs handy għal Excel u softwer ieħor tal-Uffiċċju, bħal Chrome, Firefox u Internet Explorer ġdid.

Kutools għal Excel

star tad-deheb 1 Amazing! Żid il-produttività tiegħek f'minuti 5. M'għandekx bżonn xi ħiliet speċjali, ħlief sagħtejn kuljum!

star tad-deheb 1 300 Karatteristiċi Ġodda għall-Excel, Għamla Excel Ħafna Faċli u Qawwija:

  • Merge Cell / Ringieli / Kolonni mingħajr ma titlef id-Data.
  • Għaqqad u Tikkonsolida Folji Multipli u Kotba tax-Xogħol.
  • Qabbel ir-Ranges, Kopja Multipla Ranges, Ikkonverti Test sa Data, Unità u l-Konverżjoni Munita.
  • Għadd bil-Kuluri, Subtotali tal-Pejġing, Sort Avvanzat u Iffiltra Super,
  • Iktar Agħżel / Daħħal / Ħassar / Test / Format / Rabta / Kumment / Kotba tax-Xogħol / Worksheets Għodda ...

Screenshot ta &#39;Kutools għal 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?