Nếu cột mã và mục đích vay không kề nhau thì thay đổi đoạn code như sau :
Function MD(CN, R As Range, M As Range)
For i = 1 To R.Rows.Count
If R(i, 1) = CN And InStr(1, MD, M(i, 1)) = 0 Then MD = MD & Chr(10) & M(i, 1)
Next
End Function
Trong đó : CN là mã tham chiếu, R là mã...