Hỏi cách fix lỗi code VBA

[tnfsmith]

Mình có file excel gửi kèm bên dưới. Anh em xem hộ mình đoạn code vba sao mà nó không chịu copy dữ liệu vào hàng cuối cùng của bảng tính. Nó chỉ xác định dòng cuối cùng với điều kiện cả một dòng cuối đó không có chứa bất kỳ công thức nào. File mình đính kèm có công thức nào cột B. Anh em có thể giúp mình fix lỗi này được không?

Xin cám ơn.

 

[nghiaphuc]

- Trong hàm LastRow, bạn thay sh.Cells.Find... bởi sh.[D].Find... là được.
- Góp ý một xíu: Không biết bạn có sử dụng hàm LastRow này ở nhiều vị trí không, nếu chỉ sử dụng để lưu thông tin khách hàng thì theo mình không cần dùng hàm này mà trong thủ tục Copy_Next_Each_Other_TheCodeCage, bạn chỉ cần thay câu lệnh

LR = LastRow(DestSheet)

bởi câu lệnh sau là đủ:

LR = DestSheet.[D65536].End(xlUp).Row + 1

 

[tnfsmith]

Cám ơn nghiaphuc nhiều lắm.

Cám ơn nghiaphuc nhieu lam. Mình đã làm thành công rồi. Cám ơn bạn! . Tiện thể cho mình hỏi thêm bạn có code nào khử dấu tiếng việt trong file excel không vậy? Nếu có cho mình xin nhé.