Excel İpuçları: Veriyi Çoklu Çalışma Sayfalarına Böl / çalışma kitaplarını sütun değerine göre
Excel’de büyük veri kümelerini yönetirken, Sütunu belirtin değerlerine göre Veriyi Çoklu Çalışma Sayfalarına Böl son derece yararlı olabilir. Bu yöntem yalnızca veri organizasyonunu değil, aynı zamanda okunabilirliği artırır ve Veri Analizi işlemini kolaylaştırır.
Diyelim ki ürün adı ve ilk çeyrek satış miktarı gibi birden çok girdi içeren büyük bir satış kaydınız var. Amacınız, bu verileri her ürün adına göre ayrı çalışma sayfalarına bölerek bireysel satış performansını ayrı ayrı analiz edebilmek.
Veriyi Çoklu Çalışma Sayfalarına Böl sütun değerine göre
VBA kodu ile Veriyi Böl sütun değerine göre birden çok çalışma kitabına
Veriyi Çoklu Çalışma Sayfalarına Böl sütun değerine göre
Normalde öncelikle veri listesini sıralayabilir, ardından verileri tek tek yeni çalışma sayfalarına kopyalayıp yapıştırabilirsiniz. Ancak bu işlem, tekrar tekrar kopyalayıp yapıştırma gerektirdiği için sabır ister. Bu bölümde, Excel’de bu görevi daha verimli yerine getirmeniz, zamandan tasarruf etmeniz ve hata riskini en aza indirmeniz için iki basit yöntemi tanıtıyoruz.
VBA kodu ile Veriyi Çoklu Çalışma Sayfalarına Böl sütun değerine göre
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
Sub Splitdatabycol()
'updateby 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
Dim xWS 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
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub3. Ardından, kodu çalıştırmak için F5 tuşuna basın; başlık satırını seçmenizi hatırlatan bir uyarı kutusu açılacak. Ardından Tamam’a tıklayın. Ekran görüntüsüne bakın:
4. İkinci uyarı kutusunda, lütfen Bölme Temeli için istediğiniz sütun verisini seçin ve ardından Tamam’a tıklayın. Ekran görüntüsüne bakın:
5. Etkin çalışma sayfasındaki tüm veriler, sütun değerlerine göre birden çok çalışma sayfasına bölünür. Oluşan bu çalışma sayfaları, "Hücreleri Böl" içindeki değerlere göre adlandırılır ve çalışma kitabının sonuna eklenir. Ekran görüntüsüne bakın:
Veriyi Çoklu Çalışma Sayfalarına Böl sütun değerine göre Kutools for Excel ile
Kutools for Excel, Excel ortamınıza akıllı bir özellik getirir: Veriyi Böl. Artık verileri birden çok çalışma sayfasına bölmek zorlu bir iş değil! Kullanımı kolay aracımız, veri kümenizi seçtiğiniz sütun değerine veya satır sayısına göre otomatik olarak böler ve her bilginin tam olarak ihtiyacınız olduğu yerde olmasını sağlar. Elektronik tablolarınızı manuel olarak düzenlemenin yorucu işini geride bırakın ve verilerinizi yönetmenin daha hızlı, hatasız yolunu keşfedin.
Kutools for Excel yüklendikten sonra, Kutools for Excel sekmesinden Veri Aralığı’nı seçin ve ardından KUTOOLS PLUS > Veriyi Böl seçeneğine tıklayarak Veriyi Çoklu Çalışma Sayfalarına Böl iletişim kutusunu açın.
- Sütunu belirtin seçeneğini Bölme Temeli bölümünden seçin ve Açılır Liste’den verileri bölmek istediğiniz sütun değerini belirleyin.
- Verileriniz başlıklara sahipse ve bunları her yeni bölünmüş çalışma sayfasına eklemek istiyorsanız, lütfen Başlıkları içerir seçeneğini işaretleyin. (Verilerinize göre Başlık Satır Sayısı’nı belirleyebilirsiniz. Örneğin, verileriniz iki başlık satırı içeriyorsa, 2 yazın.)
- Ardından, Oluşturulan çalışma sayfalarının adı bölümünde, Kurallar açılır listesinden “Bölme: Çalışma Sayfası Adı”nı seçin ve çalışma sayfası adları için önek veya sonek ekleyebilirsiniz.
- Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Artık çalışma sayfasındaki veriler, bir Yeni Çalışma Kitabı içinde birden çok çalışma sayfasına bölünmüştür.
VBA kodu ile Veriyi Böl sütun değerine göre birden çok çalışma kitabına
Bazen verileri birden çok çalışma sayfasına bölmek yerine, bir Anahtar Sütuna göre ayrı çalışma kitaplarına bölmek daha faydalı olabilir. İşte verileri belirttiğiniz bir sütun değerine göre otomatik olarak birden çok çalışma kitabına bölmek için VBA kodunu nasıl kullanacağınızın adım adım kılavuzu.
1. ALT + F11tuşlarına basarak Microsoft Visual Basic for Applicationspenceresini açın.
2. Ekle>Modülseçeneğine tıklayın ve aşağıdaki kodu Modül Penceresineyapıştırın.
Sub SplitDataByColToWorkbooks()
' Updateby Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWS As Workbook
Dim savePath As String
' Set the directory to save new workbooks
savePath = "C:\Users\AddinsVM001\Desktop\multiple files\" ' Modify this path as needed
Application.DisplayAlerts = False
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.Address(False, False)
titlerow = xTRg.Row
ws.Columns(vcol).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ws.Cells(1, ws.Columns.Count), Unique:=True
myarr = Application.Transpose(ws.Cells(1, ws.Columns.Count).Resize(ws.Cells(ws.Rows.Count, ws.Columns.Count).End(xlUp).Row).Value)
ws.Cells(1, ws.Columns.Count).Resize(ws.Cells(ws.Rows.Count, ws.Columns.Count).End(xlUp).Row).ClearContents
For i = 2 To UBound(myarr)
Set xWS = Workbooks.Add
ws.Range(title).AutoFilter Field:=vcol, Criteria1:=myarr(i)
ws.Range("A" & titlerow & ":A" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Copy
xWS.Sheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteAll
xWS.SaveAs Filename:=savePath &, myarr(i) & ".xlsx"
xWS.Close SaveChanges:=False
Next i
ws.AutoFilterMode = False
Application.DisplayAlerts = True
ws.Activate
End Sub
3. Ardından F5tuşuna basarak kodu çalıştırın; başlık satırını seçmenizi hatırlatan bir uyarı kutusu açılacak, ardından Tamam’a tıklayın. Ekran görüntüsüne bakın:
4. İkinci uyarı kutusunda, Bölme Temeli istediğiniz sütun verisini Lütfen seçin, ardından Tamam’a tıklayın. Ekran görüntüsüne bakın:
5. Bölme işleminden sonra, etkin çalışma sayfasındaki tüm veriler sütun değerlerine göre birden çok çalışma kitabına bölünür. Tüm Çalışma Kitabını Ayır, belirttiğiniz klasöre kaydedilir. Ekran görüntüsüne bakın:
İlgili Makaleler:
- Veriyi Çoklu Çalışma Sayfalarına Böl satır sayısına göre
- 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ırabilir. Örneğin, her 5 satırda bir veri kümesini ayrı sayfalara dağıtmak, verileri daha düzenli ve yönetilebilir hale getirebilir. Bu kılavuz, bu işlemi hızlıca ve zahmetsizce gerçekleştirmeniz için iki pratik yöntem sunar.
- Anahtar Sütun temel alınarak iki veya daha fazla tabloyu tek bir tabloda birleştirin
- Bir çalışma kitabınızda üç tablonuz olduğunu varsayalım; şimdi bu tabloları ilgili Anahtar Sütun temel alarak tek bir tabloya birleştirmek ve aşağıdaki ekran görüntüsünde gösterildiği gibi bir sonuç elde etmek istiyorsunuz. Bu, çoğu kişi için zorlu bir görev olabilir; ancak endişelenmeyin! Bu makalede bu sorunu çözmek için bazı yöntemleri tanıtacağım.
- Metin dizelerini sınırlayıcıya göre birden çok satıra bölme
- Normalde, hücre içeriğini virgül, nokta, noktalı virgül, eğik çizgi gibi belirli bir sınırlayıcıya göre birden çok sütuna bölmek için **Metni Sütunlara Dönüştür** özelliğini kullanabilirsiniz. Ancak bazen, sınırlayıcıyla ayrılmış hücre içeriğini birden çok satıra bölmek ve diğer sütunlardaki verileri aşağıda ekran görüntüsünde gösterildiği gibi tekrarlamak gerekebilir. Excel’de bu görevi yerine getirmek için etkili yöntemleriniz var mı? Bu öğretici, Excel’de bu işi tamamlamak için bazı pratik ve etkili yolları sizinle paylaşacak.
- Çok satırlı hücre içeriğini ayrı satırlara/sütunlara bölme
- Diyelim ki hücre içeriğiniz, Alt + Enter tuşlarıyla ayrılmış çok satırlı bir metinden oluşuyor ve şimdi bu içeriği ayrı satırlara veya sütunlara bölmek istiyorsunuz. Peki bu durumda ne yapabilirsiniz? Bu makalede, çok satırlı hücre içeriğinizi hızlıca ayrı satırlara ya da sütunlara nasıl bölebileceğinizi öğreneceksiniz.
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