Nalika urang gaduh set data anu ageung dina buku kerja Excel urang, kadang langkung merenah upami urang tiasa ngurilingan baris pikeun nimba hasil khusus anu urang hoyong kéngingkeun. Ngalaksanakeun VBA mangrupikeun metode anu paling efektif, panggancangna, sareng paling aman pikeun ngajalankeun operasi naon waé dina Excel. Dina artikel ieu, urang bakal némbongkeun Anjeun 11 métode béda ngeunaan kumaha carana mulang ngaliwatan baris tabel dina Excel kalawan VBA makro .

Unduh Workbook

Anjeun tiasa ngundeur buku latihan Excel gratis ti dieu.

11 Métode jeung VBA pikeun Loop ngaliwatan Baris Méja dina Excel

Nuturkeun bagian ieu, anjeun bakal diajar kumaha carana loop ngaliwatan baris tabel kalawan 11 métode béda, kayaning loop ngaliwatan baris nepi ka sél kosong, loop ngaliwatan baris nepi ka kapanggih nilai husus, loop ngaliwatan baris jeung warna sél husus jsb kalawan VBA makro dina Excel.

Di luhur aya conto set data anu bakal diturutan ku artikel ieu pikeun ngajelaskeun metodeu.

1. Lebetkeun VBA ka Loop ngaliwatan Unggal Sél dina Unggal Baris Méja ku Nomer Rujukan Sél

Upami anjeun hoyong Loop ngaliwatan unggal sél dina unggal baris tabel dina lembar kerja Excel anjeun tur meunangkeun nomer rujukan sél salaku nilai balik , teras turutan léngkah-léngkah anu dibahas di handap ieu.

Léngkah-léngkah:

• Di awal , pencét Alt + F11 dina kibor anjeun atanapi bukavariabel.

7121

Potongan kode ieu di dieu pikeun looping ngaliwatan baris ti 1 nepi ka 15. Lamun manggihan kecap husus " Tepi " mangka warna sél nu nyepeng kecap. Éta terus ngalakukeun ieu dugi ka réngsé nyeken sadaya data ti baris 1 dugi ka 15 dina milarian kecap.

Baca deui: Kumaha Ngagunakeun VLOOKUP Table Array Dumasar kana Niley Sél dina Excel

Bacaan Sarupa

• Naha Fungsi TABLE Aya dina Excel?
• Kumaha Ngarobih Tabél ka Daptar dina Excel (3 Cara Gancang)
• Ngarobih Rentang kana Tabél dina Excel (5 Métode Gampang)
• Anggo Rumus dina Méja Excel sacara Éféktif (Kalayan 4 Conto)
• Ngaran Méja Excel: Sadayana Anu Anjeun Kedah Nyaho

7. Larapkeun VBA pikeun Loop ngaliwatan Unggal Baris jeung Warna Unggal Baris Ganjil dina Excel

Ti bagian saméméhna, urang geus diajar kumaha carana ngawarnaan sél nu mawa nilai husus. Dina bagian ieu, urang bakal diajar kumaha carana ngulangan dina unggal baris tabel sarta warna unggal baris ganjil ku VBA makro dina Excel.

Léngkah-léngkah pikeun ngaéksekusi prosés. dijelaskeun di handap.

Léngkah-léngkah:

• Sapertos dipidangkeun sateuacana, buka Visual Basic Editor ti Developer tab jeung Selapkeun a Modul dina jandela kode.
• Salajengna, salin kode di handap ieu sareng témpélkeun kana jandela kode.

6699

Kode anjeun ayeuna siap dijalankeun.

• Ayeuna, Jalankeun makro sareng tingali gambar di handap ieu kanggo ningali kaluaran.

Sadaya baris ganjil diwarnaan sanggeus looping ngaliwatan sakabeh baris residing dina tabel lembar kerja.

VBA Code Katerangan

1202

Tetepkeun variabel.

6777

Tetepkeun rentang anu bakal dianggo ku urang.

7716

Bagian kode ieu nujul kana iterasi ngaliwatan sadaya baris, mimitian ti baris saterusna baris ayeuna, B4 . Upami modél ngabagi nomer baris ku 2 sami sareng nomer baris anu dipulangkeun anu disimpen dina jinis integer, kode ieu ngawarnaan sadaya baris anu sasari ku itungan sareng Indéks Warna anu disayogikeun dina kode. Terus ngaléngkah ka sakabéh baris nepi ka ahir rentang.

8. Laksanakeun VBA pikeun Loop ngaliwatan Baris sareng Warna Unggal Baris Genap dina Excel

Dina bagian samemehna, urang geus diajar kumaha carana ngawarnaan unggal baris ganjil tabel. Dina bagian ieu, urang bakal diajar kumaha carana ngulangan dina unggal baris tabel sarta warna unggal baris genap jeung VBA makro dina Excel.

Lengkah-lengkah pikeun ngaéksekusi prosés ieu dibahas di handap.

Léngkah-léngkah:

• Mimitina, buka Visual Basic Editor tina tab Developer jeung Insert a Modul dina jandela kode.
• Salajengna, salin kode ieu sareng tempelkeun kana jandela kode.

6671

Kode anjeun ayeuna tos siapjalankeun.

• Salajengna, Jalankeun makro sareng tingali gambar di handap ieu kanggo ningali hasilna.

Sadaya baris genap diwarnaan saatos ngulangan sadaya jajar anu aya dina tabel lembar kerja.

Penjelasan Kode VBA

7886

Tetepkeun variabel.

6083

Tetepkeun rentang anu bakal dianggo ku urang.

6196

Potongan kode ieu mimiti diulang saatos tilu jajar ti baris ayeuna, B4 . Ieu ngawarnaan heula teras nambahan jumlah baris ku 2 sareng terus ngawarnaan dugi ka baris terakhir tina set data.

9. Larapkeun Macro kana Iterate ngaliwatan Baris Nepi ka Sél Kosong di Excel

Upami anjeun hoyong kode anjeun tiasa dianggo sapertos éta bakal ngalungkeun sadaya jajar tabel sareng ngeureunkeun nalika ngahontal sél kosong , teras bagian ieu kanggo anjeun. Anjeun tiasa ngalaksanakeun tugas éta sareng FOR Loop sareng Do-Until Loop dina Excel VBA .

9.1. Kalayan FOR Loop

Léngkah-léngkah ngulangan ngaliwatan baris dina tabel nepi ka sél kosong kalayan FOR Loop dina VBA Excel dibere di handap.

Léngkah-léngkah:

• Saheulaanan, buka Visual Basic Editor tina tab Developer jeung Insert a Modul dina jandela kode.
• Sanggeus éta, salin kode di handap ieu jeung témpél kana jandéla kode.

4783

Kode anjeun ayeuna siap dijalankeun.

• Terus, Jalankeun makro sareng hasilna dipidangkeun dina gif di handap ieu.

Saatos ngajalankeun makro, éta mimiti ngulangan sadaya baris dina tabél sareng saparantos dugi ka sél kosong, Sél B8 , éta ngeureunkeun iterasi .

Penjelasan Kode VBA

2250

Tetepkeun variabel.

2055

Pareuman acara ngamutahirkeun layar.

5486

Simpen sakabéh baris mimitian ti Sél B4 nepi ka nu pamungkas.

7941

Pilih Sél B4 .

2096

Potongan kode ieu mimiti ngagulung ka sadaya baris. Lamun manggihan hiji sél kosong dina baris teras pilih eta terus scanning baris nepi ka ahir.

5886

Hidupkeun acara ngamutahirkeun layar.

9.2. Kalawan Do-Until Loop

Lengkah-lengkah loop ngaliwatan baris nepi ka sél kosong kalawan Do-Until loop dina VBA dibere di handap.

Lengkah:

• Mimitina, buka Visual Basic Editor tina tab Developer jeung Selapkeun a Modul dina jandela kode.
• Salajengna, salin kode ieu sareng témpél kana jandela kode.

4628

Kode anjeun ayeuna siap dijalankeun.

• Engke, Jalankeun makro. Hasilna dipidangkeun dina gif di handap ieu.

Sanggeus ngajalankeun makro, éta dimimitian mulang ngaliwatan sakabéh baris dina tabél jeung sakali éta ngahontal sél kosong, Sél B8 , éta dieureunkeun iterasi .

Kode VBAKaterangan

7370

Pilih sél anu bakal dianggo.

3395

Dimimitian terus ngulangan nepi ka kapanggih sél kosong.

6932

Nalika sél kosong kapanggih baris tuluy pilih jeung eureun iterasi.

10. VBA Macro to Iterate ngaliwatan Baris Nepi ka Sababaraha Sél Kosong dina Excel

Dina bagian saméméhna, anjeun geus diajar kumaha carana ngeureunkeun loop lamun sél kosong kapanggih. Tapi kumaha upami anjeun henteu hoyong ngeureunkeun iterasi dugi sababaraha sél kosong kapendak sanés ngan ukur hiji.

Léngkah-léngkah pikeun ngulangan baris dugi ka sababaraha sél kosong kapanggih dina méja kalawan VBA Excel dipidangkeun di handap.

Léngkah-léngkah:

• Mimitina, buka Visual Basic Editor ti Developer tab jeung Selapkeun a Modul dina jandela kode.
• Salajengna, salin kode di handap ieu sareng tempelkeun kana jandela kode.

9146

Kode anjeun ayeuna tos siap dijalankeun.

• Ayeuna, Jalankeun makro tur tingal gif di handap pikeun kaluaran.

Sanggeus ngajalankeun makro, éta teu eureun dina sél kosong kahiji, Sél B8 . Ieu eureun nalika kapanggih dua sél kosong padeukeut dina Sél B16 .

VBA Code Katerangan

6711

Pilih sél nu bakal urang jalankeun.

2243

Dimimitian terus ngulangan nepi ka kapanggih dua sél kosong padeukeut.

3172

Nalika dua sél kosong padeukeut kapanggih, teraspilih jeung eureun iterasi.

11. Lebetkeun VBA ka Loop ngaliwatan Baris ku Concatenating Sadaya Kolom Nepi ka Kosong di Excel

Bagian ieu bakal mintonkeun Anjeun kumaha loop ngaliwatan sakabeh baris dina tabel sarta concatenate sakabeh kolom nepi ka sél kosong. kapanggih jeung VBA Excel.

Hayu urang diajar kumaha ngalakukeunana jeung VBA makro dina Excel.

Lengkah-lengkah:

• Tadina, buka Visual Basic Editor tina tab Developer jeung Selapkeun a Modul dina jandela kode.
• Salajengna, salin kode ieu sareng témpelkeun kana jandela kode.

7164

Kode anjeun ayeuna tos siap dijalankeun.

• Engke, Jalankeun makro sareng tingali gif ieu kanggo hasilna.

Sakumaha anjeun tiasa ningali tina gif di luhur nyaéta aya pop-up MsgBox nunjukkeun anjeun nilai anu dihijikeun tina sadaya kolom anu aya dina unggal baris tina tabel lembar kerja Excel anjeun. Tapi dieureunkeun pas nepi ka sél kosong .

VBA Code Katerangan

6986

Tetepkeun variabel.

6339

Setel ngaran lambar anu bakal dianggo ku urang (" ConcatenatingAllColUntilBlank " nyaéta nami lambar dina buku kerja).

2691

Tetepkeun rentang anu bakal kami damel.

1960

Sapotong kode ieu ngamimitian loop ku array. Ieu terus loop nepika mulih subscript pangbadagna ti Asép Sunandar Sunarya jeung wates handapdimensi munggaran. Lajeng asupkeun iteration of extracting wates handap diménsi kadua. Sanggeus éta, éta ngalirkeun sakabéh nilai sasari dina iResult variabel ku concatenating aranjeunna sarta ngalungkeun hasilna dina MsgBox. Éta terus ngalakukeun éta dugi ka mendakan sél kosong.

Kacindekan

Pikeun nyimpulkeun, tulisan ieu nunjukkeun anjeun 11 metode anu efektif ngeunaan cara ngalungkeun barisan. tina tabel dina Excel kalawan VBA makro . Kuring miharep artikel ieu geus pisan mangpaat pikeun anjeun. Punten naroskeun patarosan naon waé ngeunaan topik éta.

• Salajengna, dina jandela pop-up kode, ti bar menu, klik Selapkeun - & GT; Modul .

• Salajengna, salin kodeu ieu sareng tempelkeun kana kodeu jandela.

4267

Kode anjeun ayeuna siap dijalankeun.

• Ayeuna, pencét F5 dina anjeun keyboard atawa tina bar menu pilih Run -> Jalankeun Sub/UserForm . Anjeun oge bisa ngan klik dina ikon Play leutik dina sub-menu bar pikeun ngajalankeun makro.

• Atawa ka Nyaksian sacara visual sareng ngabandingkeun set data sareng hasilna, anjeun tiasa nyimpen kode sareng balik deui ka lembar kerja anu dipikaresep.
• Ti dinya, anjeun tiasa klik Macros tina tab Developer , pilih nami Makro, teras klik Run .

Sanggeus palaksanaan kode suksés, tingali gif di luhur pikeun ningali hasilna. Bakal aya pop-up MsgBox némbongkeun Anjeun nomer rujukan sél unggal sél ti unggal baris tina tabel dina lambar Excel Anjeun.

Penjelasan Kode VBA

5666

Pikeun meunangkeun nomer baris panungtungan dina tabél ku cara néangan kolom B.

9797

Setel nomer baris 4, ti mana data urang dimimitian.

7818

Pikeun loop ti baris kahiji.

2903

Setel kolom nomer 2, ti mana data urang dimimitian.

1607

Mimitian looping ngaliwatan baris pikeun meunangkeun panungtungan.nomer kolom ku cara ngevaluasi baris ayeuna nepi ka baris panungtungan.

5032

Tambahan looping kolom ti baris kahiji nepi ka baris panungtungan.

2342

Potongan kode ieu jalan pikeun ngolah, nambahan sanggeus unggal. iterasi tur mintonkeun hasil kode.

Baca Selengkapnya: Kumaha Nambahkeun Baris Anyar sacara Otomatis dina Méja Excel

2 . Laksanakeun VBA pikeun Loop ngaliwatan Unggal Sél dina Unggal Baris ku Niley

Lamun anjeun hoyong loop ngaliwatan unggal sél dina unggal baris tabel sarta buang nilai residing dina sél salaku nilai balik. , teras bagian ieu bakal ngabantosan anjeun terang kumaha ngalakukeun éta sareng VBA Excel.

Anjeun tiasa ngalakukeun éta kalayan ListObject sareng sareng DataBodyRange milik VBA . Kami bakal nunjukkeun anjeun kode makro sareng obyék sareng harta.

2.1. Kalayan ListObject

Léngkah-léngkah pikeun ngalungkeun unggal sél dina unggal baris tabel dumasar nilai sél sareng ListObject dina VBA Excel dirumuskeun di handap ieu.

Léngkah-léngkah:

• Sarua jeung saméméhna, buka Visual Basic Editor tina tab Developer jeung Selapkeun a Modul dina jandela kode.
• Teras, dina jandela kode, salin kode di handap ieu sareng témpelkeun éta.

6775

Kode anjeun ayeuna siap dijalankeun.

• Sanggeus éta, Jalankeun makro sakumaha urang némbongkeun Anjeun dina bagian luhur. Hasilna dipidangkeun dina gifdi handap.

Bakal aya pop-up MsgBox némbongkeun Anjeun nilai nu dibawa ku unggal sél ti unggal baris tina tabél dina lambaran Excel anjeun.

VBA Code Katerangan

6820

Tetepkeun variabel.

9470

Ieu potongan kode mimitina mimiti looping ngaliwatan baris dina tabel (" TblStudents " nyaeta nami tabel kami). Lajeng asupkeun kolom pikeun tiap baris. Sanggeus éta, lulus nilai sél dina MsgBox. Teras angkat ka kolom salajengna. Sanggeus réngsé iterasi ngaliwatan sakabéh kolom dina hiji baris, tuluy indit ka baris saterusna sarta nuluykeun prosés iterasi nepi ka baris panungtungan.

2.2. Kalayan DataBodyRange Property

Pikeun langkung spésifik sareng data anu diékstrak tina tabél, anjeun tiasa nganggo harta DataBodyRange tina ListObject . DataBodyRange properti bakal ngalungkeun hasil anu ngandung rentang ti daptar antara baris lulugu sareng baris sisipan.

Léngkah-léngkah kumaha anjeun tiasa ngalungkeun unggal sél dina unggal baris. tina tabél dumasar nilai sél jeung DataBodyRange dina VBA Excel dibéréndélkeun di handap.

Lengkah-léngkah:

• Sapertos ditémbongkeun sateuacanna, buka Visual Basic Editor tina tab Developer sareng Selapkeun a Modul dina jandela kode.
• Lajeng , nyalin kodeu di handap ieu jeung témpél kana jandéla kode.

2982

Kode anjeun ayeuna geus siap dijalankeun.

• Engke, Jalankeun makro sareng tingali gif di handap ieu kanggo ningali kaluaran.

Bakal aya pop-up MsgBox némbongkeun Anjeun nilai nu dibawa ku unggal sél ti unggal baris tina tabel dina lambar Excel Anjeun.

VBA Code Katerangan

1147

Tetepkeun variabelna.

9242

Sapotong kode ieu mimiti ngulangan baris dina tabél (" TblStdnt " nyaéta ngaran méja kami) jeung mulangkeun sauntuyan nilai teu kaasup baris lulugu tabel. Lajeng lulus nilai rentang dina MsgBox. Teras angkat ka baris salajengna pikeun ngekstrak rentang sareng neraskeun prosés iterasi dugi ka baris terakhir.

3. Larapkeun VBA Macro kana Iterate ngaliwatan Baris ku Concatenating Kolom dina Excel

Bagian ieu bakal mintonkeun kumaha loop ngaliwatan baris dina tabel ku concatenating kolom jeung kolom kahiji tina dataset Anjeun dina Excel.

Misalna, pikeun dataset urang, mimitina, urang bakal iterate ngaliwatan John dina Cell B5 jeung 101 dina Cell C5 ku concatenating aranjeunna lajeng iterate ngaliwatan John dina Sél B5 sareng 89 dina Sél D5 ku cara ngahijikeunana tina baris 5 .

Hayu urang nunjukkeun anjeun kumaha anjeun tiasa ngalakukeun éta VBA makro dina Excel.

Léngkah-léngkah:

• Saheulaanan, buka Visual Basic Editor tina Developer tab jeung Selapkeun a Modul dina jandela kode.
• Kadua, dina jandela kode, salin ieu di handap. kodeujeung témpél é.

3802

Kode anjeun ayeuna geus siap dijalankeun.

• Katilu, Jalankeun makro. Tingali gif di handap pikeun ningali hasilna.

Bakal aya pop-up MsgBox nunjukkeun anjeun nilai anu dihijikeun. tina sél ti kolom kahiji jeung kadua ( John dina Sél B5 ti Kolom B jeung 101 dina Sél C5 ti Kolom C ) terus nilai concatenated tina sél ti kolom kahiji jeung katilu ( John dina Sél B5 ti Kolom B jeung 89 dina Sél D5 ti Kolom D ) tina nomer baris 5 tina set data anjeun. Jeung operasi concatenation ieu bakal terus dituluykeun nepi ka ngahontal baris panungtungan tabel.

VBA Code Katerangan

1391

Tetepkeun variabel.

1515

Lajeng kode milih tabel tina lembar aktip (" TblConcatenate " dina ngaran tabel kami).

1935

Sanggeus éta, mimitian iterating unggal baris teu kaasup lulugu tina kolom. Lamun iteration manggihan hiji patandingan dina rentang antara lulugu kolom jeung barisan mangka nyimpen nilai dina iValue variabel.

2194

Lamun kaayaan di luhur teu meunang kaeusi, teras kode nu throws nilai dina MsgBox tur rengse kaayaan. Sanggeus éta, éta ngaléngkah ka looping dina rentang sejen tur terus iterating nepi ka baris ahir. Sanggeus nepi ka baris ahir, makro bakal ngeureunkeun palaksanaan kode.

4. Lebetkeun Macro ka Iteratengaliwatan Baris ku Concatenating Sadaya Kolom dina Tabél dina Excel

Dina bagian ieu, urang bakal diajar kumaha carana concatenate sakabeh kolom nu unggal baris nahan dina dataset jeung VBA makro dina Excel.

Léngkah-léngkah pikeun ngaéksekusi anu dipidangkeun di handap.

Léngkah-léngkah:

• Kahiji, buka Visual Basic Editor tina tab Developer sareng Selapkeun a Modul dina jandela kode.
• Teras, salin kode di handap ieu sareng témpél kana jandela kode.

7049

Kode anjeun ayeuna tos siap dijalankeun.

• Salajengna, Jalankeun kode makro.

Sakumaha anjeun tiasa ningali tina gif di luhur nyaéta yén aya pop-up MsgBox mintonkeun anjeun nilai gabungan sadaya kolom anu aya dina unggal baris tina tabel lembar kerja Excel anjeun.

Penjelasan Kode VBA

4647

Tetepkeun variabel.

6167

Setel nami lambar anu bakal dianggo ku urang (" ConcatenatingAllCol " nyaéta nami lambar dina workbook).

1513

De denda ngaran tabel nu bakal urang gawekeun (" TblConcatenateAll " nyaeta nami tabel di dataset urang).

1574

Mimiti iterasi ngaliwatan unggal baris tabel.

9436

Ngamimitian iterasi ngaliwatan unggal kolom unggal baris tabel.

9737

Simpen hasilna ku intersecting nilai unggal kolom unggal baris mawa. Saatos scanning ngaliwatan sagala kolom residing dina unggal baris, éta lulushasilna dina MsgBox. Teras deui ngawitan ngulangan dina baris salajengna sareng neraskeun ngulangan dugi ka jajaran panungtung tabél.

Baca deui: Kumaha Nyortir Sababaraha Kolom Tabél sareng Excel VBA (2 Métode)

5. Ngeureunkeun Iteration Lamun Niley Kapanggih ku Looping ngaliwatan Baris tina Méja jeung VBA Makro

Anggap anjeun hoyong loop ngaliwatan baris tabel anjeun boga jeung ngeureunkeun looping lamun manggihan nilai husus . Anjeun tiasa ngalakukeun éta kalayan kode makro basajan.

Hayu urang diajar kumaha ngalakukeun éta VBA dina Excel.

Lengkah-léngkah:

• Tambihna, buka Visual Basic Editor tina tab Developer sareng Selapkeun a Modul dina jandela kode.
• Salajengna, dina jandela kode, salin kode ieu sareng témpelkeun .

8575

Kode anjeun ayeuna tos siap dijalankeun. .

• Engke, Jalankeun makro.
• Ieu bakal ngamimitian loop sareng ngeureunkeunana nalika manggihan nilai husus (“ Edge ”) dina rentang jeung ngalungkeun hasilna dina MsgBox .

Sakumaha anjeun tiasa ningali tina gambar di luhur, aya pop-up MsgBox anu nunjukkeun anjeun alamat sél, $B$10 , dimana urang mendakan. nilai nu ditangtukeun, " Tepi " .

VBA Code Katerangan

7557

Tetepkeun variabel.

6077

Sapotong kode ieu di dieu pikeun looping ngaliwatan baris ti 1 nepi ka 15. Lamun manggihan kecap husus." Tepi " teras ngalangkungan hasilna sareng alamat sél anu ngandung kecap. Terus ngalakukeun ieu nepi ka réngsé nyeken sakabéh data ti baris 1 nepi ka 15 dina néangan kecap.

Baca Selengkapnya: Cara Nyelapkeun atawa Ngahapus Baris jeung Kolom tina Méja Excel

6. VBA pikeun Loop ngaliwatan Unggal Baris jeung Warna a Nilai husus dina Excel

Kumaha lamun anjeun teu hayang maledog alamat sél tina nilai dieusian dina MsgBox? Anjeun meureun hoyong ngawarnaan sél nu mawa nilai nu ditéang.

Hayu urang diajar kumaha carana ngalakukeun eta kalawan VBA makro.

Lengkah-léngkah:

• Sarua jeung saméméhna, buka Visual Basic Editor tina tab Developer jeung Insert a Modul dina jandela kode.
• Salajengna, salin kode ieu sareng témpél kana jandela kode.

8054

Kode anjeun ayeuna siap dijalankeun.

• Sanggeus éta, Jalankeun makro.
• Bakal ngamimitian loop sareng ngeureunkeunana nalika mendakan nilai khusus (" Tepi ") dina rentang sareng ngawarnaan sél nganggo ColourIndex nu anjeun disadiakeun dina kode.

Sakumaha anjeun tiasa tingali tina gambar di luhur, C ell B10 , dimana kami mendakan nilai anu ditangtukeun, " Tepi " diwarnaan sanggeus kodeu dieksekusi.

Penjelasan Kode VBA

7982

Tetepkeun