Kidokezo: Lugha zingine ni Google-Ilitafsiriwa. Unaweza kutembelea English toleo la kiungo hiki.
Ingia
x
or
x
x
Daftari
x

or

Jinsi ya kupasua data katika karatasi nyingi za kazi na safu za kuhesabu katika Excel?

Kwa mfano, nina orodha mbalimbali ya data, sasa ninataka kuitenganisha kwenye safu za kazi nyingi kwa hesabu za safu, kwa mfano huu, nitaitenganisha kwa safu zote za 5 (angalia picha zifuatazo). Je, kuna njia yoyote za kutusaidia kutatua tatizo hili haraka? Hapa nitaanzisha mbinu mbili za kufanya iwe kwa urahisi.


data-by-split-by-rows1


-2



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

Piga data katika karatasi nyingi za kazi kwa safu za kuhesabu na msimbo wa VBA

Piga data katika karatasi nyingi za kazi kwa safu za kuhesabu na Kutools kwa Excel


Mshale wa bluu wa kulia Piga data katika karatasi nyingi za kazi kwa safu za kuhesabu na msimbo wa VBA


Kanuni ya VBA ifuatavyo inaweza kukusaidia kupasuliwa safu katika safu za kazi nyingi kwa hesabu za safu, fanya ifuatavyo:

1. Weka chini ALT + F11 ufunguo wa kufungua Microsoft Visual Msingi kwa Maombi dirisha.

2. Bonyeza Ingiza > Modules, na ushirike nambari ifuatayo kwenye Dirisha la Module.

VBA: Split data katika karatasi na safu kuhesabu katika 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. Kisha waandishi wa habari F5 ufunguo wa kuendesha msimbo, na mazungumzo huja nje kwa kuchagua chaguo ili kupasuliwa, na kisha bofya OK, na mazungumzo mengine kwa wewe kutaja hesabu ya safu. Angalia skrini:

4. Bonyeza OK, na mgawanyiko umegawanyika kuwa karatasi nyingi na hesabu za safu.

Kumbuka: Karatasi za kupasuliwa huwekwa nyuma ya karatasi ya kazi.


Mshale wa bluu wa kulia Piga data katika karatasi nyingi za kazi kwa safu za kuhesabu na Kutools kwa Excel

Nambari ya juu inaweza kupasua data kwa hesabu maalum ya kuhesabu, na haitaongeza kichwa cha kila data ya karatasi ikiwa data yako ina kichwa.

Lakini pamoja na Kutools kwa Excel'S Split Data, sio tu unaweza kuingiza vichwa vya habari kwa kila data ya karatasi, lakini pia inaweza kutaja majina mapya ya karatasi ya kupasuliwa.

Kutools kwa Excel inajumuisha zana zaidi ya 300 Handy Excel. Huru ya kujaribu bila kupunguzwa kwa siku za 30. Kupata Sasa

Ikiwa umeweka Kutools kwa Excel, tafadhali fanya ifuatavyo:

1. Chagua data mbalimbali unayotaka kugawanya.

2. Bonyeza Enterprise > Zana za Kazi za Kazi > Split Data (Au Enterprise > Split Data ), angalia skrini:

data-by-split-by-rows6

3. Ndani ya Split Data katika Fashihi nyingi za Kazi sanduku la mazungumzo:

  • Kuchagua Safu zisizohamishika kutoka Split msingi chaguo, na uingize idadi ya safu ya safu ambazo unataka kugawanya kwa kila karatasi. (Kama data yako ina kichwa na unataka kuingiza kwenye kila karatasi mpya ya kupasuliwa, tafadhali angalia Data yangu ina vichwa vya habari chaguo.)
  • Kisha unaweza kutaja majina ya karatasi ya kupasuliwa, chini ya Jina jipya la majarida sehemu, chagua majina ya majarida ya kazi kutoka kwa Sheria tone chini, unaweza kuongeza Kiambatisho or Suffix kwa majina ya karatasi pia. Angalia skrini:

data-by-split-by-rows7

4. Baada ya kutaja mipangilio, kisha bofya OK, na data iliyochaguliwa imegawanywa katika karatasi nyingi za kitabu cha kazi kwa kila safu ya 5. Na vichwa vilivyoingizwa kwa kila karatasi mpya. Angalia skrini:

data-by-split-by-rows8

Bofya ili ujue zaidi kuhusu kipengele hiki cha Data Split.

Makala inayohusiana:

Jinsi ya kupasua data katika karatasi nyingi za kazi kulingana na safu ya Excel?



Zilizopendekeza Vifaa vya Uzalishaji

Tabia ya Ofisi

nyota ya dhahabu1 Kuleta tabo za Handy kwa Excel na programu nyingine za Ofisi, kama Chrome, Firefox na Internet Explorer mpya.

Kutools kwa Excel

nyota ya dhahabu1 Kushangaza! Ongeza uzalishaji wako katika dakika ya 5. Hauna haja ujuzi wowote maalum, ila saa mbili kila siku!

nyota ya dhahabu1 Features mpya ya 300 kwa Excel, Fanya Excel Rahisi Rahisi na Nguvu:

  • Unganisha Kiini / Rangi / nguzo bila kupoteza Data.
  • Kuchanganya na Kuunganisha Karatasi nyingi na Vitabu vya Kazi.
  • Linganisha Mipangilio, Nakili Ranges nyingi, Badilisha Nakala hadi Tarehe, Kitengo na Ubadilishaji wa Fedha.
  • Hesabu na Rangi, Vipindi vya Paging, Chagua cha Juu na cha Filter Super,
  • Chagua zaidi / Ingiza / Futa / Nakala / Fomu / Kiungo / Maoni / Vitabu vya Kazi / Vifungu vya Kazi ...

Screen shot ya Kutools kwa 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?