Apabila kami mempunyai set data yang besar dalam buku kerja Excel kami, kadangkala adalah mudah jika kami boleh mengulangi baris untuk mengekstrak hasil khusus yang kami ingin dapatkan. Melaksanakan VBA ialah kaedah yang paling berkesan, paling cepat dan paling selamat untuk menjalankan sebarang operasi dalam Excel. Dalam artikel ini, kami akan menunjukkan kepada anda 11 kaedah berbeza tentang cara menggelung melalui baris jadual dalam Excel dengan makro VBA .

Muat Turun Buku Kerja

Anda boleh memuat turun buku kerja Excel amalan percuma dari sini.

11 Kaedah dengan VBA untuk Menggelung melalui Baris Jadual dalam Excel

Berikutan bahagian ini, anda akan belajar cara menggelung melalui baris jadual dengan 11 kaedah yang berbeza, seperti gelung melalui baris sehingga sel kosong, gelung melalui baris sehingga nilai tertentu ditemui, gelung melalui baris dan warnakan sel tertentu dsb. dengan makro VBA dalam Excel.

Di atas ialah contoh set data yang akan diikuti oleh artikel ini untuk menerangkan kaedah.

1. Benamkan VBA untuk Gelung melalui Setiap Sel dalam Setiap Baris Jadual mengikut Nombor Rujukan Sel

Jika anda mahu gelung melalui setiap sel dalam setiap baris jadual dalam lembaran kerja Excel anda dan dapatkan nombor rujukan sel sebagai nilai pulangan , kemudian ikuti langkah yang dibincangkan di bawah.

Langkah:

• Pada mulanya , tekan Alt + F11 pada papan kekunci anda atau pergipembolehubah.

5540

Sekeping kod ini ada di sini untuk menggelungkan melalui baris dari 1 hingga 15. Jika ia menemui perkataan khusus " Tepi " maka ia mewarnakan sel yang memegang perkataan itu. Ia terus melakukan ini sehingga ia selesai mengimbas semua data dari baris 1 hingga 15 dalam mencari perkataan.

Baca Lagi: Cara Menggunakan Susunan Jadual VLOOKUP Berdasarkan Nilai Sel dalam Excel

Bacaan Serupa

• Adakah Fungsi JADUAL Wujud dalam Excel?
• Cara Menukar Jadual kepada Senarai dalam Excel (3 Cara Pantas)
• Tukar Julat kepada Jadual dalam Excel (5 Kaedah Mudah)
• Gunakan Formula dalam Jadual Excel dengan Berkesan (Dengan 4 Contoh)
• Nama Jadual Excel: Semua yang Anda Perlu Tahu

7. Laksanakan VBA untuk Gelung melalui Setiap Baris dan Warnakan Setiap Baris Ganjil dalam Excel

Daripada bahagian sebelumnya, kami telah mempelajari cara mewarna sel yang membawa nilai tertentu. Dalam bahagian ini, kita akan belajar cara gelung melalui setiap baris jadual dan warna setiap baris ganjil dengan makro VBA dalam Excel.

Langkah-langkah untuk melaksanakan proses diterangkan di bawah.

Langkah:

• Seperti yang ditunjukkan sebelum ini, buka Editor Asas Visual daripada Pembangun tab dan Sisipkan a Modul dalam tetingkap kod.
• Kemudian, salin kod berikut dan tampal ke dalam tetingkap kod.

7573

Kod anda kini sedia untuk dijalankan.

• Sekarang, Jalankan makro dan lihat imej berikut untuk melihat output.

Semua baris bernombor ganjil berwarna selepas menggelung melalui semua baris yang berada dalam jadual lembaran kerja.

Penjelasan Kod VBA

4759

Tentukan pembolehubah.

5177

Tentukan julat yang akan kami gunakan.

6195

Bahagian kod ini merujuk kepada lelaran melalui semua baris, bermula dari baris seterusnya baris semasa, B4 . Jika mod membahagikan nombor baris dengan 2 adalah sama dengan nombor baris yang dikembalikan yang disimpan dalam jenis integer, maka kod ini mewarnakan semua baris yang diekstrak melalui pengiraan dengan Indeks Warna yang disediakan dalam kod. Ia terus bergerak melalui semua baris sehingga ia mencapai penghujung julat.

