Verileri Excel'deki satır sayısına göre birden çok çalışma sayfasına bölme
Geniş bir veri aralığını belirli bir satır sayısına göre birden fazla Excel çalışma sayfasına verimli bir şekilde bölmek, veri yönetimini kolaylaştırabilir. Örneğin, bir veri kümesini her 5 satırda bir birden fazla sayfaya bölmek onu daha yönetilebilir ve organize hale getirebilir. Bu kılavuz, bu görevi hızlı ve kolay bir şekilde gerçekleştirmek için iki pratik yöntem sunmaktadır.
VBA kodu ile verileri satır sayısına göre birden çok çalışma sayfasına bölün
Kutools for Excel ile verileri satır sayısına göre birden çok çalışma sayfasına bölün
VBA kodu ile verileri satır sayısına göre birden çok çalışma sayfasına bölün
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ğıdakileri yapın:
1. 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: Verileri Excel'deki satır sayısına göre çalışma sayfalarına bölme
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. Daha sonra, tuşuna basın. F5 tuşu, açılan iletişim kutusunda başlık satırını seçin, ekran görüntüsüne bakın:
4. Daha sonra, OKve ikinci istem 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. Tıklamaya git OK düğmesi, üçüncü istem kutusunda, bölmek istediğiniz satır sayısını girin, ekran görüntüsüne bakın:
6. Daha sonra, OK düğmesi, 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:
Kutools for Excel ile verileri satır sayısına göre birden çok çalışma sayfasına bölün
VBA kodunun karmaşık olduğunu düşünüyorsanız, Kutools for Excel Verilerin bölünmesi sorununu etkili bir şekilde çözmek için hızlı ve sezgisel bir çözüm sunar. Bu Veriyi Böl Bu özellik, işlem sürecini basitleştirerek her beceri düzeyindeki kullanıcıların, büyük veri kümelerini, derinlemesine programlama bilgisine ihtiyaç duymadan birden fazla çalışma sayfasına kolayca bölmesine olanak tanır ve etkili veri yönetimini kolaylaştırır.
Yüklediyseniz Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. Bölmek istediğiniz veri aralığını seçin.Ardından, Kutools Artı > Veriyi Böl, ekran görüntüsüne bakın:
3. In Verileri Birden Çok Çalışma Sayfasına Bölme iletişim kutusu:
- seç Sabit satırlar itibaren Şuna göre böl seçeneğini seçin ve her çalışma sayfası için bölmek istediğiniz satır sayısını girin.
- Verilerinizde başlıklar 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çenek. (Bahşiş: Verilerinize göre çoban satırlarının sayısını girebilirsiniz.)
- Ardından, bölünmüş çalışma sayfası adlarını belirtebilirsiniz. Yeni çalışma sayfası adı bölümünde, çalışma sayfası adı kurallarını seçin. kurallar açılır listeye ekleyebilirsin Önek or Sonek sayfa adları için de.
4. Ayarları belirledikten sonra, ardından OKve seçilen veriler, her 5 satırda bir yeni çalışma kitabının birden çok çalışma sayfasına bölünmüştür. Ve her yeni çalışma sayfası için başlıklar eklenir. Ekran görüntüsüne bakın:
İlgili Makaleler:
- Verileri sütuna göre birden çok çalışma sayfasına bölün
- Çok büyük veri satırları içeren bir çalışma sayfanız olduğunu ve şimdi verileri Ad sütununa göre birden çok çalışma sayfasına bölmeniz gerektiğini (aşağıdaki ekran görüntüsüne bakın) ve adların rastgele girildiğini varsayalım. Belki önce bunları sıralayabilir, ardından bunları tek tek kopyalayıp başka yeni çalışma sayfalarına yapıştırabilirsiniz. Ancak bu, tekrar tekrar kopyalayıp yapıştırmak için sabrınızı gerektirecektir. Bugün bu görevi çözmek için bazı hızlı püf noktalarından bahsedeceğim.
- Yinelenen satırları birleştirin ve değerleri Excel'de toplayın
- Excel'de yinelenen girişlere sahip bir veri kümesiyle karşılaşmak yaygın bir senaryodur. Çoğu zaman kendinizi, aşağıdaki ekran görüntüsünde gösterildiği gibi, temel zorluğun bu yinelenen satırları verimli bir şekilde birleştirirken aynı zamanda karşılık gelen bir sütundaki değerleri toplamak olduğu bir dizi veriyle karşı karşıya bulabilirsiniz. Bu bağlamda, yinelenen verileri birleştirmenize ve bunlarla ilişkili değerleri bir araya getirerek Excel çalışma kitaplarınızın hem netliğini hem de kullanışlılığını artırmanıza yardımcı olabilecek birkaç pratik yöntemi inceleyeceğiz.
- Anahtar sütunlara göre iki veya daha fazla tabloyu tek bir tablo halinde birleştirin
- Bir çalışma kitabında üç tablonuz olduğunu varsayarsak, şimdi, aşağıda gösterilen ekran görüntüsü gibi sonucu almak için bu tabloları karşılık gelen anahtar sütunlara göre tek bir tabloda birleştirmek istiyorsunuz. Bu çoğumuz için zahmetli bir görev olabilir, ancak lütfen endişelenmeyin, bu makale, bu sorunu çözmek için bazı yöntemler sunacağım.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!