sửa lỗi code lọc và sắp xếp dữ liệu ạ (1 người xem)

[khonghoithinguhocdungchem]

em có bài code sắp xếp và lọc dữ liệu nhưng khi áp dụng vào bài này thì thấy báo lỗi code ở sheet3 không biết vì sao nhờ mọi người sửa giúp ạ

 

[khonghoithinguhocdungchem]

thực sự là em mới học mà, ko biết phải hỏi thôi, bây giờ mới biết thêm là khi AdvancedFilter thì không được Merge cells. à ngoài trường hợp này ra còn có trường hợp nào nữa ko
vì up vào vẫn bị lỗi, ko merge, ko dùng công thức nưa à

 

[ChanhTQ@]

Bạn xem file thử có đúng í bạn là vầy?

 

[khonghoithinguhocdungchem]

bạn ơi làm gì mà z3 thế mình gửi file đó lên cho mọi người cùng sửa ạ

 

[khonghoithinguhocdungchem]

https://www.fshare.vn/file/UVJS2OYG54SE
file đó đây ạ mn chịu khó tải ạ, nó nặng có hơn 1mb thôi ạ, bài tập mãi mà ko xong đây ạ. mong các bác nói rõ lý do dể em còn áp dụng tiếp các sheet khác nữa ạ

 

[khonghoithinguhocdungchem]

có, mà có thì có ảnh hưởng ko ạ, vì trước đó vẫn dùng có sao đâu

 

[khonghoithinguhocdungchem]

quay đi quay lại cho có cách này nhưng giờ làm sao để nó không xóa mất dòng border ô đi ạ
Private Sub Worksheet_Activate()
Dim Nguon(), Kq(), i&, k&
Nguon = Sheet1.Range(Sheet1.[A3], Sheet1.[A65536].End(3)).Value
ReDim Kq(1 To UBound(Nguon, 1), 1 To 1)
With CreateObject("scripting.dictionary")
For i = 1 To UBound(Nguon, 1)
If Not .exists(Nguon(i, 1)) Then
k = k + 1
.Add Nguon(i, 1), ""
Kq(k, 1) = Nguon(i, 1)
End If
Next
End With
Range("B12").Resize(k).Sort [B11], 2
Range("B12").Resize(k - 1).Sort [B11], 1
End Sub