8. Laksanakan VBA untuk Gelung melalui Baris dan Warnakan Setiap Baris Genap dalam Excel

Dalam bahagian sebelumnya, kami telah mempelajari cara mewarna setiap baris ganjil jadual. Dalam bahagian ini, kita akan belajar cara menggelung setiap baris jadual dan mewarna setiap baris genap dengan makro VBA dalam Excel.

Langkah-langkah untuk melaksanakan proses dibincangkan di bawah.

Langkah:

• Pertama, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan a Modul dalam tetingkap kod.
• Kemudian, salin kod berikut dan tampal ke dalam tetingkap kod.

3895

Kod anda kini sedia untukjalankan.

• Seterusnya, Jalankan makro dan lihat imej berikut untuk melihat hasilnya.

Semua baris bernombor genap diwarnakan selepas menggelungkan semua baris yang berada dalam jadual lembaran kerja.

Penjelasan Kod VBA

6786

Tentukan pembolehubah.

9376

Tentukan julat yang akan kami gunakan.

3251

Sekeping kod ini mula berulang selepas tiga baris daripada baris semasa, B4 . Ia mewarnakannya dahulu kemudian menambah bilangan baris sebanyak 2 dan terus mewarnakannya sehingga ia mencapai baris terakhir set data.

9. Gunakan Makro untuk Lelaran melalui Baris Sehingga Sel Kosong dalam Excel

Jika anda mahu kod anda berfungsi seperti ia akan gelung melalui semua baris jadual dan berhenti apabila ia mencapai sel kosong , maka bahagian ini adalah untuk anda. Anda boleh melaksanakan tugas tersebut dengan FOR Loop dan Do-Until Loop dalam Excel VBA .

9.1. Dengan FOR Loop

Langkah untuk gelung melalui baris dalam jadual sehingga sel kosong dengan FOR Loop dalam VBA Excel diberikan di bawah.

Langkah:

• Pada mulanya, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan a Modul dalam tetingkap kod.
• Selepas itu, salin kod berikut dan tampal ke dalam tetingkap kod.

1336

Kod anda kini sedia untuk dijalankan.

• Kemudian, Jalankan makro dan hasilnya ditunjukkan dalam gif di bawah.

Selepas menjalankan makro, ia mula menggelung melalui semua baris dalam jadual dan sebaik sahaja ia mencapai sel kosong, Sel B8 , ia menghentikan lelaran .

Penjelasan Kod VBA

5913

Tentukan pembolehubah.

7434

Matikan acara pengemaskinian skrin.

7795

Simpan semua baris bermula dari Sel B4 hingga yang terakhir.

9644

Pilih Sel B4 .

6112

Sekeping kod ini mula bergelung melalui semua baris. Apabila ia menjumpai sel kosong dalam satu baris, kemudian pilihnya dan teruskan mengimbas baris tersebut sehingga ia sampai ke penghujung.

7971

Hidupkan acara pengemaskinian skrin.

9.2. Dengan Gelung Do-Until

Langkah untuk gelung melalui baris sehingga sel kosong dengan gelung Do-Until dalam VBA diberikan di bawah.

Langkah:

• Pertama, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan a Modul dalam tetingkap kod.
• Kemudian, salin kod berikut dan tampal ke dalam tetingkap kod.

6971

Kod anda kini sedia untuk dijalankan.

• Kemudian, Jalankan makro. Hasilnya ditunjukkan dalam gif berikut.

Selepas menjalankan makro, ia mula membulat melalui semua baris dalam jadual dan sekali ia mencapai sel kosong, Sel B8 , ia menghentikan lelaran .

Kod VBAPenjelasan

7016

Pilih sel yang akan kami gunakan.

6492

Bermula dan teruskan gelung sehingga sel kosong ditemui.

9704

