Excel'deki her satır için yeni sayfalar nasıl oluşturulur?
A sütununda tüm öğrencilerin adının yer aldığı bir puan tablonuz olduğunu varsayalım. Şimdi, A sütunundaki bu adlara dayalı yeni sayfalar oluşturmak istiyorsunuz ve sayfa başına yap benzersiz bir öğrencinin verilerini içeriyor. Veya A sütunundaki isimleri dikkate almadan tablodaki sadece her satır için yeni bir sayfa oluşturun. Bu videoda, bunu başarmak için yöntemler alacaksınız.
VBA kodu ile her satır için yeni sayfalar oluşturun
Kutools for Excel'in Bölünmüş Veri yardımcı programıyla her satır için yeni sayfalar oluşturun
VBA kodu ile her satır için yeni sayfalar oluşturun
Aşağıdaki kodlarla, sütun değerlerine göre yeni sayfa oluşturabilir veya Excel'deki her satır için yeni sayfalar oluşturabilirsiniz.
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ve sonra aşağıdaki kodu modül pencere.
VBA kodu: sütuna göre her satır için yeni sayfa oluşturun
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End Sub
not: A1: C1, tablonuzun başlık aralığıdır. İhtiyaçlarınıza göre değiştirebilirsiniz.
3. Basın F5 kodu çalıştırmak için anahtar, ardından mevcut çalışma kitabının tüm çalışma sayfalarından sonra aşağıdaki ekran görüntüsü gibi yeni çalışma sayfaları oluşturulur:
Sütun değerini dikkate almadan her satır için doğrudan yeni sayfalar oluşturmak istiyorsanız, aşağıdaki kodu kullanabilirsiniz.
VBA kodu: Her satır için doğrudan yeni sayfa oluşturun
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End Sub
Kodu çalıştırdıktan sonra, aktif çalışma sayfasındaki her satır yeni bir çalışma sayfasına yerleştirilecektir.
not: Başlık satırı da bu VBA kodu ile yeni bir sayfaya yerleştirilecektir.
Kutools for Excel'in Bölünmüş Veri yardımcı programıyla her satır için yeni sayfalar oluşturun
Aslında yukarıdaki yöntem karmaşıktır ve anlaşılması zordur. Bu bölümde size Veriyi Böl yarar Kutools for Excel.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. Yeni sayfalar oluşturmak için kullanmanız gereken tabloyu seçin ve ardından Kutools Artı> Tükürük Verileri. Ekran görüntüsüne bakın:
2. içinde Verileri Birden Çok Çalışma Sayfasına Bölme iletişim kutusu, lütfen aşağıdaki işlemleri yapın.
A. Sütun değerine göre yeni sayfalar oluşturmak için:
B. Her satır için doğrudan yeni sayfalar oluşturmak için:
Tüm yeni sayfaların içinde bulunduğu yeni bir çalışma kitabı oluşturulur. Aşağıdaki ekran görüntülerine bakın.
Sütun değerine göre her satır için yeni sayfalar oluşturma:
Sütun değerini dikkate almadan her satır için yeni sayfa oluşturmak:
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
Kutools for Excel'in Bölünmüş Veri yardımcı programıyla her satır için yeni sayfalar oluşturun
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!