Cần hàm có thể gộp các kí tự từ nhiều cell thành 1 cell (1 người xem)

[vanchau3103]

Nhờ mọi người giúp mình hàm nào có thể ghép các kí tự tại các cell thành chuỗi các kí tự đó trong 1 cell không?
ví dụ: Từ ô A1:E1 có các chữ: H E L L O. Mình muốn các từ này hiện trong 1 cell vd cell A2
mình có dùng hàm CONCATENATE() nhưng nó bị giới hạn ở chỗ là số các kí tự trong các cell là không xác định. Mình viết hơi lủng củng, nên có gửi lên mọi người một file mong được giúp đỡ.

 

[ndu96081631]

Nhờ mọi người giúp mình hàm nào có thể ghép các kí tự tại các cell thành chuỗi các kí tự đó trong 1 cell không?
ví dụ: Từ ô A1:E1 có các chữ: H E L L O. Mình muốn các từ này hiện trong 1 cell vd cell A2
mình có dùng hàm CONCATENATE() nhưng nó bị giới hạn ở chỗ là số các kí tự trong các cell là không xác định. Mình viết hơi lủng củng, nên có gửi lên mọi người một file mong được giúp đỡ.

Chỉ có thể dùng VBA thôi bạn à! Vụ này đã bàn rất nhiều lần trên diễn đàn rồi

 

[vanchau3103]

Chỉ có thể dùng VBA thôi bạn à! Vụ này đã bàn rất nhiều lần trên diễn đàn rồi

code VBA dùng sao bạn, bạn có thể chỉ rõ hoặc trích nguồn đó giúp mình được không? Cảm ơn bạn nhiều .

 

[Hong.Van]

code VBA dùng sao bạn, bạn có thể chỉ rõ hoặc trích nguồn đó giúp mình được không? Cảm ơn bạn nhiều .

Ðề tài: [Help] Ghép dữ liệu từ nhiều cell vào 1 cell duy nhất

 

[ndu96081631]

Ðề tài: [Help] Ghép dữ liệu từ nhiều cell vào 1 cell duy nhất

Code ấy cũ rồi. Cái mới là thế 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

Công thức áp dụng tại D10

=JOINTEXT("",IFERROR(D8:AI8," "))

Bấm Ctrl + Shift + Enter để kết thúc
hoặc công thức trực tiếp luôn, không thông qua dòng phụ (dòng 8)

=JOINTEXT("",IFERROR(T(OFFSET($B$1,MATCH(D6:AH6,$A$1:$A$28,0)-1,))," "))

Cũng Ctrl + Shift + Enter để kết thúc
---------------------------
Lưu ý với tác giả: Đã dùng code VBA thì phải:
- Lưu file theo định dạng XLSM
- Phải biết cách Enable Macro