Kiểu viết khác của mình nhiều
Chạy thử
Sub XYZ()
' Loc du lieu vao sheet PHIEUNBH
Dim sArr(), Res(), SoPhieu$
Dim sRow&, eRow&, i&, iR&, k&
Const fR& = 10 'Dòng dau
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("DU LIEU NHAP")
eRow =...