İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də satır sayına görə çox iş səhifələrinə məlumat ayırmaq necədir?

Məsələn, bir sıra məlumat siyahım var, indi bir neçə iş səhifəsinə satır sayıları ilə bölmək istəyirəm, bu nümunədə, onu hər 5 satırla bölüşdürürəm (aşağıdakı ekran görüntülərinə baxın). Bu problemi tez həll etmək üçün hər hansı bir yol varmı? Burada asanlıqla əldə etmək üçün iki tövsiyəni təqdim edəcəyəm.


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

Satırla birdən çox iş kitabına VBA kodu ilə məlumat verin

Excel üçün Kutools ilə sayları satırlar tərəfindən çox iş səhifələrinə bölün


arrow mavi sağ bubble Satırla birdən çox iş kitabına VBA kodu ilə məlumat verin


Aşağıdakı VBA kodu, satırların sayı sayına görə bir neçə iş səhifəsinə satılmasına kömək edə bilər:

1. Basıb saxlayın ALT + F11 açmaq üçün açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modulesvə Modul Pəncərəsində aşağıdakı kodu yapışdırın.

VBA: Sütunlar Excel-də hesablanır.

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. Sonra basın F5 kodu açmaq üçün düyməni basın və bölmənin split seçilməsi üçün bir dialoq çıxır və sonra basın OKvə satır sayını təyin etmək üçün başqa bir informasiya qutusu. Ekran görüntüsünə baxın:

4. Basın OK, və sıra bir sıra çarxlara bölünür.

Qeyd: Ayrılmış iş səhifələri master işin arxasına yerləşdirilir.


arrow mavi sağ bubble Excel üçün Kutools ilə sayları satırlar tərəfindən çox iş səhifələrinə bölün

Yuxarıdakı kod yalnız məlumatları müəyyən sayda sayaraq bölüşdürə bilər və məlumatlarınızın başlığı varsa hər bir iş səhifəsi üçün başlığı əlavə etməyəcək.

Ancaq Excel üçün Kutools'S Split Məlumatlaryalnız hər bir iş səhifəsi üçün başlıqları əlavə edə bilərsiniz, həm də yeni split iş səhifəsinin adlarını təyin edə bilərsiniz.

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 30 gün ərzində heç bir məhdudiyyətsiz cəhd edin. Ele indicə onu al

Excel üçün Kutools yüklediyseniz aşağıdakıları edin:

1. Ayrılmaq istədiyiniz məlumatların çeşidini seçin.

2. Basın Müəssisə > Worksheet Tools > Split Məlumatlar (Və ya Müəssisə > Split Məlumatlar ), bax ekran görüntüsü:

doc-split-data-by-rows6

3. İçində Birdən çox işə bölüşdürün dialoq qutusu:

  • seçmək Sabit satırlar etibarən Split əsasında seçimi seçin və hər bir iş üçün bölmək istədiyiniz sayının sayını daxil edin. (Məlumatlarınızın başlığı varsa və onları hər bir yeni split iş səhifəsinə daxil etmək istəyirsinizsə, xahiş olunur Məlumatlarım başlıqlara malikdir seçimi.)
  • Sonra split iş səhifəsinin adlarını, altında müəyyən edə bilərsiniz Yeni işlərin adı bölməsində, iş səhifəsi adlarının qaydalarını seçin Qaydalar açılan siyahıdan əlavə edə bilərsiniz Prefiks or son şəkilçi hesabatı adları üçün də. Ekran görüntüsünə baxın:

doc-split-data-by-rows7

4. Ayarları göstərdikdən sonra, sonra basın OKseçilmiş məlumatlar hər bir 5 satır tərəfindən yeni bir iş kitabının bir çox iş səhifəsinə bölünmüşdür. Hər bir yeni iş üçün başlıqlar yerləşdirilir. Ekran görüntüsünə baxın:

doc-split-data-by-rows8

Bu Split Data xüsusiyyəti haqqında daha çox məlumat üçün tıklayın.

Əlaqədar məqalə:

Excel-də sütun əsasında verilənləri birdən çox səhifəyə bölmək necə?



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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 · 10 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?