Apabila sel kosong ditemui dalam satu baris kemudian pilihnya dan hentikan lelaran.

10. Makro VBA untuk Berulang melalui Baris Sehingga Berbilang Sel Kosong dalam Excel

Dalam bahagian sebelumnya, anda telah mempelajari cara menghentikan gelung apabila sel kosong ditemui. Tetapi bagaimana jika anda tidak mahu menghentikan lelaran sehingga berbilang sel kosong ditemui dan bukannya hanya satu.

Langkah-langkah untuk gelung melalui baris sehingga berbilang sel kosong ditemui dalam jadual dengan VBA Excel ditunjukkan di bawah.

Langkah:

• Pertama, buka Editor Asas Visual daripada Tab Pembangun dan Sisipkan Modul dalam tetingkap kod.
• Kemudian, salin kod berikut dan tampal ia ke dalam tetingkap kod.

2674

Kod anda kini sedia untuk dijalankan.

• Sekarang, Jalankan makro dan lihat gif berikut untuk output.

Selepas menjalankan makro, ia tidak berhenti pada sel kosong pertama, Sel B8 . Ia berhenti apabila menemui dua sel kosong berturut-turut pada Sel B16 .

Penjelasan Kod VBA

7142

Pilih sel yang akan kita kerjakan.

4283

Bermula dan terus menggelung sehingga dua sel kosong berturut-turut ditemui.

9455

Apabila dua sel kosong berturut-turut ditemui, makapilihnya dan hentikan lelaran.

11. Benamkan VBA ke Gelung melalui Baris dengan Menggabungkan Semua Lajur Sehingga Kosong dalam Excel

Bahagian ini akan menunjukkan kepada anda cara menggelungkan semua baris dalam jadual dan menggabungkan semua lajur sehingga sel kosong ditemui dengan VBA Excel.

Mari kita pelajari cara melakukannya dengan makro VBA dalam Excel.

Langkah:

• Pada mulanya, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan a Modul dalam tetingkap kod.
• Kemudian, salin kod berikut dan tampal ke dalam tetingkap kod.

3017

Kod anda kini sedia untuk dijalankan.

• Kemudian, Jalankan makro dan lihat gif berikut untuk hasilnya.

Seperti yang anda lihat daripada gif di atas ialah terdapat pop timbul MsgBox menunjukkan kepada anda nilai gabungan semua lajur yang berada dalam setiap baris daripada jadual lembaran kerja Excel anda. Tetapi ia berhenti sebaik sahaja ia mencapai sel kosong .

Penjelasan Kod VBA

9061

Tentukan pembolehubah.

9385

Tetapkan nama helaian yang akan kami gunakan (“ ConcatenatingAllColUntilBlank ” ialah nama helaian dalam buku kerja).

8855

Tentukan julat yang akan kami gunakan.

1229

Sekeping kod ini memulakan gelung dengan tatasusunan. Ia terus gelung sehingga ia mengembalikan subskrip terbesar tatasusunan dan sempadan bawahdimensi pertama. Kemudian ia memasuki lelaran mengekstrak sempadan bawah dimensi kedua. Selepas itu, ia melepasi semua nilai yang diekstrak dalam pembolehubah iResult dengan menggabungkannya dan membuang hasilnya dalam MsgBox. Ia terus melakukan perkara itu sehingga ia menemui sel kosong.

Kesimpulan

Untuk membuat kesimpulan, artikel ini menunjukkan kepada anda 11 kaedah berkesan tentang cara membuka baris daripada jadual dalam Excel dengan makro VBA . Saya harap artikel ini banyak memberi manfaat kepada anda. Jangan ragu untuk bertanya apa-apa soalan mengenai topik tersebut.

• Seterusnya, dalam tetingkap kod timbul, daripada bar menu, klik Sisipkan -> Modul .

• Kemudian, salin kod berikut dan tampal ke dalam kod tetingkap.

4239

Kod anda kini sedia untuk dijalankan.

• Sekarang, tekan F5 pada anda papan kekunci atau daripada bar menu pilih Jalankan -> Jalankan Sub/Borang Pengguna . Anda juga boleh hanya mengklik pada ikon Main kecil dalam bar submenu untuk menjalankan makro.

