Bạn chép 2 sub này vào 1 module và chạy thử từng sub xem nó khác biệt gì về thời gian tiêu tốn để hoàn thành nhé:
Sub TimKiem111()
Dim arr(), KQ(), Key
Dim Rng As Range, eRng As Range
Dim i&, Lr&, t&, d&, R&, Col&
Dim Ws As Worksheet
Dim Time
Time = Timer
With Sheets("Data")
Lr =...