1. Birleştirmek istediğiniz çalışma kitabını etkinleştirin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın 1.
2. Pencerede Ekle > Modül'e tıklayarak yeni bir Modül betiği oluşturun 1.
3. Aşağıdaki kodu kopyalayıp betiğe yapıştırın 1:

Sub Combine()
   'UpdatebyExtendoffice
   Dim J As Integer
   On Error Resume Next
   Sheets(1).Select
   Worksheets.Add
   Sheets(1).Name = "Combined"
   Sheets(2).Activate
   Range("A1").EntireRow.Select
   Selection.Copy Destination:=Sheets(1).Range("A1")
   For J = 2 To Sheets.Count
   Sheets(J).Activate
   Range("A1").Select
   Selection.CurrentRegion.Select
   Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
   Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
   Next
End Sub
Kopyala

4. F5 tuşuna basarak tüm sayfalardaki verilerin, tüm sayfaların önündeki "Combined" adlı yeni bir sayfada birleştirilmesini sağlayabilirsiniz 1.

1. Excel'i etkinleştirin, Kutools Plus > Combine seçeneğine tıklayın 1.
2. Çalışma kitaplarının kapalı olması gerektiğini belirten bir iletişim kutusu açılır, Tamam'a tıklayın 1.
3. Çalışma Sayfalarını Birleştirme adım 1 iletişim kutusunda, birden fazla çalışma sayfasını tek bir çalışma kitabına birleştirme seçeneğini işaretleyin 1.
4. Birleştirmek istediğiniz çalışma kitaplarını ekleyin ve hangi çalışma sayfalarının birleştirileceğini seçin 1.
5. Gerekli ayarları belirtin ve Tamamla'ya tıklayın 1.