Excel'de büyük bir tabloyu birden çok küçük tabloya nasıl bölebilirim?
Birden çok sütunu ve yüzlerce hatta binlerce satırı içeren büyük bir Excel tablonuz varsa, onu daha yönetilebilir küçük parçalara bölmek isteyebilirsiniz. Örneğin, verileri belirli sütun değerlerine göre ayırabilir veya sabit bir satır sayısıyla bölümlere ayırmak zorunda kalabilirsiniz. Bu eğitim, bu işlemi verimli bir şekilde gerçekleştirmeniz için adım adım yöntemler sunar.
| Ana Tablo | Tabloyu sütun değerine göre birden çok tabloya böl | Tabloyu satır sayısına göre birden çok tabloya böl | |
 |  |  |  |
VBA kodu ile büyük bir tabloyu sütun değerine göre birden çok tabloya bölme
VBA kodu ile büyük bir tabloyu belirli satır sayısına göre birden çok tabloya bölme
VBA kodu ile büyük bir tabloyu sütun değerine göre birden çok tabloya bölme
Bu büyük tabloyu belirttiğiniz bir sütun değerine göre birden çok tabloya bölmek için aşağıdaki VBA kodu size yardımcı olabilir. Lütfen şu adımları izleyin:
1. "Microsoft Visual Basic for Applications" penceresini açmak için "ALT" + "F11" tuşlarına basın.
2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki kodu "Modül" penceresine yapıştırın.
VBA kodu: Büyük bir tabloyu Anahtar Sütun'e göre birden çok tabloya bölme:
Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) &, "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub
3. Kodu yapıştırdıktan sonra "F5" tuşuna basın; bir uyarı kutusu açılacaktır. Lütfen verilerinizden başlık satırını seçin (ekran görüntüsüne bakın):
4. Ardından "Tamam" düğmesine tıklayın; başka bir iletişim kutusu açılacaktır. Tabloyu bölmek istediğiniz sütun verisini seçin (ekran görüntüsüne bakın):
5. "Tamam" düğmesine tıklayın. Büyük tablo artık sütun değerlerine göre birden çok çalışma sayfasına bölünmüş durumda ve yeni çalışma sayfaları, ana sayfanın hemen ardından sıralanır. Ayrıca her yeni çalışma sayfası, ilgili sütun değerine göre adlandırılmıştır. Ekran görüntüsüne bakın:
VBA kodu ile büyük bir tabloyu belirli satır sayısına göre birden çok tabloya bölme
Satır sayısına göre tabloyu birden çok tabloya bölmek istiyorsanız, aşağıdaki VBA kodu işinizi kolaylaştırabilir.
1. "Microsoft Visual Basic for Applications" penceresini açmak için "ALT" + "F11" tuşlarına basılı tutun.
2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki kodu "Modül" penceresine yapıştırın.
VBA kodu: Büyük bir tabloyu satır sayısına göre birden çok tabloya 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. Ardından "F5" tuşuna basın; açılan iletişim kutusundan başlık satırını seçin (ekran görüntüsüne bakın):
4. Ardından "Tamam" düğmesine tıklayın; 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. Ardından "Tamam" düğmesine tıklamaya devam edin; üçüncü uyarı kutusunda bölmek istediğiniz satır sayısını girin (ekran görüntüsüne bakın):
6. Ardından "Tamam" düğmesine tıklayın; ana tablo, aşağıdaki ekran görüntüsünde gösterildiği gibi satır sayısına göre birden çok çalışma sayfasına bölünmüş olur:
Kutools for Excel ile büyük bir tabloyu sütun değerine veya satır sayısına göre birden çok tabloya bölme
Yukarıdaki kodlar çoğu kullanıcı için zorlayıcı olabilir. Bu yüzden, “Kutools for Excel” eklentisinin harika bir özelliğini — “Veriyi Böl” özelliğini tanıtmak istiyoruz. Bu araçla büyük bir tabloyu Anahtar Sütun’a veya satır sayısına göre hızlı ve kolay şekilde birden çok ayrı tabloya bölebilirsiniz.
1. Bölmek istediğiniz Veri Aralığını seçin ve ardından "KUTOOLS PLUS" > "Veriyi Böl" seçeneğine tıklayın (ekran görüntüsüne bakın):
2. "Veriyi Çoklu Çalışma Sayfalarına Böl" iletişim kutusunda ihtiyaçlarınıza en uygun ayarları belirleyin:
(1.) Gereksiniminize göre "Sütunu belirtin" veya "Sabit değer" seçeneğini "Bölme Temeli" bölümünden seçin;
(2.) "Kurallar" açılır listesinden oluşturulan çalışma sayfalarının adını belirtin; ayrıca sayfa adlarına "Önek" veya "Sonek" ekleyebilirsiniz.
3. Ardından "Tamam" düğmesine tıklayın; büyük tablo artık Yeni Çalışma Kitabı’nda birden çok küçük tabloya bölünmüş olacak. Ekran görüntülerine göz atın:
| Tabloyu sütun değerine göre birden çok tabloya böl | Tabloyu satır sayısına göre birden çok tabloya böl |
 |  |
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
İlgili diğer makaleler:
- Bir Çalışma Kitabını Excel'de Ayrı Excel Dosyaları'lara Böl
- Çalışma kitabınızın her bir sayfasını ayrı bir Excel dosyası olarak kaydederek büyük bir çalışma kitabını birden fazla Excel dosyasına bölmek isteyebilirsiniz. Örneğin, bir çalışma kitabını birkaç ayrı Excel dosyasına ayırabilir ve ardından her birini farklı kişilere yönlendirebilirsiniz. Böylece yalnızca ilgili verilerle ilgilenmelerini sağlarken verilerinizin güvenliğini de korumuş olursunuz. Bu makalede, büyük bir çalışma kitabını her bir çalışma sayfasına göre ayrı Excel dosyalarına nasıl bölebileceğiniz anlatılmaktadır.
- Excel'de Tam Ad'yi İlk ve Soyad'ye Böl
- Aşağıdaki ilk ekran görüntüsünde gösterildiği gibi, tek bir sütunda bir isim listeniz olduğunu ve bu Tam Ad’ı, yine aşağıdaki ekran görüntüsünde görüldüğü gibi Ad, İkinci Ad ve Soyad sütunlarına bölmek istediğinizi varsayalım. Bu sorunu çözmek için size yardımcı olabilecek bazı pratik yöntemler aşağıda yer almaktadır.
- Excel'de Uzun Bir Sütunu Birden Çok Sütuna Bölme
- Excel'de görüntülemesi zorlaşabilecek uzun bir sütun veriniz varsa, bu uzun listeyi Excel'de birden çok sütuna bölerek görüntülemeyi kolaylaştırabilirsiniz.
- Excel'de Kelime veya Sayıyı Ayrı Hücrelere Bölme
- Bir çalışma sayfasında sayılar veya kelimelerden oluşan bir listeniz varsa ve hücre içeriğini aşağıdaki ekran görüntüsünde gösterildiği gibi farklı hücrelere harflere bölmek istiyorsanız, Excel’de bu işlemi nasıl yapabilirsiniz?
- Excel'de Uzun Bir Listeyi Eşit Gruplara Bölme
- Aşağıdaki ekran görüntüsünde gösterildiği gibi, uzun bir veri listenizi birden çok eşit gruba bölmeniz gerekiyorsa, bu işlemi Excel’de hızlı ve kolayca nasıl gerçekleştirebilirsiniz?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile yükseltin ve verimlilikte hiç yaşanmamış 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'a sekmeli arayüz getirir ve 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.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile birlikte Office Tab Pro'yu da içerir; bu da Office uygulamalarında çalışan takımlar 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 değer— tek tek eklenti satın almaya göre tasarruf edin