Nối chuỗi (nhiều ô) theo điều kiện ? (1 người xem)

[Hoàng Nhật Phương]

Xin chào các Bạn,
Như tiêu đề OT đã nêu nhờ các bạn xem & giúp đỡ OT trường hợp trong file đính kèm này với ạ.

 

[PacificPR]

Xin chào các Bạn,
Như tiêu đề OT đã nêu nhờ các bạn xem & giúp đỡ OT trường hợp trong file đính kèm này với ạ.

Bạn thử nếu có Office2019 nhé

=TEXTJOIN("/";TRUE;IF(B4:B41>0;A4:A41&":"&B4:B41;""))

Kết thúc bằng Ctrl + Shift + Enter

 

[Hoàng Nhật Phương]

Bạn thử nếu có Office2019 nhé

=TEXTJOIN("/";TRUE;IF(B4:B41>0;A4:A41&":"&B4:B41;""))

Kết thúc bằng Ctrl + Shift + Enter

Xin chào "người anh hùng" PacificPR,
Chưa đúng Bạn ạ, ví dụ kết quả công thức của Bạn trả về chuỗi:
N1:4/N1:2100K
Nhưng OT muốn trả về là:
N1:4=2100K
OT đang sử dụng phiên bản OF365 thì không vấn đề gì nhưng tập tin sử dụng trên nhiều máy có phiên bản OF cũ (thậm trí 2007) do vậy mà "TEXTJOIN" không sử dụng được Bạn ạ.
Nhờ Bạn giúp đỡ cách làm khác ạ

 

[Phuocam]

Khéo tay một chút có thể sử dụng TEXTJOIN.

Kế quả đúng có độ dài là 180. Hahaha ...

 

[PacificPR]

Xin chào "người anh hùng" PacificPR,
Chưa đúng Bạn ạ, ví dụ kết quả công thức của Bạn trả về chuỗi:
N1:4/N1:2100K
Nhưng OT muốn trả về là:
N1:4=2100K
OT đang sử dụng phiên bản OF365 thì không vấn đề gì nhưng tập tin sử dụng trên nhiều máy có phiên bản OF cũ (thậm trí 2007) do vậy mà "TEXTJOIN" không sử dụng được Bạn ạ.
Nhờ Bạn giúp đỡ cách làm khác ạ

Bạn thử hàm này xem sao

Function Noichuoi(ByVal Delimiter As String, _
        ByVal sRng As Range, ByVal eRng As Range) As String
    Dim tmp1(), tmp2(), I As Long, Tmp(), N As Long
    Dim Dic As Object, aTmp As String
Set Dic = CreateObject("Scripting.Dictionary")
tmp1 = sRng.Value: tmp2 = eRng.Value
For I = 1 To UBound(tmp2)
    If tmp2(I, 1) <> Empty Then
        aTmp = tmp1(I, 1)
    
        If Not Dic.Exists(aTmp) Then
            N = N + 1
            Dic.Add aTmp, N
            ReDim Preserve Tmp(1 To N)
            Tmp(N) = tmp1(I, 1) & ":" & tmp2(I, 1)
        Else
            Tmp(Dic.Item(aTmp)) = Tmp(Dic.Item(aTmp)) & "=" & tmp2(I, 1)
        End If
    End If
Next I
If N Then Noichuoi = Join(Tmp, Delimiter)
End Function

 

[Hoàng Nhật Phương]

Bạn thử hàm này xem sao

Function Noichuoi(ByVal Delimiter As String, _
        ByVal sRng As Range, ByVal eRng As Range) As String
    Dim tmp1(), tmp2(), I As Long, Tmp(), N As Long
    Dim Dic As Object, aTmp As String
Set Dic = CreateObject("Scripting.Dictionary")
tmp1 = sRng.Value: tmp2 = eRng.Value
For I = 1 To UBound(tmp2)
    If tmp2(I, 1) <> Empty Then
        aTmp = tmp1(I, 1)
   
        If Not Dic.Exists(aTmp) Then
            N = N + 1
            Dic.Add aTmp, N
            ReDim Preserve Tmp(1 To N)
            Tmp(N) = tmp1(I, 1) & ":" & tmp2(I, 1)
        Else
            Tmp(Dic.Item(aTmp)) = Tmp(Dic.Item(aTmp)) & "=" & tmp2(I, 1)
        End If
    End If
