khongnhienttt
Thành viên hoạt động



- Tham gia
- 15/7/15
- Bài viết
- 137
- Được thích
- 33



Mình có dãy số từ a1 đến a5 và cần ghép lại phân cách bằng dấu “,” , mình dung công thức mảng lấy được các giá trị cần lấy ra rồi, nhưng tới bước ghép chúng lại bằng hàm CONCATENATE thì không được, cám ơn các bạn
View attachment 144753
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
=JoinText(", ",A1:A5)


