Ghép dữ liệu ở các ô lại với nhau có đièu kiện (1 người xem)

[nasalem]

ghép dữ liệu có điều kiện
các bạn xem file đính kèm bên dưới!
Thân!!
[TABLE="width: 432"]
[TR]
[TD="align: left"][/TD]
[TD="align: left"][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2, align: left"][/TD]
[/TR]
[/TABLE]

 

[Let'GâuGâu]

ghép dữ liệu có điều kiện
các bạn xem file đính kèm bên dưới!
Thân!!
[TABLE="width: 432"]
[TR]
[TD="align: left"][/TD]
[TD="align: left"][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2, align: left"][/TD]
[/TR]
[/TABLE]

cái này phải xài vba thôi, bạn gõ tìm hàm JoinText của anh NDU

 

[nasalem]

bạn sành sỏi trong lĩnh vựa VBA còn mình thì ko biết gì về nó hết, chỉ mong tìm được công thức !

 

[Let'GâuGâu]

bạn sành sỏi trong lĩnh vựa VBA còn mình thì ko biết gì về nó hết, chỉ mong tìm được công thức !

cthuc nối chuổi chỉ có hàm CONCATENATE
nhưng nó lại kị hàm mảng
tôi chưa thấy ai có thể nối chuổi bằng mảng
==========
chưa thấy ko có nghĩa là ko có.....hihihihi

 

[nasalem]

cảm ơn bạn đã góp ý cho mình!

 

[ducdinh1987]

cái này dùng hàm mãng dò tìm xong bằng các kết quả được không nhỉ.

 

[Let'GâuGâu]

cảm ơn bạn đã góp ý cho mình!

tôi chuểng nó sang hàng ngang, bạn dùng cách gì đó nối nó lại nha

 

[doveandrose]

ủa vậy là sao ta . tự nhiên hàng biến thành cột rồi .... không có gì khác

 

[Let'GâuGâu]

ủa vậy là sao ta . tự nhiên hàng biến thành cột rồi .... không có gì khác

thì biết có nhiu đó à..........các đại ca ngứa mắt sẻ nhảy dzô.........hhihiih

 

[phulien1902]

ghép dữ liệu có điều kiện
các bạn xem file đính kèm bên dưới!
Thân!!
[TABLE="width: 432"]
[TR]
[TD="align: left"][/TD]
[TD="align: left"][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2, align: left"][/TD]
[/TR]
[/TABLE]

Bạn tham khảo Code này nhé

Sub nasalem()
    Dim a, i As Long
    With [a1].CurrentRegion
        a = .Value
        With CreateObject("Scripting.Dictionary")
            .CompareMode = 1
            For i = 1 To UBound(a, 1)
                If Not .exists(a(i, 1)) Then
                    .Item(a(i, 1)) = .Count + 1
                    a(.Item(a(i, 1)), 1) = a(i, 1)
                    a(.Item(a(i, 1)), 2) = a(i, 2)
                Else
                    a(.Item(a(i, 1)), 2) = Join(Array(a(.Item(a(i, 1)), 2), a(i, 2)), ",")
                End If
            Next
            i = .Count
        End With
        .Offset(, .Columns.Count + 2).Resize(i, 2).Value = a
    End With
End Sub

 

[nasalem]

như này ha let's gâu gâu