Excel İpuçları: Verileri sütun değerine göre birden çok çalışma sayfasına / çalışma kitabına bölme
Excel'de büyük veri kümelerini yönetirken, verileri belirli sütun değerlerine göre birden çok çalışma sayfasına bölmek oldukça faydalı olabilir. Bu yöntem yalnızca verilerin organizasyonunu geliştirmekle kalmaz, aynı zamanda okunabilirliği de artırır ve veri analizini kolaylaştırır.
Ürün adı, ilk çeyrekte satılan miktar gibi birden fazla girişi içeren büyük bir satış kaydınız olduğunu varsayalım. Amaç, bu verileri her ürün adına göre ayrı çalışma sayfalarına bölerek bireysel satış performansının ayrı ayrı analiz edilebilmesidir.
Verileri sütun değerine göre birden çok çalışma sayfasına bölme
VBA koduyla verileri sütun değerine göre birden çok çalışma kitabına bölme
Verileri sütun değerine göre birden çok çalışma sayfasına bölme
Normalde, önce veri listesini sıralayabilir, ardından bunları birer birer kopyalayıp diğer yeni çalışma sayfalarına yapıştırabilirsiniz. Ancak bu, tekrar tekrar kopyalayıp yapıştırmak için sabrınızı gerektirecektir. Bu bölümde, Excel'de bu görevi verimli bir şekilde yerine getirerek size zaman kazandıracak ve hata potansiyelini azaltacak iki basit yöntemi tanıtacağız.
VBA koduyla verileri sütun değerine göre birden çok çalışma sayfasına bölün
1. Tuşunu basılı tutun. ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve 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 Sub
3. Ardından, F5 Kodu çalıştırmak için tuşuna basın ve size başlık satırını seçmenizi hatırlatan bir bilgi istemi kutusu açılır ve ardından OK. Ekran görüntüsüne bakın:
4. İkinci bilgi istemi kutusunda, lütfen temel alarak bölmek istediğiniz sütun verilerini seçin ve ardından simgesine tıklayın. OK. Ekran görüntüsüne bakın:
5. Aktif çalışma sayfasındaki tüm veriler, sütun değerlerine göre birden fazla çalışma sayfasına bölünür. Ortaya çıkan çalışma sayfaları, bölünmüş hücrelerdeki değerlere göre adlandırılır ve çalışma kitabının sonuna yerleştirilir. Ekran görüntüsüne bakın:
Kutools for Excel ile verileri sütun değerine göre birden fazla çalışma sayfasına bölün
Kutools for Excel akıllı özellik getiriyor – Veriyi Böl doğrudan Excel ortamınıza aktarın. Verileri birden fazla çalışma sayfasına bölmek artık sorun değil. Sezgisel aracımız, veri kümenizi seçilen sütun değerine veya satır sayısına göre otomatik olarak bölerek her bir bilgi parçasının tam olarak ihtiyacınız olan yerde olmasını sağlar. E-tablolarınızı manuel olarak düzenlemek gibi sıkıcı bir işe elveda deyin ve verilerinizi yönetmenin daha hızlı, hatasız bir yolunu benimseyin.
Kurduktan sonra Kutools for Excel, veri aralığını seçin ve ardından Kutools Artı > Veriyi Böl açmak için Verileri birden çok çalışma sayfasına bölme iletişim kutusu.
- seç Belirli sütun seçeneği Şuna göre böl bölümüne gidin ve açılır listeden verileri temel alarak bölmek istediğiniz sütun değerini seçin.
- 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. (Verilerinize göre başlık satırlarının sayısını belirtebilirsiniz. Örneğin, verileriniz iki başlık içeriyorsa lütfen 2 yazın.)
- Ardından, bölünmüş çalışma sayfası adlarını belirtebilirsiniz. Yeni çalışma sayfası adı bölümünde, Kurallar açılır listesinden çalışma sayfası adları kuralını belirtin, Önek or Sonek sayfa adları için de.
- Tıkla OK buton. Ekran görüntüsüne bakın:
Artık çalışma sayfasındaki veriler yeni bir çalışma kitabında birden çok çalışma sayfasına bölünüyor.
VBA koduyla verileri sütun değerine göre birden çok çalışma kitabına bölme
Bazen verileri birden çok çalışma sayfasına bölmek yerine, verileri bir anahtar sütuna dayalı olarak ayrı çalışma kitaplarına bölmek daha faydalı olabilir. Verileri belirli bir sütun değerine göre birden çok çalışma kitabına bölme işlemini otomatikleştirmek için VBA kodunun nasıl kullanılacağına ilişkin adım adım kılavuzu burada bulabilirsiniz.
1. Tuşunu basılı tutun. ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu Modül Penceresi.
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, F5 Kodu çalıştırmak için tuşuna basın ve size başlık satırını seçmenizi hatırlatan bir bilgi istemi kutusu açılır ve ardından OK. Ekran görüntüsüne bakın:
4. İkinci bilgi istemi kutusunda, lütfen temel alarak bölmek istediğiniz sütun verilerini seçin ve ardından simgesine tıklayın. OK. Ekran görüntüsüne bakın:
5. Bölme işleminden sonra aktif çalışma sayfasındaki tüm veriler, sütun değerlerine göre birden fazla çalışma kitabına bölünür. Bölünmüş çalışma kitaplarının tümü belirttiğiniz klasöre kaydedilir. Ekran görüntüsüne bakın:
İlgili Makaleler:
- Verileri satır sayısına göre birden çok çalışma sayfasına bölün
- 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.
- 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.
- Metin Dizelerini Sınırlayıcıya Göre Birden Çok Satıra Böl
- Normalde, hücre içeriğini virgül, nokta, noktalı virgül, eğik çizgi vb. gibi belirli bir sınırlayıcıyla birden çok sütuna bölmek için Metni Sütuna özelliğini kullanabilirsiniz. Ancak bazen, ayrılmış hücre içeriğini birden çok satıra bölmeniz gerekebilir. ve aşağıda gösterilen ekran görüntüsü gibi diğer sütunlardaki verileri tekrarlayın. Excel'de bu görevi halletmek için herhangi bir iyi yolunuz var mı? Bu öğretici, Excel'de bu işi tamamlamak için bazı etkili yöntemleri tanıtacaktır.
- Çok satırlı hücre içeriğini ayrılmış satırlara/sütunlara bölme
- Alt + Enter ile ayrılmış çok satırlı hücre içeriğiniz olduğunu ve şimdi çok satırlı içeriği ayrı satırlara veya sütunlara bölmeniz gerektiğini varsayalım, ne yapabilirsiniz? Bu makalede, çok satırlı hücre içeriklerini hızlı bir şekilde ayrılmış satırlara veya sütunlara nasıl böleceğinizi öğreneceksiniz.
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!