Excel - Makro untuk mengisi data berdasarkan kriteria

Isu

Saya ingin mengisi data dari 1 lembar ke helaian lain berdasarkan kriteria tertentu. Dengan merujuk kepada data sampel yang disediakan dalam pautan di bawah:

• Populasi data ke dalam lembaran baru yang disebut "Slow Moving" apabila Column H lebih daripada 90 dan kolum D tidak sama dengan sifar.
• Populasi data ke dalam helaian baru yang dipanggil "Non Moving" apabila Column G adalah sifar dan lajur D tidak bersamaan dengan sifar.

Penyelesaian

Cuba makro ini:

Masukkan dua helaian "Perlahan bergerak" dan "Bukan Movingt". Jalankan makro ini (dalam makro nama lembar kerja hendaklah sama seperti nama kunci):

 Berikan j = 1 Kepada k Jika Sel (j, "H"), j (1) )> 90 Dan Sel (j, "D") 0 Kemudian sel (j, "A"). EntireRow.Copy _ Worksheets ("Slow Moving") Sel (Rows.Count, .Offset (1, 0) Jika Sel (j, "G") = 0 Dan Sel (j, "D") 0 Kemudian Sel (j, "A"). Selesai (xlUp) .Offset (1, 0) Seterusnya j Lembar Kerja ("Perlahan Lambat"). .Cells.Clear Worksheets ("Non Moving"). Cells.Clear End Sub 

Terima kasih kepada Venkat1926 untuk tip ini.