Birden çok çalışma sayfasını / çalışma kitabını tek bir çalışma sayfasına / çalışma kitabına kolayca birleştirin

Aşağıdaki VBA kodu ile, birden çok çalışma sayfasında belirtilen hücrelerden kolayca bir liste oluşturabilirsiniz. Aşağıdaki gibi yapabilirsiniz:

Adım 1: Listenizi oluşturacağınız belirtilen hücreyi seçin. Bizim durumumuzda, Cell E6'yı seçiyoruz.

Adım 2: Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için aynı anda tuşlarına tıklayın, Ekle > modülve ardından aşağıdaki kodu modül penceresine yapıştırın.

VBA: Birden çok sayfada aynı hücrelerden bir liste oluşturun

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Adım 3: Basın F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

Ardından, tüm çalışma sayfalarındaki belirtilen hücreden alınan tüm değerler, KutoolsforExcel adlı yeni bir çalışma sayfasına kopyalanır. Ekran görüntüsüne bakın ：

Bu VBA, listeyi yeni bir çalışma sayfasına dolduracak ve listedeki değerler statik olup orijinal değerlerle değişmeyecek.

Bununla birlikte, bazen listeyi belirtilen aralıkta doldurmak ve liste değerlerinin her zaman belirtilen hücrelerdeki orijinal değerlerle her zaman uyumlu olmasını isteyebilirsiniz. Bu ihtiyaçları karşılamak için aşağıdaki yöntemi denemelisiniz.

Bu yöntem tanıtacak Kutools for Excel'S Çalışma Sayfalarına Dinamik Olarak Başvurun birden çok çalışma sayfasında aynı hücrelerden dinamik bir liste oluşturmak için yardımcı program.

Adım 1: Dinamik listeyi dolduracağınız Aralığı seçin ve Kutools > Daha > Çalışma Sayfalarına Dinamik Olarak Başvurun.

Adım 2: Çalışma Sayfaları Referanslarını Doldur iletişim kutusunu açarken,

(1) Siparişi Doldur kutusunu tıklayın ve açılır listeden bir dolgu türü seçin. Bizim durumumuzda seçiyoruz Hücreden sonra hücreyi dikey olarak doldur;

(2) Formülü doldur kutusunda dinamik listeyi oluşturacağınız hücre adresini belirtin ve ardından kilitlemek düğmesine tıklayın  formülü kilitlemek için.

(3) Doldurma Aralığı düğmesine basın.

Şimdi, tüm çalışma sayfalarında belirtilen hücrelerdeki değerlerin aşağıda gösterilen ekran görüntüsü gibi belirtilen aralığa doldurulduğunu göreceksiniz:

Orijinal değerler değiştiğinde, bu belirtilen listedeki karşılık gelen değerler otomatik olarak değiştirilecektir.

Aynı hücreyi farklı sayfalardan Excel'deki bir sayfaya nasıl otomatik doldurabilirim?