Excel - Birkaç çalışma sayfasını tek bir sayfada birleştirin

Konu

Excel'i, birkaç ürün hakkında bilgi depolamak ve her aralık için farklı bir çalışma sayfasına sahip olmak için kullanıyorum. Tüm bu çalışma sayfalarını tek sayfada nasıl birleştirirsiniz (sırayla birleştirirsiniz)? Tüm çalışma sayfaları aynı başlıkta, aynı başlıkta (en üst satırda) aynı sayıda sütun.

Nasıl devam edilir?

Çözüm

Bunu varsayarak:

1. Konsolide başlıklı bir sayfa makro tarafından oluşturulabilir ve silinebilir

2. Başlıklar, tüm sayfalarda 1. sıradadır ve herkes için ortaktır.

3. Tüm sayfalar kopyalanacak

 Alt CombineSheets () Dim lConRow Varyant Dim Kadar Uzun Dim Levha sCons konsollu Levha Dize Kadar Dim lSheetRow Uzun Boylu Levha SLastCol Dize Kadar sConstaneousSheet = "Consolida" Hatalı Sayfada Devam Etme Sonraki Sayfalarda (sConstaneousSheet). Sheet.Name = sConsSOLSheet Sonra Sheet_Sheet Her Sayfa İçin sConsSOLSheet Sonra sSastCol = "" Sonra SöyleyinizStopSol = Sheet.Cells (1, Columns.Count) .End (xlToLeft) .Address Sheets (sCons konsolSayfa). 1 ") = Sheet.Range (" 1: 1 "). Değer lConRow = 1 Bitirse lSheetRow = 0 Ardından Devam Ediyor Sonraki lSheetRow = Sheet.Cells.Find (" * ", Hücreler (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Aşağıda Hata Oluşturan 0 Eğer (lSheetRow> 1) Sonra Sayfa (sConsSOLSheet) .Range (lConRow + 1 & ":" & lSheetRow + lConRow - 1) = Sheet.Range ("2:" & lSheetRow) .Value lConRow = Sayfalar (sConsSOLSheet) .Cells.Find ("*", Hücreler (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Row_Sheet: Next End Sub. 

Bu ipucu için rizvisa1'e teşekkür ederiz.