Excel'de birden fazla çalışma kitabını tek bir ana çalışma kitabında nasıl birleştirebilirsiniz?
Excel’de birden fazla çalışma kitabını tek bir ana çalışma kitabında birleştirmeniz gerektiğinde hiç sıkışmış mıydınız? En kötüsü, bu çalışma kitaplarının her birinin birden fazla sayfaya sahip olması. Peki ya bu kitaplardan yalnızca belirli çalışma sayfalarını tek bir dosyada nasıl birleştirirsiniz? Bu öğretici, sorunu adım adım çözmenize yardımcı olacak çeşitli pratik yöntemleri gösteriyor.
- Yöntem A:Taşı veya Kopyala işleviyle birden fazla çalışma kitabını tek bir kitapta birleştirin
- Yöntem B:Birden fazla çalışma kitabını veya belirtilen sayfalarını VBA ile ana bir çalışma kitabında birleştirin
- Yöntem C:Birden fazla çalışma kitabını veya belirtilen sayfalarını kolayca tek bir kitapta birleştirin
Taşı veya Kopyala işleviyle birden fazla çalışma kitabını tek bir kitapta birleştirin
Sadece birkaç çalışma kitabını birleştirmeniz gerekiyorsa, orijinal çalışma kitabından ana çalışma kitabına sayfaları taşımak veya kopyalamak için **Taşı veya Kopyala** komutunu kullanabilirsiniz.
1. Birleştirmek istediğiniz çalışma kitaplarını, ana çalışma kitabınızda açın.
2. Orijinal çalışma kitabınızda, ana çalışma kitabına taşıyacağınız ya da kopyalayacağınız çalışma sayfalarını seçin.
Notlar:
1). Bitişik olmayan birden fazla çalışma sayfasını seçmek için Ctrl tuşunu basılı tutarak Sayfa Sekmeleri’ne tek tek tıklayabilirsiniz.
2). Bitişik birden fazla çalışma sayfasını seçmek için ilk sayfa sekmesine tıklayın, Shift tuşunu basılı tutun ve ardından hepsini seçmek için son sayfa sekmesine tıklayın.
3). Çalışma kitabındaki tüm çalışma sayfalarını aynı anda seçmek için herhangi bir sayfa sekmesine sağ tıklayıp bağlam menüsünden Tüm Sayfaları Seç seçeneğine tıklayın.
3. Gerekli çalışma sayfalarını seçtikten sonra, sayfa sekmesine sağ tıklayıp bağlam menüsünden Taşı veya Kopyala seçeneğine tıklayın. Ekran görüntüsüne bakın:
4. Ardından Taşı veya Kopyala iletişim kutusu açılır; Kitaba açılır menüsünden taşıyacağınız veya kopyalayacağınız çalışma sayfalarının ana çalışma kitabını seçin. Sayfadan önce kutusundan **Sona Taşı**’yı seçin, Kopyasını oluştur kutusunu işaretleyin ve son olarak Tamam düğmesine tıklayın.
Artık iki çalışma kitabındaki çalışma sayfaları tek bir kitapta birleştirildi. 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.
Birden fazla çalışma kitabını veya belirtilen sayfalarını VBA ile ana bir çalışma kitabında birleştirin
Birden fazla çalışma kitabını tek bir kitapta birleştirmeniz gerekiyorsa, aşağıdaki VBA kodlarını hızlıca uygulayabilirsiniz. Lütfen şu adımları izleyin:
1. Birleştirmek istediğiniz tüm çalışma kitaplarını aynı klasöre yerleştirin.
2. Bir Excel dosyası başlatın (bu dosya, ana çalışma kitabınız olacak).
3. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın. Microsoft Visual Basic for Applications penceresinde Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA kodu 1: Birden fazla Excel çalışma kitabı’nı tek bir kitapta birleştir
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 SubNotlar:
1. Yukarıdaki VBA kodu, birleştirme işleminden sonra orijinal çalışma kitaplarındaki sayfa adlarını korur.
2. Birleştirme sonrasında ana çalışma kitabındaki sayfaların nereden geldiğini ayırt etmek istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın.
3. Yalnızca belirtilen çalışma sayfalarını içeren çalışma kitaplarını tek bir ana çalışma kitabında birleştirmek istiyorsanız, aşağıdaki VBA Kodu 3 işinize yarayabilir.
VBA kodlarındaki “C:\Users\DT168\Desktop\KTE\” kısmı dosya yoludur. VBA kodundaki “Sheet1,Sheet3” ifadesi ise birleştirilecek çalışma kitaplarındaki belirtilen sayfaları gösterir. İhtiyacınıza göre bu değerleri istediğiniz gibi değiştirebilirsiniz.
VBA kodu 2: Birden fazla çalışma kitabını tek bir kitapta birleştir (her çalışma sayfası, orijinal dosya adının önekiyle adlandırılacaktır):
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: Belirtilen çalışma sayfalarını ana bir çalışma kitabında birleştir:
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 Sub4. Kodu çalıştırmak için F5 tuşuna basın. Böylece belirtilen klasördeki çalışma kitaplarının tüm çalışma sayfaları veya seçili çalışma sayfaları tek seferde ana bir çalışma kitabında birleştirilir.
Birden fazla çalışma kitabını veya belirtilen sayfalarını tek bir kitapta kolayca birleştirin
Neyse ki, Birleştir çalışma kitabı aracı, Kutools for Excel sayesinde birden fazla çalışma kitabını tek bir kitapta birleştirmeyi çok daha kolay hale getirir. Şimdi bu işlevin birden fazla çalışma kitabını birleştirmede nasıl çalıştığını görelim.
İndirip yükleyin, ardından Kutools for Excel uygulamasını kullanmaya başlayın.
1. Bir yeni çalışma kitabı oluşturun ve KUTOOLS PLUS > Birleştir seçeneğine tıklayın. Ardından, birleştirilen tüm çalışma kitaplarının kaydedilmesi gerektiği ve özelliğin korumalı çalışma kitaplarına uygulanamayacağı konusunda sizi uyaran bir iletişim kutusu açılır; lütfen Tamam düğmesine tıklayın.
2. Çalışma Sayfalarını Birleştir sihirbazında Birden Fazla Çalışma Kitabından Çalışma Sayfalarını Bir Çalışma Kitabına Kopyala seçeneğini işaretleyin ve ardından İleri düğmesine tıklayın. Ekran görüntüsüne bakın:
3. Çalışma Sayfalarını Birleştir - 2. Adım / 3 iletişim kutusunda, birleştireceğiniz Excel dosyalarını eklemek için Ekle > Dosya veya Klasör seçeneğine tıklayın. Excel dosyaları eklendikten sonra Bitir düğmesine tıklayın ve ana çalışma kitabını kaydetmek için bir klasör belirleyin. Ekran görüntüsüne bakın:
Artık tüm çalışma kitapları tek bir kitapta bir araya getirildi.
Yukarıdaki iki yönteme kıyasla,Kutools for Excelaşağıdaki avantajlara sahiptir:
- 1) Tüm çalışma kitapları ve çalışma sayfaları iletişim kutusunda listelenir;
- 2) Birleştirme işlemine dahil etmek istemediğiniz çalışma sayfalarının işaretini kaldırmanız yeterlidir;
- 3) Boş Çalışma Sayfası otomatik olarak hariç tutulur;
- 4) Birleştirme işleminden sonra orijinal dosya adı, sayfa adına önek olarak eklenir;
- Bu özelliğin daha fazla işlevini keşfetmek için lütfen burayı ziyaret edin.
Bu yardımcı programın ücretsiz 30 günlük deneme sürümünü almak istiyorsanız, işlemi yukarıdaki adımlara göre uygulamak için lütfen indirmek üzere tıklayın.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar