Note: The other languages of the website are Google-translated. Back to English

Ç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 kârimizin %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.

30tam özelliklere sahip günlük ücretsiz deneme, 30-günlük sebep göstermeden 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!


Yorumları sıralama ölçütü
Yorumlar (168)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
ilk Makro işlevinizi kullandınız. VAY! gönderdiğiniz için teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
bence kodu 'Seçim.Ofset(0, 0).Boyutlandır(Seçim.Satırlar.Sayı - 1).Seç' orada olmamalı. Benim tarafımda, yaptığı şey, ilkini kaçıran ikinci satırı seçmek.
Bu yorum sitedeki moderatör tarafından en aza indirildi
bende de aynı sorun var Eklenen ikinci çalışma sayfasından ilk satırı atlıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Üstbilgileri ortadan kaldırır, böylece yinelenen üstbilgileriniz olmaz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir cazibe gibi çalışır, paylaşım için teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim! Makro mükemmel çalıştı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel'de VBN işlevini nasıl kullanacağımı bilmiyorum, bunun nasıl yapılacağına yardımcı olabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika, teşekkürler!!! Çok Çok Faydalı
Bu yorum sitedeki moderatör tarafından en aza indirildi
Makro bir iyi çalışıyor. Teşekkürler!! Bu harika!!!! :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sorunu çözmek için Selection.Copy Destination:=Sheets(65).Range("A1").End(xlUp)(65536) satırını yükseltmeniz gerekiyorsa, bunun 2k satır sınırıyla sınırlı olduğunu unutmayın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ancak harika bir araç, 21 sayfanın tümünü birleştirmiyor. Menzili nasıl genişletebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
NOT!!! Makroya dikkat etmelisiniz.. Verileriniz sürekli bir bilgi akışına sahipse ve boş satır yoksa işe yarayacaktır. "Selection.CurrentRegion.Select" satırı bunu yapar. Örneğin, bir elektronik tablodaki TÜM verileri kopyalamanız gerekiyorsa ancak (diyelim ki) satır 200'de boş bir satır varsa, makro yalnızca satır 200'e kopyalayacaktır; BU SATIRIN ALTINDAKİ TÜM VERİLERİ İHMAL EDECEKTİR!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu sorunu önlemek için bir komut bilen var mı? Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select ile ilgili sorun çözülebilir mi? Selection.Rows.Count - 1) sorunu oluşturan komuttur. Herhangi biri??
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdan başlayıp aşağı inmek yerine, aşağıdan başlayın ve yukarı çıkın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Boş satır ve sütun problemlerini çözecek kodu bilen var mı? Verilerimde var ama aşağıdan yukarıya başlamak kadar basit bir çözüm yok mu? Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Boş satırları silmek için: Seçenek 1: A sütunundaki silinmesi gereken hücreleri seçin. Ctrl - kullanın ve ardından açılır pencerede Tüm Satırı seçin. Çalışma kitabını kaydedin ve çıkın. Ardından çalışma kitabını açın. Seçenek 2: Silinmesi gereken satırları seçin. Ctrl - kullanın. Çalışma kitabını kaydedin ve Açık çalışma kitabından çıkın. Seçenek 1'i verdi, böylece neler olduğunu görebildiniz. Boş olan sütunları silmek için: Sütun seçin. Ctrl -. Çalışma kitabını kaydedin ve Açık çalışma kitabından çıkın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Boş hücrenin altındaki verileri kopyalamak için herhangi bir çözümümüz var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim ! 2. sıram tüm sayfalarda boştu ve kafam karıştı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
vba kodu harika çalıştı ancak birleştirdiğim çalışma sayfalarındaki hücrelere yeni satırlar veya yeni veriler ekledikçe güncellemek için birleşik çalışma sayfasına ihtiyacım var. Bunu yapmanın bir yolu var mı? Yardımın için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Makro kodu ilk birleştirilmiş çalışma sayfası için harika çalıştı, ancak birleştirdiğim mevcut çalışma sayfalarına veri eklerken birleştirilmiş çalışma sayfasının güncellenmesine ihtiyacım var. Bunu yapmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Diğer çalışma sayfalarına satırlar eklerken master'da nasıl güncelleneceğini hiç düşündünüz mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Mükemmel iş.. Bu, çalışmamı 2 saatten 10 dakikaya indirdi.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Mükemmel, hem ilk makroyu hem de Kutools'u kullandım, ikisi de veri toplama ve derleme çalışmamı muazzam ölçüde azalttı. Paylaşım için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aşağıda verilen kısmı sildim ve şimdi sadece güncelleniyor. Umarım bu yardımcı olur... Sheets(1).Select Worksheets.Add
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod harika çalışıyor! Sayfalardaki tüm verileri kopyalamak için makroya ihtiyacım var. Sayfa 1'den sonraki ilk satırı kesiyor. Sadece birinci sayfa başlık satırına sahip, diğer sayfalar sadece veri. Mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
"Tüm çalışma sayfalarını VBA koduyla tek bir çalışma sayfasında birleştir" hakkında sorum var: Kod çok iyi çalışıyor, ancak yalnızca boş olduğunda başlığı ekliyor, kodu, boş sayfayı birleştirmemek için değiştirmek mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler beni bir saat kopyala ve yapıştırdan kurtardın :D
Bu yorum sitedeki moderatör tarafından en aza indirildi
İki çalışma kitabına sahip olun, aynı veriler var, ancak ikincisinde fazladan veriler var ve bazı veriler güncellendi, inv# Status 123 7/2 open inv# status 123 7/2 open 7/7 kapalı nasıl bir birleşip kopyaları kaldırma veya vurgulama ve ekleme ilkinde olmayan herhangi bir yeni inv#
Bu yorum sitedeki moderatör tarafından en aza indirildi
A Sütununuz = boş değilse harika çalışır. A sütunu boş olan sayfalarda, üzerine yazıyor gibi görünüyor. Dtaa sütunumda E, tüm sayfalarda boş değil. Bazı sayfalarda boş A sütununu hesaba katmak için Kopyalama Hedefini nasıl değiştirebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 ila 25 Sheets("Sayfa1").Aralığı Seç("A1").Seçimi Seç.Son(xlDown).Aralığı Seç("A" & CStr(Selection.Row) + 1).Select Sheets("Sayfa" & CStr(i))).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection) .End(xlToRight)). Selection.Cut Sheets("Sayfa1").ActiveSheet'i seçin.Sonraki Alt Alt Yapıştır
Bu yorum sitedeki moderatör tarafından en aza indirildi
Range("A:A").SpecialCells(xlCellTypeLastCell).Select ActiveCell.Offset(1, 0).Select '"A" sütunundaki son hücreyi seçmek için bu kodu kullanın [quote] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 ila 25 Sheets("Sayfa1").Aralığı Seç("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Seçim Sayfaları("Sayfa" & CStr(i))).Aralık Seç("A2").Aralık Seç(Seçim, Seçim.Son(xlAşağı)).Aralık Seç(Seçim, Seçim.Son(xlToRight))).Seçimi Seç .Cut Sheets("Sayfa1").ActiveSheet'i seçin.Sonraki Alt Alt Yapıştırklozet tarafından[/ QUOTE]
Bu yorum sitedeki moderatör tarafından en aza indirildi
MAKRO KOD ÇOK GÜZEL ÇALIŞTI... FAB İŞ :-)
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır