Ana içeriğe atla

Çalışma sayfalarını veya çalışma kitaplarını bir çalışma sayfasında nasıl birleştirir veya birleştiririm?

Günlük çalışmamızda, Excel'de Kopyala ve Yapıştır komutunu kullanırsanız, verileri analiz etmek için yüzlerce sayfayı veya çalışma kitabını tek bir sayfada birleştiren bir sorunla karşılaşabiliriz. İşte bu eğitimde, bu işi hızlı bir şekilde çözmek için bazı ipuçları vereceğim.

doc birleştir 1

HIZLI NAVİGASYON

Etkin çalışma kitabının tüm sayfalarını VBA ile tek bir sayfaya birleştirme
Düzinelerce sayfayı veya çalışma kitabını tek bir çalışma sayfasına / çalışma kitabına tıklama ile birleştirme
İki tabloyu tek bir tabloyu birleştirmek ve tıklama ile bir sütuna göre güncellemek
Örnek dosyayı indirin


Etkin çalışma kitabının tüm sayfalarını VBA ile tek bir sayfaya birleştirme

Bu bölümde, siz çalıştırırken aktif çalışma kitabının tüm sayfalarını toplamak için yeni bir sayfa oluşturacak bir VBA kodu sağlıyorum.

1. Tüm sayfalarını birleştirmek istediğiniz çalışma kitabını etkinleştirin ve ardından + açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. Açılan pencerede, Ekle > modül yeni bir Modül komut dosyası oluşturmak için.

3. Aşağıdaki kodu kopyalayın ve koda yapıştırın.

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
doc birleştir 2

4. Basın F5 tuşuna tıklarsanız, sayfalardaki tüm veriler, tüm sayfaların önüne yerleştirilen Birleştirilmiş adlı yeni bir sayfada birleştirilir.


ot hareket

Ailenizle Eşlik Etmek İçin Maaş Artışı Yapmak ve Çok Zamanınız mı İstiyorsunuz?

Office Tab Şu Anda Çalışan Microsoft Office'te Verimliliğinizi% 50 Artırıyor

İnanılmaz, iki veya daha fazla belgede çalışmak, bir belgede çalışmaktan daha kolay ve hızlıdır.

İyi bilinen tarayıcılarla karşılaştırıldığında, Office Tab'taki sekmeli araç daha güçlü ve daha verimlidir.

Her gün yüzlerce fare tıklamasını ve klavye yazmayı sizin için azaltın, şimdi fare eline veda edin.

Genellikle birden çok belgede çalışıyorsanız, Office Tab sizin için harika bir zaman kazandıracaktır.

30günlük ücretsiz deneme, Kredi kartına gerek yok.

Devamını OkuŞimdi Bedava İndirin


Düzinelerce sayfayı veya çalışma kitabını tek bir çalışma sayfasına / çalışma kitabına tıklama ile birleştirme

VBA ile yalnızca etkin çalışma kitabındaki sayfaları birleştirebilirsiniz, ancak sayfaları çalışma kitapları arasında bir sayfaya veya çalışma kitabına nasıl birleştirebilirsiniz?

Çalışma kitaplarındaki sayfaları tek bir sayfada birleştirin
doc birleştir 18

Çalışma kitaplarındaki sayfaları tek bir çalışma kitabında birleştirin
doc birleştir 3

Bu işi çözmek ve tabaka kombinasyonu ile ilgili diğer gereksinimleri karşılamak için, Birleştirmek işlevi dört kombinasyon senaryosu ile geliştirilmiştir:

  • Birden çok sayfayı veya çalışma kitabını tek bir sayfada birleştirin
  • Birden çok sayfayı veya çalışma kitabını tek bir çalışma kitabında birleştirin
  • Aynı ad sayfalarını tek bir sayfada birleştirin
  • Sayfalar veya çalışma kitaplarındaki değerleri tek bir sayfada birleştirin

Örnek olarak ikinci seçeneği alır:

Birden çok sayfayı veya çalışma kitabını tek bir çalışma kitabında birleştirin

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. Excel'i etkinleştirin, Kutools Artı > Birleştirmek, birleştirmek istediğiniz çalışma kitaplarının kapatılması gerektiğini size hatırlatmak için bir iletişim kutusu açılır. Tıklayın OK Devam etmek.
doc birleştir 4
doc birleştir 5

2. içinde Çalışma sayfalarını birleştirin 1. adım iletişim, kontrol et Çalışma kitaplarından birden çok çalışma sayfasını tek bir çalışma kitabında birleştirin seçeneği. Click Sonraki Sihirbazın sonraki adımına gitmek için.
doc birleştir 6

3. tık Ekle > fileto or Dosya birleştirmek istediğiniz çalışma kitaplarını eklemek için Çalışma kitabı listesi bölmesini seçerseniz, içindeki adları kontrol ederek hangi çalışma sayfasının birleştirileceğini belirtebilirsiniz. Çalışma sayfası listesi bölme. Tıklayın Sonraki sihirbazın son adımına gitmek için.
doc birleştir 7

4. Bu adımda, ihtiyaç duyduğunuz ayarları belirtin. Sonra tıklayın Bitiş.
doc birleştir 8

5. Birleştirilmiş çalışma kitabını yerleştirmek için bir klasör seçmeniz için bir pencere açılır ve ardından İndirim.
doc birleştir 9

Şimdi çalışma kitapları tek bir çalışma kitabında birleştirildi. Ve tüm sayfaların önünde, her sayfa için sayfalar ve bağlantılar hakkında bazı bilgileri listeleyen Kutools for Excel adlı bir ana sayfa da oluşturulur.
doc birleştir 10

Demo: Sayfaları / çalışma kitaplarını tek bir sayfaya veya çalışma kitabına birleştirin

Kutools for Excel: Excel'deki karmaşık görevleri birkaç tıklamayla basitleştiren 200 + kullanışlı kullanışlı araçlar.

Şimdi Fare Eline ve Servikal Spondiloza Veda Edin

Kutools for Excel'in 300 gelişmiş aracı çözmek %80 Saniyeler içinde Excel görevleri, sizi binlerce fare tıklamasından kurtarır.

1500 çalışma senaryosuyla kolayca başa çıkın, çözüm aramak için zaman kaybetmenize gerek yok, hayatınızın tadını çıkarmak için çok zamanınız olsun.

Elbette siz de dahil olmak üzere, her gün 80'den fazla etkili kişi için% 110000 üretkenliği artırın.

Artık acı veren formüller ve VBA tarafından eziyet edilmeyecek, beyninize bir dinlenme ve neşeli bir çalışma ortamı verin.

Tam özelliklere sahip 30 günlük ücretsiz deneme, sebepsiz 30 günlük para iadesi.

Daha İyi Bir Vücut Daha İyi Bir Yaşam Yaratır.


İki tabloyu tek bir tabloyu birleştirmek ve tıklama ile bir sütuna göre güncellemek

İki tabloyu tek bir tabloda birleştirmek ve aşağıda gösterilen ekran görüntüsü gibi bir sütuna göre verileri güncellemek istiyorsanız, deneyebilirsiniz. Tablolar Birleştirme yarar Kutools for Excel.
doc birleştir 11

Kutools for Excel: karmaşık görevleri Excel'de birkaç tıklamayla basitleştirmek için 200'den fazla kullanışlı Excel eklentisi

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. tık Kutools Artı > Tablolar Birleştirme etkinleştirmek Tablolar Birleştirme sihirbazı.
doc birleştir 12

2. Sihirbazın 1. adımında, ana tabloyu ve arama tablosu aralıklarını ayrı ayrı seçmeniz gerekir. Sonra tıklayın Sonraki.
doc birleştir 13

3. Ana tablodaki verileri temel alarak güncellemek istediğiniz anahtar sütununu işaretleyin. Tıklayın Sonraki.
doc birleştir 14

4. Ardından, arama tablosuna göre verileri güncellemek istediğiniz ana tablodaki sütunları kontrol edin. Tıklayın Sonraki.
doc birleştir 15

5. Sihirbazın 4. adımında, arama tablosundan ana tabloya eklemek istediğiniz sütunları işaretleyin. Tıklayın Sonraki.
doc birleştir 16

6. Sihirbazın son adımında, ihtiyaç duyduğunuz şekilde ayar seçeneklerini belirtin. Sonra tıklayın Bitiş.
doc birleştir 17

Şimdi ana tablo verileri güncelledi ve arama tablosuna göre yeni veriler eklendi.

Demo: Sayfaları / çalışma kitaplarını tek bir sayfaya veya çalışma kitabına birleştirin

Kutools for Excel: Excel'deki karmaşık görevleri birkaç tıklamayla basitleştiren 200 + kullanışlı kullanışlı araçlar.


Örnek Dosyayı İndirin

örnek


Önerilen Üretkenlik Araçları

Office Sekmesi - Microsoft Office 2019-2003 ve Office 365'te Belgeleri Sekmeli Tarama, Düzenleme ve Yönetme


ofis sekmesi

Excel 2019-2007'yi Hızlandırmak için Profesyonel Bir Eklenti, saat görevlerini saniyelerle küçültün

Bu eklenti düzinelerce profesyonel grubu içerir; 300'den fazla seçenek, Excel'deki günlük görevlerinizin çoğunu otomatikleştirecek ve üretkenliğinizi en az% 50 artıracaktır. Tek tıklama seçenekleri ve toplu dönüştürme grupları gibi.
Kutools for Excel ile şimdi kendinizi hızlandırma şansınız!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

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.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations