Lỗi Set FindNext bên trong Do While

[LEHOC]

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!

 

[SA_DQ]

Mình hay làm thế này:

'. . . . . .      '  
Rws = Sh.[c4].CurrentRegion.Rows.Count
Set Rng = Sh.[c4].Resize(Rws)
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
     MyAdd = sRng.Address
     Do
         Lg = Lg + sRng.Offset(, 2).Value:       DThu = DThu + sRng.Offset(, 3).Value
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
' . . . . . .     '

 

[LEHOC]

Mình hay làm thế này:

'. . . . . .      ' 
Rws = Sh.[c4].CurrentRegion.Rows.Count
Set Rng = Sh.[c4].Resize(Rws)
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
     MyAdd = sRng.Address
     Do
         Lg = Lg + sRng.Offset(, 2).Value:       DThu = DThu + sRng.Offset(, 3).Value
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
' . . . . . .     '

Em cảm ơn bác nhiều ạ!