1/ Nối chuỗi:
Public Function Noi(Rng As Range) As String
Dim Cll As Range
For Each Cll In Rng
Noi = Noi & Cll.Value
NextPublic Function Dem(Rng As Range) As Long
Dim Cll As Range, Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
For Each Cll In Rng
If Application.WorksheetFunction.CountIf(Rng, Cll) > 1 Then
If Not Dic.Exists(Cll.Value) Then
Dic.Add Cll.Value, ""
Dem = Dem & Cll.Value
End If
End If
Next
Set Dic = Nothing
End Function
Function JoinText(ByVal Sep As String, ByVal IgnoreBlanks As Boolean, ParamArray sArray()) As String
Dim tmpArr, SubArr, Arr(), Item, n As Long, tmp As String
On Error Resume Next
For Each SubArr In sArray
tmpArr = IIf(IsArray(SubArr), SubArr, Array(SubArr))
For Each Item In tmpArr
tmp = IIf(TypeName(Item) = "Error", "", Trim(CStr(Item)))
If IgnoreBlanks = False Or Len(tmp) Then
n = n + 1
ReDim Preserve Arr(1 To n)
Arr(n) = tmp
End If
Next
Next
If n Then JoinText = Join(Arr, Sep)
End Function
14)
