Em cảm ơn thầy nhiều. Chúc thầy buổi tối vui vẻThấy mới hiểu được.
Công thức nhập như cũ.PHP:Public Function LuXuBu(ByVal Rng As Range, ByVal DK As Range) As String Dim Txt As String, Arr(), I As Long, R As Long Arr = Rng.Value: R = UBound(Arr): Txt = DK.Value For I = 1 To R If InStr(Txt, Arr(I, 1)) Then LuXuBu = LuXuBu & Arr(I, 2) Txt = Replace(Txt, Arr(I, 1), "") End If Next I LuXuBu = LuXuBu & Application.WorksheetFunction.Trim(Txt) End Function