Excel - Makro untuk menghapus baris dengan syarat

Makro dapat digunakan untuk berbagai operasi di lembar kerja Excel seperti menghapus baris yang memenuhi kondisi tertentu. Meskipun tidak perlu, beberapa pengetahuan tentang konsep pemrograman dan untuk loop mungkin terbukti bermanfaat untuk menulis makro di Excel. Makro di Excel untuk menghapus baris yang memenuhi kondisi tertentu dapat ditulis dari awal atau dikembangkan dari kode makro yang tersedia secara bebas. Makro adalah fitur yang sangat berguna dan dapat digunakan untuk menyelesaikan manipulasi data di lembar kerja Excel dengan sejumlah besar catatan. Makro di Excel mengotomatiskan proses membuat tugas menjadi cepat dan bebas kesalahan.

Isu

Saya membutuhkan makro untuk menghapus baris ketika tidak ada sel di baris yang berisi salah satu dari dua angka " 103526 " atau " 103527 "

Jumlah baris adalah variabel (maks 150) dan jumlah variabel kolom juga (maks 100).

Bantuan apa pun dihargai.

Larutan

Kondisi Anda membingungkan saya. Saya mengulanginya.

Jika satu baris berisi 103526 atau 102527 atau keduanya maka JANGAN hapus.

Jika tak satu pun dari kedua angka itu berurutan, hapus.

Sekarang, saat Anda menghapus baris, simpan salinan data di sheet1 ke sheet2 sehingga Anda dapat menyalin data jika ada kekacauan.

Data ada di lembar 1, coba makro ini:

 Sub test () Dim j Sebagai Integer, k As Integer Dim r As Range, cfind6 As Range, cfind7 As Range Worksheets ("sheet1"). Aktifkan Pada Error Lanjutkan Selanjutnya j = Cells (Rows.Count, "A"). End (xlUp) .Row Untuk k = j Ke 1 Langkah -1 Set cfind6 = Baris (k) .Cells.Find (apa: = 103526, cari: = xlWhole) Set cfind7 = Baris (k) .Cells.Find (apa: = 103527, lookat: = xlWhole) Jika cfind6 Is nothing Dan cfind7 Is Nothing Then Baris (k) .Hapus Selanjutnya