findnext

em bị lỗi ở Phương thức Set c1 = .FindNext(c1) trong file dưới đây, anh/chị xem giúp em với ạ. File em đính kèm bên dưới ạ, các file *.txt là để gán dữ lieu vào file excel (Sub ImportTextFiles()) sau đó mới chạy Sub XuLy() - Sub bị lỗi Set FindNext Em cảm ơn!