Dùng tạm, dữ liệu phải chuẩn y mới được, chưa lường hết các tình huống nguy hiểm.
=ToadoCuoi(A3;$J$1:$L$1)
Option Explicit
'Option Base 1
Function ToadoCuoi(ToadoTruoc As Range, GiatriTang As Range)
Dim ArrToadoTruoc, ArrGiatriTang, ArrToadoCuoi
Dim i&
ArrToadoTruoc = Split(ToadoTruoc, ",")...