Function NoiSL(rng As Range) As String
Dim r As Long, tmp As Variant
If rng.Columns.Count <> 2 Then Exit Function
tmp = rng.Value
For r = 1 To UBound(tmp, 1)
NoiSL = NoiSL & tmp(r, 1) & " [" & tmp(r, 2) & "], "
Next r
NoiSL = Left(NoiSL, Len(NoiSL) - 2) 'Kết quả khác với yêu cầu vì bỏ 2 ký tự cuối "[SIZE=3][COLOR=#ff0000], [/COLOR][/SIZE]". Nếu không cần bỏ 2 ký tự này thì xóa dòng này đi.
End Function
Bạn xem file đính kèm nhé!
Function NoiSL(rng As Range) As String
Dim r As Long, tmp As Variant
If rng.Columns.Count <> 2 Then Exit Function
tmp = rng.Value
For r = 1 To UBound(tmp, 1)
If tmp(r, 1) <> NullString Then NoiSL = NoiSL & tmp(r, 1) & " [" & tmp(r, 2) & "], "
Next r
End Function
Lỗi chỗ này nè:
Function NoiSL(rng As Range) As String
Dim r As Long, tmp As Variant
If rng.Columns.Count <> 2 Then Exit Function
tmp = rng.Value
For r = 1 To UBound(tmp, 1)
If tmp(r, 1) <> [COLOR=#ff0000]NullString[/COLOR] Then NoiSL = NoiSL & tmp(r, 1) & " [" & tmp(r, 2) & "], "
Next r
End FunctionNếu là "dân chơi" thì mời nghiên cứu code này:
Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
Dim aTmp, arr(), Item, tmp As String
Dim i As Long, n As Long
'On Error Resume Next
For i = LBound(Arrays) To UBound(Arrays)
aTmp = Arrays(i)
If Not IsArray(aTmp) Then aTmp = Array(aTmp)
For Each Item In aTmp
If TypeName(Item) <> "Error" Then
tmp = CStr(Item)
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = tmp
End If
Next
Next
If n Then JoinText = Join(arr, Delimiter)
End Function
