İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
x

or

Excel'de satır sayısına göre verileri birden çok çalışma sayfasına nasıl ayırırsınız?

Örneğin, bir veri listesi yelpazesine sahibim, şimdi satır sayısına göre birden çok çalışma sayfasına bölmek istiyorum, bu örnekte her 5 satırına bölünüyorum (aşağıdaki ekran görüntülerine bakın). Bu sorunu hızlı bir şekilde çözmemize yardımcı olacak herhangi bir yol var mı? Burada kolayca yapabilmeniz için iki püf noktası tanıtacağım.


Doktor bölünmüş veri-by-rows1


-2



Doktor bölünmüş veri-by-rows2
Doktor bölünmüş veri-by-rows3
Doktor bölünmüş veri-by-rows4
Doktor bölünmüş veri-by-rows5

Verileri, VBA kodu ile satır sayısına göre birden çok çalışma sayfasına bölme

Excel için Kutools ile satır sayısına göre birden çok çalışma sayfasına bölünmüş veriler


arrow mavi sağ balon Verileri, VBA kodu ile satır sayısına göre birden çok çalışma sayfasına bölme


Aşağıdaki VBA kodu, satırları satır sayısına göre birden çok çalışma sayfasına bölmenize yardımcı olabilir, aşağıdaki şekilde yapın:

1. Tuşunu basılı tutun. ALT + F11 tuşuna basarak Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA: Excel'de satır sayısına göre verileri sayfalara böler.

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. Daha sonra tuşuna basın. F5 tuşunu basılı tutun ve bölmek için bir aralık seçmek için bir iletişim kutusu görüntülenir ve ardından OKve satır sayısını belirtmeniz için başka bir iletişim kutusu. Ekran görüntüsüne bakın:

4. tıklayın OKve aralık satır sayısına göre birden çok sayfaya bölünür.

notlar: Bölünmüş çalışma sayfaları ana çalışma sayfasının arkasına yerleştirilir.


arrow mavi sağ balon Excel için Kutools ile satır sayısına göre birden çok çalışma sayfasına bölünmüş veriler

Yukarıdaki kod yalnızca verileri belirtilen satır sayısı ile bölebilir ve verilerinizin başlığı varsa, her çalışma sayfası verileri için başlık ekleyemez.

Ama sahip Kutools for Excel'S Veriyi Böl, her çalışma sayfası verileri için üstbilgiler ekleyebilirsiniz, aynı zamanda yeni bölünmüş çalışma sayfası adlarını da belirtebilirsiniz.

Kutools for Excel 300'dan fazla kullanışlı Excel araçlarını içerir. 30 gün içinde sınırsız olarak denemek için ücretsiz. Şimdi alın

Kutools for Excel'i kurduysanız, lütfen şu şekilde yapın:

1. Bölmek istediğiniz veri aralığını seçin.

2. tıklayın kuruluş > Çalışma Sayfası Araçları > Veriyi Böl (Ya da kuruluş > Veriyi Böl ), ekran görüntüsüne bakın:

Doktor bölünmüş veri-by-rows6

3. In Verileri Birden Çok Çalışma Sayfasına Böl iletişim kutusu:

  • seçmek Sabit satırlar itibaren Üzerine bölünmüş seçeneğini seçin ve her çalışma sayfası için bölmek istediğiniz satır sayısını girin. (Verileriniz üstbilgileri varsa ve bunları her yeni bölünmüş çalışma sayfasına eklemek istiyorsanız, lütfen kontrol edin Verilerimin başlıkları var seçeneği.)
  • Ardından, bölünmüş çalışma sayfası adlarını, Yeni çalışma sayfalarının adı bölümünde, çalışma sayfası adları kurallarını seçin. kurallar açılır listeyi Önek or Sonek sayfa adları için de. Ekran görüntüsüne bakın:

Doktor bölünmüş veri-by-rows7

4. Ayarları belirttikten sonra OKve seçilen veriler, her 5 satırına göre yeni bir çalışma kitabının birden çok çalışma sayfasına bölünmüştür. Üstbilgiler her yeni çalışma sayfasına eklenir. Ekran görüntüsüne bakın:

Doktor bölünmüş veri-by-rows8

Bu Bölünmüş Veri özelliği hakkında daha fazla bilgi edinmek için tıklayın.

İlgili makale:

Excel'deki sütun temelinde birden çok çalışma sayfasına veri nasıl bölünürüm?



Önerilen Üretkenlik Araçları

Office Tab

altın yıldız1 Kullanışlı sekmeleri Excel, diğer Office yazılımlarına da tıpkı Chrome, Firefox ve yeni Internet Explorer gibi getirin.

Kutools for Excel

altın yıldız1 Şaşırtıcı! 5 dakika içinde üretkenliğinizi artırın. Herhangi bir özelliğe ihtiyacınız yoktur, her gün iki saat tasarruf edin!

altın yıldız1 300 Excel için Yeni Özellikler, Excel'i Çok Kolay ve Güçlü Yapın:

  • Hücre / Satırları / Sütunları Veri Kaybetmeden Birleştirin.
  • Birden Çok Levha ve Çalışma Kitabını Birleştirin ve Konsolide edin.
  • Aralıkları Karşılaştırma, Birden Fazla Aralık Kopyalama, Metni Tarihe Dönüştürme, Birim ve Para Birimi Dönüştürme.
  • Renklere Göre Sayma, Sayfalık Toplamlar, Gelişmiş Sıralama ve Süper Filtre,
  • Daha Seç / Ekle / Sil / Metin / Biçim / Bağlantı / Açıklama / Çalışma Kitabı / Çalışma Sayfası Araçları ...

Kutools for Excel&#39;in ekran görüntüsü

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?