• Atau ke menyaksikan secara visual dan membandingkan set data dan hasilnya, anda boleh menyimpan kod dan kembali ke lembaran kerja yang diminati.
• Dari situ, anda boleh mengklik Makro daripada tab Pembangun , pilih nama Makro, dan kemudian klik Jalankan .

Selepas pelaksanaan kod yang berjaya, lihat gif di atas untuk melihat hasilnya. Akan ada pop timbul MsgBox menunjukkan kepada anda nombor rujukan sel bagi setiap sel daripada setiap baris daripada jadual dalam helaian Excel anda.

Penjelasan Kod VBA

3540

Untuk mendapatkan nombor baris terakhir dalam jadual dengan mencari lajur B.

3783

Tetapkan nombor baris 4, dari mana data kami bermula.

9446

Untuk menggelung dari baris pertama.

7600

Tetapkan lajur nombor 2, dari mana data kami bermula.

3503

Mulakan gelung melalui baris untuk mendapatkan yang terakhirnombor lajur dengan menilai baris semasa sehingga baris terakhir.

7017

Tambahan gelung lajur dari baris pertama hingga baris terakhir.

7319

Sekeping kod ini berfungsi untuk memproses, meningkat selepas setiap lelaran dan memaparkan hasil kod.

Baca Lagi: Cara Menambah Baris Baharu Secara Automatik dalam Jadual Excel

2 . Laksanakan VBA untuk Gelung melalui Setiap Sel dalam Setiap Baris mengikut Nilai

Jika anda mahu gelung melalui setiap sel dalam setiap baris jadual dan buang nilai yang berada dalam sel sebagai nilai pulangan , maka bahagian ini akan membantu anda memikirkan cara melakukannya dengan VBA Excel.

Anda boleh melakukannya dengan ListObject dan dengan DataBodyRange sifat VBA . Kami akan menunjukkan kepada anda kod makro dengan kedua-dua objek dan harta benda.

2.1. Dengan ListObject

Langkah-langkah untuk gelung melalui setiap sel dalam setiap baris jadual mengikut nilai sel dengan ListObject dalam VBA Excel diberikan di bawah.

Langkah:

• Sama seperti sebelumnya, buka Editor Asas Visual daripada tab Pembangun dan Masukkan Modul dalam tetingkap kod.
• Kemudian, dalam tetingkap kod, salin kod berikut dan tampal itu.

9297

Kod anda kini sedia untuk dijalankan.

• Selepas itu, Jalankan makro seperti yang kami tunjukkan kepada anda dalam bahagian di atas. Hasilnya ditunjukkan dalam gifdi bawah.

Akan terdapat pop timbul MsgBox yang menunjukkan kepada anda nilai yang dibawa oleh setiap sel daripada setiap baris daripada jadual dalam helaian Excel anda.

Penjelasan Kod VBA

2015

Tentukan pembolehubah.

7656

Sekeping ini kod mula-mula mula menggelung melalui baris dalam jadual (“ TblStudents ” ialah nama jadual kami). Kemudian masukkan lajur untuk setiap baris. Selepas itu, hantar nilai sel dalam MsgBox. Kemudian pergi ke lajur seterusnya. Selepas selesai melelaran melalui semua lajur satu baris, kemudian ia pergi ke baris seterusnya dan meneruskan proses lelaran sehingga baris terakhir.

2.2. Dengan DataBodyRange Property

Untuk lebih spesifik dengan data yang diekstrak daripada jadual, anda boleh menggunakan sifat DataBodyRange ListObject . Hartanah DataBodyRange akan memberikan anda hasil yang mengandungi julat daripada senarai antara baris pengepala dan baris sisipan.

Langkah-langkah bagaimana anda boleh gelung melalui setiap sel dalam setiap baris daripada jadual mengikut nilai sel dengan DataBodyRange dalam VBA Excel diberikan di bawah.

Langkah:

• Seperti yang ditunjukkan sebelum ini, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan Modul dalam tetingkap kod.
• Kemudian , salin kod berikut dan tampal ke dalam tetingkap kod.

8442

Kod anda kini sedia untuk dijalankan.

• Kemudian, Jalankan makro dan lihat gif berikut untuk melihat output.

Akan ada pop timbul MsgBox menunjukkan kepada anda nilai yang dibawa oleh setiap sel daripada setiap baris daripada jadual dalam helaian Excel anda.

Penjelasan Kod VBA

7316

Tentukan pembolehubah.

5289

Sekeping kod ini mula-mula mula menggelung melalui baris dalam jadual (“ TblStdnt ” ialah nama jadual kami) dan mengembalikan julat nilai tidak termasuk baris pengepala jadual. Kemudian lulus nilai julat dalam MsgBox. Kemudian ia pergi ke baris seterusnya untuk mengekstrak julat dan meneruskan proses lelaran sehingga baris terakhir.

3. Gunakan Makro VBA untuk Lelaran melalui Baris dengan Menggabungkan Lajur dalam Excel

Bahagian ini akan menunjukkan cara menggelung baris dalam jadual dengan menggabungkan lajur dengan lajur pertama daripada set data anda dalam Excel.

Sebagai contoh, untuk set data kami, mula-mula, kami akan lelaran melalui John dalam Sel B5 dan 101 dalam Sel C5 dengan menggabungkannya dan kemudian melelang melalui John dalam Sel B5 dan 89 dalam Sel D5 dengan menggabungkannya daripada baris 5 .

Mari kami tunjukkan kepada anda cara anda boleh melakukannya dengan VBA makro dalam Excel.

Langkah:

• Pada mulanya, buka Editor Asas Visual daripada Tab Pembangun dan Sisipkan Modul dalam tetingkap kod.
• Kedua, dalam tetingkap kod, salin yang berikut koddan tampal ia.

2579

Kod anda kini sedia untuk dijalankan.

• Ketiga, Jalankan makro. Lihat gif di bawah untuk melihat hasilnya.

Akan ada pop timbul MsgBox menunjukkan kepada anda nilai yang digabungkan daripada sel daripada lajur pertama dan kedua ( John dalam Sel B5 daripada Lajur B dan 101 dalam Sel C5 daripada Lajur C ) dan kemudian nilai bercantum daripada sel daripada lajur pertama dan ketiga ( John dalam Sel B5 daripada Lajur B dan 89 dalam Sel D5 daripada Lajur D ) daripada nombor baris 5 daripada set data anda. Dan operasi penggabungan ini akan terus diteruskan sehingga ia mencapai baris terakhir jadual.

Penjelasan Kod VBA

4652

Tentukan pembolehubah.

9546

Kemudian kod memilih jadual daripada helaian aktif (“ TblConcatenate ” dalam nama jadual kami).

2352

Selepas itu, mula mengulang setiap baris tidak termasuk pengepala lajur. Jika lelaran menemui padanan dalam julat antara pengepala lajur dan baris maka ia menyimpan nilai dalam pembolehubah iValue .

4195

Jika syarat di atas tidak dipenuhi, maka kod membuang nilai dalam MsgBox dan menyelesaikan syarat. Selepas itu, ia bergerak ke gelung dalam julat lain dan terus lelaran sehingga baris akhir. Sebaik sahaja ia mencapai baris akhir, makro menamatkan pelaksanaan kod.

4. Benamkan Makro untuk Berulangmelalui Baris dengan Menggabungkan Semua Lajur dalam Jadual dalam Excel

Dalam bahagian ini, kita akan mempelajari cara menggabungkan semua lajur yang dipegang oleh setiap baris dalam set data dengan VBA makro dalam Excel.

Langkah-langkah untuk melaksanakan yang ditunjukkan di bawah.

Langkah:

• Pertama, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan Modul dalam tetingkap kod.
• Kemudian, salin kod berikut dan tampal ke dalam tetingkap kod.

2444

Kod anda kini sedia untuk dijalankan.

• Seterusnya, Jalankan kod makro.

