Skip to main content

Excel'de birden fazla çalışma kitabını tek bir ana çalışma kitabında nasıl birleştirirsiniz?

Author: Tech Support Last Modified: 2025-06-10

Excel'de birden fazla çalışma kitabını bir ana çalışma kitabında birleştirmeniz gerektiğinde hiç takılıp kaldınız mı? En kötüsü, birleştirmeniz gereken çalışma kitaplarının birden fazla çalışma sayfası içermesi. Peki, birden fazla çalışma kitabının yalnızca belirtilen çalışma sayfalarını tek bir çalışma kitabında nasıl birleştirirsiniz? Bu eğitim, size sorunu adım adım çözmek için birkaç yararlı yöntem gösteriyor.


Taşı veya Kopyala işleviyle birden fazla çalışma kitabını tek bir çalışma kitabında birleştirme

Birleştirilmesi gereken yalnızca birkaç çalışma kitabı varsa, çalışma sayfalarını orijinal çalışma kitabından ana çalışma kitabına taşımak veya kopyalamak için Taşı veya Kopyala komutunu kullanabilirsiniz.

1. Bir ana çalışma kitabında birleştireceğiniz çalışma kitaplarını açın.

2. Orijinal çalışma kitabındaki, ana çalışma kitabına taşıyacağınız veya kopyalayacağınız çalışma sayfalarını seçin.

Notlar:

1). Birden fazla bitişik olmayan çalışma sayfasını, Ctrl tuşuna basılı tutarak ve sayfa sekmelerine tek tek tıklayarak seçebilirsiniz.

2). Birden fazla bitişik çalışma sayfasını seçmek için lütfen ilk sayfa sekmesine tıklayın, Shift tuşuna basın ve ardından hepsini seçmek için son sayfa sekmesine tıklayın.

3). Herhangi bir sayfa sekmesine sağ tıklayabilir, bağlam menüsünden Tüm Sayfaları Seç'e tıklayarak çalışma kitabındaki tüm çalışma sayfalarını aynı anda seçebilirsiniz.

3. Gerekli çalışma sayfalarını seçtikten sonra, sayfa sekmesine sağ tıklayın ve ardından bağlam menüsünden Taşı veya Kopyala'ya tıklayın. Ekran görüntüsüne bakın:

Move or Copy option on the context menu

4. Ardından Taşı veya Kopyala iletişim kutusu açılır, Kitaba git açılır menüsünde, çalışma sayfalarını taşıyacağınız veya kopyalayacağınız ana çalışma kitabını seçin. Önce sayfa kutusunda Sona taşı'yı seçin, Kopya oluştur kutusunu işaretleyin ve son olarak Tamam düğmesine tıklayın.

Move or Copy dialog

Ardından iki çalışma kitabındaki çalışma sayfalarının birleştirildiğini görebilirsiniz. Lütfen diğer çalışma kitaplarından çalışma sayfalarını ana çalışma kitabına taşımak için yukarıdaki adımları tekrarlayın.

Worksheets from two workbooks are in one workbook now


VBA ile birden fazla çalışma kitabını veya çalışma kitaplarının belirtilen sayfalarını bir ana çalışma kitabında birleştirme

Birleştirilmesi gereken birden fazla çalışma kitabı varsa, bunları hızlıca gerçekleştirmek için aşağıdaki VBA kodlarını uygulayabilirsiniz. Lütfen şu şekilde devam edin.

1. Birleştirmek istediğiniz tüm çalışma kitaplarını aynı dizine yerleştirin.

2. Bir Excel dosyasını başlatın (bu çalışma kitabı ana çalışma kitabı olacaktır).

3. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın, ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA Kodu 1: Birden fazla Excel çalışma kitabını birleştirme

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Notlar:

1. Yukarıdaki VBA kodu, birleştirme işleminden sonra orijinal çalışma kitaplarının sayfa adlarını koruyacaktır.

2. Birleştirme işleminden sonra ana çalışma kitabındaki hangi çalışma sayfalarının nereden geldiğini ayırt etmek istiyorsanız, lütfen aşağıdaki VBA Kodu 2'yi uygulayın.

3. Çalışma kitaplarının yalnızca belirtilen çalışma sayfalarını bir ana çalışma kitabında birleştirmek istiyorsanız, aşağıdaki VBA Kodu 3 yardımcı olabilir.

VBA kodlarında, “C:\Users\DT168\Desktop\KTE\” klasör yoludur. VBA Kodu 3'te, "Sheet1,Sheet3" bir ana çalışma kitabında birleştireceğiniz çalışma kitaplarının belirtilen çalışma sayfalarıdır. İhtiyaçlarınıza göre bunları değiştirebilirsiniz.

