Hình như code của bạn là của bác
Bạn xem cái code này chỉnh lại 1 chút.
Public Function Gpe(ByVal Rng As Range, MaNV As String) As String
Dim sArr(), dArr(), I As Long, K1 As Long, R As Long, Rws As Long, Txt As String
sArr = Rng.Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 4)...