Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk membuat senarai dari sel yang sama di beberapa helaian dalam Excel?

Sekiranya kita menggunakan setiap jadual jualan bulanan dalam lembaran kerja yang dipisahkan seperti di bawah skrin yang ditunjukkan, dan semua jadual jualan mempunyai tata letak yang sama. Sekarang kita mahu membuat senarai dari semua nilai jumlah (Cell E6) di seluruh lembaran kerja. Bagaimana untuk melakukannya? Dan bagaimana jika membuat senarai dinamik daripada nilai jumlah setiap lembaran kerja? Terdapat dua cara untuk anda:

membuat senarai senarai 1 beberapa helaian

Buat senarai dari sel yang sama di beberapa helai dengan VBA

Buat senarai dinamik dari sel yang sama di beberapa helai dengan Kutools untuk Excel

Mudah menggabungkan pelbagai lembaran kerja / buku kerja ke dalam lembaran kerja / buku kerja tunggal

Ia mungkin membosankan untuk menggabungkan berpuluh-puluh hela dari buku kerja yang berbeza ke dalam satu helaian. Tetapi dengan Kutools untuk Excel Menggabungkan (lembaran kerja dan buku kerja) utiliti, anda boleh melakukannya dengan hanya beberapa klik! Ciri-ciri Percubaan Percuma 60-hari!

iklan menggabungkan buku lembaran 1


Dengan kod VBA yang berikut, anda boleh membuat senarai dari sel-sel yang dinyatakan di pelbagai lembaran kerja dengan mudah. Anda boleh lakukan seperti berikut:

Langkah 1: Pilih sel yang ditentukan yang akan anda buat senarai anda. Dalam kes kami, kami pilih Cell E6.

Langkah 2: Tekan Alt + F11 kunci secara serentak untuk membuka tetingkap Microsoft Visual Basic for Applications, klik Memasukkan > Modul, dan kemudian paste kod berikut ke dalam tetingkap modul.

VBA: Buat senarai dari sel yang sama di beberapa helaian

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

Langkah 3: Tekan F5 kunci atau klik Main butang untuk menjalankan VBA ini.

Kemudian semua nilai dari sel yang dinyatakan pada semua lembaran kerja disalin ke lembaran kerja baru bernama KutoolsforExcel. Lihat pukulan skrin:

membuat senarai senarai 2 beberapa helaian

VBA ini akan mengisi senarai itu menjadi lembaran kerja baru, dan nilai dalam senarai adalah statik yang tidak akan berubah dengan nilai asal.

Walau bagaimanapun, kadang-kadang anda mungkin mahu mengisi senarai itu ke dalam julat yang ditetapkan, dan menghendaki nilai senarai sentiasa bersesuaian dengan nilai asal dalam sel yang ditentukan sepanjang masa. Untuk memenuhi keperluan ini, anda harus mencuba kaedah berikut.


Kaedah ini akan memperkenalkan Kutools untuk Excel'S Secara rawak Rujuk kepada Worksheets utiliti untuk membuat senarai dinamik dari sel yang sama di pelbagai lembaran kerja.

Kutools untuk Excel - Menggabungkan lebih banyak daripada Fungsi dan Alat Lanjutan 300 untuk Microsoft Excel

Langkah 1: Pilih Julat di mana anda akan mengisi senarai dinamik, dan klik Kutools > lebih > Secara rawak Rujuk kepada Worksheets.

Dokumen dinamik merujuk kepada helaian 1

Langkah 2: Dalam kotak dialog Rujukan Worksheets Rujukan pembukaan,

membuat senarai senarai 5 beberapa helaian

(1) Klik pada Perintah Isi kotak, dan pilih jenis isian dari senarai drop-down. Dalam kes kita, kita pilih Isi sel selepas sel;

(2) Dalam Isikan formula kotak, nyatakan alamat sel yang akan anda buat senarai dinamik dari, dan kemudian klik Kunci butang untuk mengunci formula.

(3) Klik pada Julat Isian butang.

Sekarang anda akan melihat nilai-nilai dalam sel-sel yang dinyatakan di semua lembaran kerja diisi dalam julat yang dinyatakan seperti di bawah pukulan skrin yang ditunjukkan:

Apabila nilai asal berubah, nilai yang sepadan dalam senarai yang ditentukan ini akan diubah secara automatik.

Kutools untuk Excel - Termasuk lebih banyak alat Excel berguna 300. Ciri penuh percubaan percuma 60-hari, tiada kad kredit diperlukan! Dapatkan sekarang!


Dalam Video ini, yang Kutools tab dan Kutools Lebih tab ditambah dengan Kutools untuk Excel. Jika perlu, sila klik di sini untuk mempunyai percubaan percuma 60-hari tanpa batasan!



Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Mayo · 10 months ago
    Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
  • To post as a guest, your comment is unpublished.
    Jeff · 2 years ago
    Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input...
    One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing