Copy một số dòng có điều kiện

[TienK.Tran]

Chào cả nhà, em muốn tìm điều kiện để thực hiện thao tác copy một số dòng bất kì (phụ thuộc vào bảng dữ liệu nhập vào) nhưng khả năng có hạn nên không tìm ra được, mong các bác chỉ giáo với. Em có file đính kèm các bác tham khảo nhé.......
Chúc các bác năm mới an lành, dồi dào sức khỏe!!

 

[be_09]

Chào cả nhà, em muốn tìm điều kiện để thực hiện thao tác copy một số dòng bất kì (phụ thuộc vào bảng dữ liệu nhập vào) nhưng khả năng có hạn nên không tìm ra được, mong các bác chỉ giáo với. Em có file đính kèm các bác tham khảo nhé.......
Chúc các bác năm mới an lành, dồi dào sức khỏe!!

Góp ý cho bạn:
1/ Nên có 1 sheet dùng nhập liệu theo chiều dọc xuống chứ không ai để trống dòng như cách bạn làm.
2/ Sheet số liệu nên có 1 cột chứa tên khu muốn lọc cái gì đó thì người ta dựa vào tên khu và cột loại quả để lọc.
3/ Do bạn giải thích không cụ thể, rõ ràng mục đích của bạn muốn làm cái gì? chứ đừng bắt người khác làm theo ý mình khi cấu trúc dữ liệu của mình không chuẩn.

 

[CHAOQUAY]

Chào cả nhà, em muốn tìm điều kiện để thực hiện thao tác copy một số dòng bất kì (phụ thuộc vào bảng dữ liệu nhập vào) nhưng khả năng có hạn nên không tìm ra được, mong các bác chỉ giáo với. Em có file đính kèm các bác tham khảo nhé.......
Chúc các bác năm mới an lành, dồi dào sức khỏe!!

Bạn dùng thử xem sao

Sub A_CopyKhu()
Dim i, j, k, x, z
Sheet2.UsedRange.Delete
With Sheet1
    j = .UsedRange.Rows.Count
    i = 1
    Do While i < j
        For z = i + 1 To j
            If Left(.Range("a" & z), 3) = "Khu" Then
                k = z - 2
                Exit For
            Else
                k = z
            End If
        Next z
        .Range(.Cells(i, 1), .Cells(k, 5)).Copy
        If CLng(Right(.Range("a" & i), 1)) = 1 Then
            x = 1
        Else
            x = Sheet2.Range("xfd2").End(xlToLeft).Offset(, 2).Column
        End If
        Sheet2.Activate
        Cells(1, x).Select
        Sheet2.Paste
        Application.CutCopyMode = False
        i = z
    Loop
End With
End Sub