VBA Kodu 2: Çalışma kitaplarını birleştirme (her çalışma sayfası orijinal dosya adı önekiyle adlandırılacak):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

VBA Kodu 3: Çalışma kitaplarının belirtilen çalışma sayfalarını bir ana çalışma kitabında birleştirme:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Kodu çalıştırmak için F5 tuşuna basın. Ardından belirli bir klasördeki tüm çalışma kitaplarının çalışma sayfaları veya belirtilen çalışma sayfaları anında bir ana çalışma kitabında birleştirilir.


Birden fazla çalışma kitabını veya çalışma kitaplarının belirtilen sayfalarını kolayca tek bir çalışma kitabında birleştirme

Neyse ki, Kutools for Excel'in Çalışma kitabı birleştirme aracı, birden fazla çalışma kitabını birleştirmeyi çok daha kolay hale getiriyor. Birden fazla çalışma kitabını birleştirmede bu işlevin nasıl çalıştığını görelim.

Kutools for Excel'i uygulamadan önce, lütfen önce indirip yükleyin.

1. Yeni bir çalışma kitabı oluşturun ve Kutools Plus > Combine'a tıklayın. Ardından bir iletişim kutusu açılır ve size tüm birleştirilmiş çalışma kitaplarının kaydedilmesi gerektiğini ve bu özelliğin korumalı çalışma kitaplarına uygulanamayacağını hatırlatır, lütfen Tamam düğmesine tıklayın.

Combine button on the Kutools tab on the ribbon

2. Çalışma Sayfalarını Birleştir sihirbazında, Birden fazla çalışma sayfasını çalışma kitaplarından tek bir çalışma kitabına birleştir seçeneğini seçin ve ardından İleri düğmesine tıklayın. Ekran görüntüsüne bakın:

Combine Worksheets wizard

3. Çalışma Sayfalarını Birleştir - 3 Adımdan 2. Adım iletişim kutusunda, birleştireceğiniz Excel dosyalarını eklemek için Ekle > Dosya veya Klasör'e tıklayın. Excel dosyalarını ekledikten sonra, Bitir düğmesine tıklayın ve ana çalışma kitabını kaydetmek için bir klasör seçin. Ekran görüntüsüne bakın:

Combine Worksheets - Step 2 of 3

Şimdi tüm çalışma kitapları birleştirildi.

Yukarıdaki iki yönteme kıyasla, Kutools for Excel aşağıdaki avantajlara sahiptir:

  • 1) Tüm çalışma kitapları ve çalışma sayfaları iletişim kutusunda listelenmiştir;
  • 2) Birleştirmeden hariç tutmak istediğiniz çalışma sayfalarını sadece işaretini kaldırın;
  • 3) Boş çalışma sayfaları otomatik olarak hariç tutulur;
  • 4) Orijinal dosya adı, birleştirme işleminden sonra sayfa adının önüne eklenecektir;
  • Bu özelliğin daha fazla fonksiyonu için lütfen burayı ziyaret edin.

  Bu yardımcı programın ücretsiz deneme sürümünü (30-gün) kullanmak istiyorsanız, lütfen indirmek için tıklayın ve ardından yukarıdaki adımlara göre işlemi uygulamak için gidin.


En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veri analizinde devrim yaratın: Akıllı Yürütme   |  Kod Oluştur  |  Özel Formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur  |  Geliştirilmiş İşlevleri Çağır
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle   |  Boş Satırları Sil   |  Sütunları veya Hücreleri Verileri Kaybetmeden Birleştir   |   Formül Olmadan Yuvarla ...
Süper ARA: Çok Kriterli Düşeyara    Çoklu Değer Düşeyara  |   Çoklu sayfa araması   |   Bulanık Eşleme ....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştır ...
Öne Çıkan Özellikler: Izgara Odaklama   |  Tasarım Görünümü   |   Gelişmiş formül çubuğu    Çalışma Kitabı & Çalışma Sayfası Yöneticisi   |  Otomatik Metin Kütüphanesi (Auto Text)   |  Tarih Seçici   |  Veri Birleştir   |  Hücreleri Şifrele/Şifre Çöz    Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtrele...) ...
En İyi15 Araç Seti12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...)   |   50+ Grafik Türü (Gantt Grafiği, ...)   |   40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...)   |   19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...)   |   12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...)   |   7 Birleştir & Böl Aracı (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...)   |   ... ve daha fazlası

Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar.  En çok ihtiyacınız olan özelliği almak için buraya tıklayın...


Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır

  • Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
  • Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
  • Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!