Next I
If N Then Noichuoi = Join(Tmp, Delimiter)
End Function

Ùi, gần được rồi Bạn,thừa một dấu "/" (2 dấu "/" liền nhau) ở những vị trí "=0" ạ, nhờ Bạn xem tiếp ạ

 

[PacificPR]

Ùi, gần được rồi Bạn,thừa một dấu "/" (2 dấu "/" liền nhau) ở những vị trí "=0" ạ, nhờ Bạn xem tiếp ạ

Mình mới sửa lại rồi mà. Do cái N=N+1 đặt không đúng chỗ

 

[Hoàng Nhật Phương]

Mình mới sửa lại rồi mà. Do cái N=N+1 đặt không đúng chỗ

Giống y chang kết quả mẫu luôn rồi, thật ngưỡng mộ.
Cảm ơn Bạn nhiều.

 

[Hoàng Nhật Phương]

Khéo tay một chút có thể sử dụng TEXTJOIN.

Kế quả đúng có độ dài là 180. Hahaha ...

Xin chào phuocam,
Cảm ơn Bạn đã quan tâm,
Nếu đã lỡ làm rồi thì cũng phải ráng đưa lên đi Bạn

 

[huonglien1901]

Khéo tay một chút có thể sử dụng TEXTJOIN.

Kế quả đúng có độ dài là 180. Hahaha ...

=if(match(a4:a41,a4:a41,0)=match(row(a4:a41),row(a4:a41)),row(A4:a41),"")

 

[Hoàng Nhật Phương]

=if(match(a4:a41,a4:a41,0)=match(row(a4:a41),row(a4:a41)),row(A4:a41),"")

Cái này xài thế nào vậy Bạn?

 

[Phuocam]

OT đang sử dụng phiên bản OF365 thì không vấn đề gì
nhưng tập tin sử dụng trên nhiều máy có phiên bản OF cũ (thậm trí 2007) do vậy mà "TEXTJOIN" không sử dụng được Bạn ạ.
Nhờ Bạn giúp đỡ cách làm khác ạ

Không sử dụng được mà muốn xem công thức ?

Góp vui hàm tự tạo

Function MyTEXTJOIN(ByVal rng As Range) As String
    Dim arr, i As Long, ID As String, tmp As String
    arr = rng.Value
    For i = 1 To UBound(arr, 1)
        If arr(i, 2) <> 0 Then
            If arr(i, 1) <> ID Then
                tmp = tmp & "/" & arr(i, 1) & ":" & arr(i, 2)
                ID = arr(i, 1)
            Else
                tmp = tmp & "=" & arr(i, 2)
            End If
        End If
    Next
    MyTEXTJOIN = Mid(tmp, 2)
End Function

 

[huonglien1901]

Xin chào các Bạn,
Như tiêu đề OT đã nêu nhờ các bạn xem & giúp đỡ OT trường hợp trong file đính kèm này với ạ.

Có người Anh trợ giúp mình gửi câu trả lời, Bạn xem thử.
=TEXTJOIN("/",1,IF(B4:B41>0,IF(A5:A42=A4:A41,A4:A41&":"&B4:B41&"="&B5:B42,IF(COUNTIF(A4:A41,A4:A41)=1,A4:A41&":"&B4:B41,"")),""))

 

[VetMini]

...OT đang sử dụng phiên bản OF365 thì không vấn đề gì nhưng tập tin sử dụng trên nhiều máy có phiên bản OF cũ (thậm trí 2007) do vậy mà "TEXTJOIN" không sử dụng được Bạn ạ.
Nhờ Bạn giúp đỡ cách làm khác ạ

Cách chính thức để có thể dùng trên nhiều phiên bản là dùng cột phụ. Kiên nhẫn thêm cột phụ cho đến bao giờ làm được.
VBA không phải là giải pháp. Đối với chủ quan của bạn, 2003, 2007, 2019 là ba phiên bản. Đối với tôi, xls, xlsx, xlsm cũng là ba phiên bản.