Chào mọi người.
Nhờ mọi người giúp em 1 hàm để group những lines có cùng điều kiện lại với nhau. Ví dụ như trong file excel e đính kèm.
- Trong file đính kèm thêm hàm JoinText. Hàm này dùng để nối các chuối lại với nhau, như ví dụ ở cột A, B, C, E. A,B,C là các cột chứa các words cột E là cột kết quả khi dùng hàm JoinText. Cột "Note-Công thức" là hướng dẫn cách chạy hàm JoinText. Tham số truyền của JoinText(delimiter,TRUE, vùng_chứa_các_words_cần_ghép)
- Cột I, J, K mô tả vấn đề của em. STT và word là 2 cột input
Nếu STT giống nhau thì ghép các giá trị trong cột "Word" lại với nhau.
-Cột result là output mà e muốn ra.
Thanks mọi người.
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 = SubArr
If TypeName(tmpArr) <> "Variant()" Then
tmp = IIf(TypeName(tmpArr) = "Error", "", Trim(CStr(tmpArr)))
If IgnoreBlanks = False Or Len(tmp) Then
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = tmp
End If
Else
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
End If
Next
If n Then JoinText = Join(arr, sep)
JoinText = Replace(JoinText, "; ", ";")
JoinText = Replace(JoinText, " ;", ";")
JoinText = Replace(JoinText, ",", ";")
JoinText = Trim(JoinText)
End Function
Nhờ mọi người giúp em 1 hàm để group những lines có cùng điều kiện lại với nhau. Ví dụ như trong file excel e đính kèm.
- Trong file đính kèm thêm hàm JoinText. Hàm này dùng để nối các chuối lại với nhau, như ví dụ ở cột A, B, C, E. A,B,C là các cột chứa các words cột E là cột kết quả khi dùng hàm JoinText. Cột "Note-Công thức" là hướng dẫn cách chạy hàm JoinText. Tham số truyền của JoinText(delimiter,TRUE, vùng_chứa_các_words_cần_ghép)
- Cột I, J, K mô tả vấn đề của em. STT và word là 2 cột input
Nếu STT giống nhau thì ghép các giá trị trong cột "Word" lại với nhau.
-Cột result là output mà e muốn ra.
Thanks mọi người.
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 = SubArr
If TypeName(tmpArr) <> "Variant()" Then
tmp = IIf(TypeName(tmpArr) = "Error", "", Trim(CStr(tmpArr)))
If IgnoreBlanks = False Or Len(tmp) Then
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = tmp
End If
Else
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
End If
Next
If n Then JoinText = Join(arr, sep)
JoinText = Replace(JoinText, "; ", ";")
JoinText = Replace(JoinText, " ;", ";")
JoinText = Replace(JoinText, ",", ";")
JoinText = Trim(JoinText)
End Function
