Nó còn một số bệnh như sau:
(*) Macro Sub NhapLieuU() chưa có câu lệnh kết thúc; đó là câu lệnh:
End Sub
(*) Trong file của bạn không có trang tính Sheet2 để đáp ứng cho lệnh gán nó vô biến
Set Sh2 = Sheet2 ' Gan Sh2 la sheet 'bao thu'
Trong đó chỉ có trang tính thứ 21 mà thôi; Nên câu lệnh fải là:
Set Sh2 = Sheet21 ' Gan Sh2 la sheet 'bao thu'
(+) Mình hay dùng fương thức tìm kiếm thay vì dùng các hàm trong excel trong VBA
Chúc bạn nhiều thành công!