Excel - Một macro để điền dữ liệu dựa trên các tiêu chí

Vấn đề

Tôi muốn điền dữ liệu từ 1 tờ này sang trang khác dựa trên các tiêu chí nhất định. Với tham chiếu đến dữ liệu mẫu được cung cấp trong liên kết dưới đây:

• Nhập dữ liệu vào một trang tính mới gọi là "Di chuyển chậm" khi Cột H lớn hơn 90 và cột D không bằng không.
• Nhập dữ liệu vào một trang tính mới gọi là "Không di chuyển" khi Cột G bằng 0 và cột D không bằng không.

Dung dịch

Hãy thử macro này:

Chèn hai tờ "Di chuyển chậm" và "Không di chuyển". Chạy macro này (trong macro, tên trang tính phải chính xác như tên trang tính):

 Kiểm tra phụ () Dim j As Long, k As Long undo Worksheet ("6200_Data"). Kích hoạt k = Range ("a6"). End (xlDown) .Row For j = 1 To k If Cells (j, "H" )> 90 Và các ô (j, "D") 0 Sau đó các ô (j, "A"). EntireRow.Copy _ Worksheet ("Di chuyển chậm"). Các ô (Rows.Count, "A"). End (xlUp) .Packset (1, 0) If Cells (j, "G") = 0 And Cells (j, "D") 0 Then Cells (j, "A"). EntireRow.Copy _ Worksheet ("Không di chuyển"). Các ô (Rows.Count, "A"). End (xlUp) .Packset (1, 0) Tiếp theo j Worksheet ("Slow Move"). .Cells.Clear Worksheet ("Không di chuyển"). Cells.Clear End Sub 

Cảm ơn Venkat1926 cho mẹo này.