Nhờ thầy, cô và anh chị trên diễn đàn sửa giúp em code VBA lọc dữ liệu duy nhất (1 người xem)

[baquang1984]

Em chào thầy cô và anh chị trên diễn đàn
Em có file dữ liệu muốn lọc dữ liệu ở cột C Sheets"TONGHOP" sang Sheets("Sheet1") để lấy giá trị duy nhất. Em thực hiện viết code VBA nhưng khi chạy chương trình báo lỗi. Mong được sự giúp đỡ của thầy cô và anh chị trên diễn đàn
Em cảm ơn cả nhà nhiều ạ!

 

[PacificPR]

Bác thiếu mất 1 chữ r trong sArr và 1 cái End if . Bác thay cái sArr thành sArr = Sheet1.Range("A2", Sheet1.Range("C65000").End(3)).Value cho bỏ dòng trống phía dưới

 

[baquang1984]

Bác thiếu mất 1 chữ r trong sArr và 1 cái End if . Bác thay cái sArr thành sArr = Sheet1.Range("A2", Sheet1.Range("C65000").End(3)).Value cho bỏ dòng trống phía dưới

Cảm ơn PacificPR nhiều nhé