tách dữ liệu theo mã số (1 người xem)

[LYSM]

Chào mọi người, mình có 1 file dữ liệu muốn tách các mặt hàng từ sheet 1 ra sheet "Ket qua". Thuật toán như sau: Nếu mã số ở cột C <> mã số cột K thì được tách ra sheet "ket qua". Mình cũng viết code (mới tập tọe) nhưng code cứ báo lỗi mà không biết giải quyết thế nào. Mong mọi người giúp đỡ và chỉ bảo. Cảm ơn mọi người rất nhiều!

 

[vu_tuan_manh_linh]

1. Mã cột K của bạn có đúng 4 mã, mất công viết code làm gì cho nhọc.
2. Nếu đã tách dữ liệu cứng (không để đường link) thì đặt cột phụ, fillter rồi copy cho nhanh, code làm gì nữa bạn!!

 

[LYSM]

1. Mã cột K của bạn có đúng 4 mã, mất công viết code làm gì cho nhọc.
2. Nếu đã tách dữ liệu cứng (không để đường link) thì đặt cột phụ, fillter rồi copy cho nhanh, code làm gì nữa bạn!!

Đấy là mình ví dụ thế, chứ cột K có rất nhiều mã

 

[hungpecc1]

Đấy là mình ví dụ thế, chứ cột K có rất nhiều mã

thử với code này xem thế nào :

Sub GPE()
Dim button As button
    Set button = Sheet1.Buttons(Application.Caller)
    Range("L1:L2").ClearContents
    Range("L2") = "=Countif(" & Sheet1.Range("K2", [K65536].End(3)).Address & ",C2)=0"
    Range("A:I").AdvancedFilter 2, Range("L1:L2"), Sheet2.Range("A1:I1")
    Range("L1:L2").ClearContents
End Sub

Tải file đính kèm, ấn nút EXECUTE tại sheet1 ( không chạy trực tiếp trong vba hay macro view)

 

[LYSM]

thử với code này xem thế nào :

Sub GPE()
Dim button As button
    Set button = Sheet1.Buttons(Application.Caller)
    Range("L1:L2").ClearContents
    Range("L2") = "=Countif(" & Sheet1.Range("K2", [K65536].End(3)).Address & ",C2)=0"
    Range("A:I").AdvancedFilter 2, Range("L1:L2"), Sheet2.Range("A1:I1")
    Range("L1:L2").ClearContents
End Sub

Tải file đính kèm, ấn nút EXECUTE tại sheet1 ( không chạy trực tiếp trong vba hay macro view)

Cảm ơn bác, được rồi ạ