Bir Excel elektronik tablosunu

Question

sütun başlıklarına dayanan farklı çalışma sayfalarına bölme 45 sütunlu bir elektronik tablom var. Bazı sütunlar aynı türde bilgileri içerir ve bu sütunları ortak bir sütun başlığı altında birlikte gruplandırdım.

Örnek için aşağıdaki tabloya bakınız. Yukarıdaki örneğe referansla

Spreadsheet

, en üst sütun başlıkları (değil değerleri) göre üç farklı çalışma tabloyu bölmek istiyorum. Bu nedenle, tüm bilgileri içeren orijinal çalışma sayfasına ek olarak "Birincil Bilgi", "İkincil Bilgi" ve "Daha Fazla Bilgi" adlı üç çalışma sayfası olmalıdır.

Yeni çalışma sayfalarının her birinde, o belirli sütun başlığına ilişkin tüm bilgileri görmek istiyorum. "Birincil Bilgi" adlı çalışma sayfası Ad, Yaş ve Cinsiyet için tüm alanları göstermelidir. Böyle bir şey sizin için çalışması gerektiğini

Answer 1

...

Option Explicit 

Public Sub Split() 
Dim c, i As Integer 
    c = 1 
Dim ws As Worksheet 

Do Until ActiveSheet.Cells(1, c) = "" 
    Sheet1.Cells(1, c).Select 
    i = ActiveCell.MergeArea.Columns.Count + c - 1 
    Sheet1.Range(Cells(2, c), Sheet1.Cells(Sheet1.UsedRange.Rows.Count, i)).Copy 
    With ActiveWorkbook 
     Set ws = .Worksheets.Add(After:=Sheets(.Sheets.Count)) 
     ws.Name = Sheet1.Cells(1, c) 
    End With 
    ws.Activate 
    ws.Cells(1, 1).Select 
    ActiveSheet.Paste 
    c = i + 1 
    Sheet1.Activate 
Loop 

End Sub