Excel'de satır sayısına göre Veriyi Çoklu Çalışma Sayfalarına Böl
Büyük bir Veri Aralığı’nı belirli bir satır sayısına göre birden fazla Excel çalışma sayfasına verimli şekilde bölmek, veri yönetimini kolaylaştırır. Örneğin, her 5 satırda bir veri kümesini ayrı sayfalara dağıtmak, verileri daha düzenli ve yönetilebilir hale getirir. Bu kılavuz, bu işlemi hızlı ve kolayca gerçekleştirmeniz için iki pratik yöntem sunar.
VBA kodu ile satır sayısına göre Veriyi Çoklu Çalışma Sayfalarına Böl
Veriyi Çoklu Çalışma Sayfalarına Böl satır sayısına göre Kutools for Excel ile
VBA kodu ile satır sayısına göre Veriyi Çoklu Çalışma Sayfalarına Böl
Aşağıdaki VBA kodu, satırları belirtilen satır sayısına göre birden fazla çalışma sayfasına bölmek için size yardımcı olabilir. Bu işlemi gerçekleştirmek üzere aşağıdaki adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.Microsoft Visual Basic for Applications penceresi.
2. Ekle > Modül seçeneğine tıklayıp aşağıdaki kodu Modül penceresine yapıştırın.
VBA: Excel'de satır sayısına göre Veriyi Böl çalışma sayfalarına böl
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Ardından, açılan iletişim kutusunda başlık satırını seçmek için F5 tuşuna basın; ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın ve ikinci uyarı kutusunda satır sayısına göre bölmek istediğiniz Veri Aralığı'nı seçin; ekran görüntüsüne bakın:
5. Üçüncü uyarı kutusunda bölmek istediğiniz satır sayısını girmek için Tamam düğmesine tıklamaya devam edin; ekran görüntüsüne bakın:
6. Ardından Tamam düğmesine tıklayın; veriler satır sayısına göre birden fazla çalışma sayfasına bölünmüştür. Ekran görüntüsüne bakın:
Veriyi Çoklu Çalışma Sayfalarına Böl satır sayısına göre Kutools for Excel ile
VBA kodunu karmaşık buluyorsanız, Kutools for Excel, veri bölme sorununu verimli şekilde çözmek için hızlı ve sezgisel bir çözüm sunar. Bu Veriyi Böl özelliği, işlem sürecini basitleştirerek her seviyeden kullanıcının derin programlama bilgisi olmadan büyük veri kümelerini kolayca birden fazla çalışma sayfasına bölmesini sağlar ve etkili veri yönetimini kolaylaştırır.
Kutools for Excel yüklüyse,Kutools for Excellütfen aşağıdaki adımları izleyin:
1. Bölmek istediğiniz veri aralığını seçin. Ardından KUTOOLS PLUS > Veriyi Böl seçeneğine tıklayın; ekran görüntüsüne bakın:
3.Veriyi Çoklu Çalışma Sayfalarına Böliletişim kutusunda:
- Şuradan Sabit değer seçin: Bölme Temeli seçeneğiyle her bir çalışma sayfası için bölmek istediğiniz satır sayısını girin.
- Verileriniz başlık içeriyorsa ve bunları her yeni bölünmüş çalışma sayfasına eklemek istiyorsanız, lütfen Başlıkları içerirseçeneğini işaretleyin. ()İpucu: Başlık satırlarının sayısını verilerinize göre girebilirsiniz.)
- Ardından, Oluşturulan çalışma sayfalarının adı bölümünde, çalışma sayfalarını bölmek için bir Çalışma Sayfası Adı belirleyebilirsiniz. Kurallar açılır listesinden Çalışma Sayfası Adı kurallarını seçin; ayrıca sayfa adlarına Önek veya Sonek ekleyebilirsiniz.
4. Ayarları belirledikten sonra Tamam düğmesine tıklayın; Veri Seç özelliği, her 5 satırda bir yeni bir Çalışma Kitabı’na bölünmüş ve her yeni çalışma sayfasına başlıklar eklenmiştir. Ekran görüntüsüne bakın:
İlgili Makaleler:
- Veriyi Çoklu Çalışma Sayfalarına Böl sütuna göre
- Diyelim ki çok sayıda veri satırı içeren bir çalışma sayfanız var ve şimdi bu veriler you need to split the data into multiple worksheets based on the Name column (see following screenshot) içeriyor; ayrıca isimler rastgele girilmiş durumda. Belki önce bunları sıralayıp ardından tek tek diğer Yeni çalışma sayfası içine kopyalayıp yapıştırabilirsiniz. Ancak bu, tekrarlı kopyalama ve yapıştırma işlemleri için sabır isteyebilir. Bugün bu görevi çözmek için bazı hızlı püf noktalarından bahsedeceğim.
- Yinelenen satır birleştir ve Excel'de değerleri topla
- Excel’de yinelenen kayıtlar içeren bir veri kümesiyle karşılaşmak oldukça yaygındır. Sıklıkla, ana zorluğunuzun yinelenen satırları etkili şekilde birleştirmek ve aynı sütundaki ilişkili değerleri aşağıdaki ekran görüntüsünde gösterildiği gibi toplamak olduğu veri aralıklarıyla karşılaşırsınız. Bu bağlamda, yinelenen verileri birleştirip ilişkili değerlerini toplamanıza yardımcı olacak birkaç pratik yöntemi inceleyeceğiz; böylece Excel çalışma kitabınız hem daha net hem de daha işlevsel hale gelecektir.
- İki veya daha fazla tabloyu Anahtar Sütun temel alarak tek bir tabloda birleştirin
- Bir çalışma kitabınızda üç tablonuz olduğunu varsayalım. Şimdi bu tabloları, aşağıdaki ekran görüntüsünde gösterilen sonucu elde etmek için ilgili Anahtar Sütun'lara göre tek bir tabloya birleştirmek istiyorsunuz. Bu, çoğu kişi için zorlu bir görev olabilir; ancak endişelenmeyin. Bu yazıda bu sorunu çözmek için bazı yöntemleri tanıtacağım.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar