Excel - Makro untuk memotong baris dengan syarat

Makro boleh digunakan untuk pelbagai operasi pada Excel Worksheets seperti memotong baris yang memenuhi syarat tertentu. Walaupun tidak perlu, beberapa pengetahuan tentang konsep pengaturcaraan dan untuk gelung mungkin terbukti berguna untuk menulis makro dalam Excel. Macros dalam Excel untuk memadam baris yang memenuhi syarat-syarat tertentu boleh ditulis dari awal atau dibangunkan dari kod makro yang tersedia secara bebas. Makro adalah ciri yang sangat berguna dan boleh digunakan untuk menyelesaikan manipulasi data pada Excel Worksheets dengan sejumlah besar rekod. Macros dalam Excel mengautomasikan proses membuat tugas itu cepat dan bebas daripada ralat.

Isu

Saya memerlukan Makro untuk memadam baris apabila tiada sel dalam baris mengandungi salah satu daripada dua nombor " 103526 " atau " 103527 "

Bilangan baris adalah pembolehubah (max 150) dan bilangan pembolehubah lajur juga (max 100).

Mana-mana bantuan dihargai.

Penyelesaian

Keadaan anda membingungkan saya. Saya mencontohi semula.

Jika baris mengandungi 103526 atau 102527 atau kedua-duanya maka JANGAN buang.

Jika kedua-dua nombor tidak berturut-turut, hapuskan.

Sekarang, semasa anda memadam baris, simpan satu salinan data dalam sheet1 hingga sheet2 supaya anda dapat menyalin data jika ada kekacauan.

Data dalam helaian 1, cuba makro ini:

 Sub test () Dim j Sebagai Integer, k Sebagai Integer Dim r As Range, cfind6 As Range, cfind7 As Worksheets Range ("sheet1"). Aktifkan Kesalahan Resume Next j = Sel (Rows.Count, "A"). (xlUp) .Untuk k = j Ke 1 Langkah -1 Tetapkan cfind6 = Baris (k) .Cells.Find (apa: = 103526, lookat: = xlWhole) Tetapkan cfind7 = Baris (k) .Cells.Find (apa: = 103527, lookat: = xlWhole) Jika cfind6 Tidak Ada Dan cfind7 Tidak Ada Kemudian Baris (k) .Delete Next