Seperti yang anda boleh lihat daripada gif di atas ialah terdapat pop timbul MsgBox menunjukkan kepada anda nilai gabungan semua lajur yang berada dalam setiap baris daripada jadual lembaran kerja Excel anda.

Penjelasan Kod VBA

4613

Tentukan pembolehubah.

4119

Tetapkan nama helaian yang akan kami gunakan (“ ConcatenatingAllCol ” ialah nama helaian dalam buku kerja).

5619

De baik nama jadual yang akan kami gunakan (“ TblConcatenateAll ” ialah nama jadual dalam set data kami).

6890

Mulakan lelaran melalui setiap baris jadual.

5932

Mulakan lelaran melalui setiap lajur setiap baris jadual.

7547

Simpan hasil dengan bersilang nilai yang dibawa oleh setiap lajur setiap baris. Selepas mengimbas semua lajur yang berada dalam setiap baris, ia melepasiterhasil dalam MsgBox. Kemudian sekali lagi mula menggelung dalam baris seterusnya dan meneruskan gelung sehingga mencapai baris terakhir jadual.

Baca Lagi: Cara Isih Berbilang Lajur Jadual dengan Excel VBA (2 Kaedah)

5. Hentikan Lelaran Jika Nilai Ditemui dengan Menggelung melalui Baris Jadual dengan Makro VBA

Andaikan anda mahu menggelung melalui baris yang terdapat pada jadual anda dan menghentikan gelung apabila ia menemui nilai tertentu . Anda boleh melakukannya dengan hanya kod makro ringkas.

Mari kita pelajari cara melakukannya VBA dalam Excel.

Langkah:

• Pada mulanya, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan a Modul dalam tetingkap kod.
• Kemudian, dalam tetingkap kod, salin kod berikut dan tampal ia.

1776

Kod anda kini sedia untuk dijalankan .

• Kemudian, Jalankan makro.
• Ia akan memulakan gelung dan menghentikannya apabila ia mencari nilai khusus (“ Edge ”) dalam julat dan melontarkan hasil dalam MsgBox .

Seperti yang anda boleh lihat daripada imej di atas, terdapat MsgBox pop timbul menunjukkan kepada anda alamat sel, $B$10 , yang kami temui nilai yang ditentukan, “ Tepi ” .

Penjelasan Kod VBA

1486

Tentukan pembolehubah.

7569

Sekeping kod ini ada di sini untuk menggelung melalui baris dari 1 hingga 15. Jika ia menemui perkataan tertentu“ Tepi ” kemudian ia memberikan hasil dengan alamat sel yang mengandungi perkataan itu. Ia terus melakukan ini sehingga ia selesai mengimbas semua data dari baris 1 hingga 15 dalam mencari perkataan.

Baca Lagi: Cara Memasukkan atau Memadam Baris dan Lajur daripada Jadual Excel

6. VBA untuk Gelung melalui Setiap Baris dan Warnakan Nilai Tertentu dalam Excel

Bagaimana jika anda tidak mahu membuang alamat sel bagi nilai yang ditentukan dalam MsgBox? Anda mungkin mahu mewarnakan sel yang membawa nilai yang anda cari.

Mari kita pelajari cara melakukannya dengan makro VBA .

Langkah:

• Sama seperti sebelumnya, buka Editor Asas Visual daripada tab Pembangun dan Sisipkan a Modul dalam tetingkap kod.
• Kemudian, salin kod berikut dan tampal ke dalam tetingkap kod.

9810

Kod anda kini sedia untuk dijalankan.

• Selepas itu, Jalankan makro.
• Ia akan memulakan gelung dan menghentikannya apabila ia menemui nilai khusus (“ Tepi ”) dalam julat dan warnakan sel dengan ColourIndex yang anda berikan dalam kod.

Seperti yang anda boleh lihat daripada imej di atas, C ell B10 , di mana kami menemui nilai yang ditentukan, “ Tepi ” diwarnakan selepas pelaksanaan kod.

Penjelasan Kod VBA

7789

Tentukan