Nhờ anh chị giúp đỡ công thức gộp dữ liệu trong cùng 1 ngày về 1 ô (2 người xem)

[YenLV]

Yêu cầu cụ thể em ghi trên file đính kèm

 

[Ba Tê]

Yêu cầu cụ thể em ghi trên file đính kèm

Dùng VBA được không?
Kết quả để ở sheet khác cho dễ.

 

[lameco411]

Bạn dùng thử code này xem ok không nha.
Mình mới tập tành về code , xin các cao thủ chỉ dạy thêm:
Cái này là gộp những dòng theo yêu cầu chủ thớt cho những dòng liền kề nha!

Sub gopdulieu()
Dim tam As String
Dim dongbatdau As Long
Dim i As Long
Dim j As Long
Dim c As Long
Do
dongbatdau = InputBox(" Hay nhap so dong bat dau")
Loop Until dongbatdau >= 1 And dongbatdau <= Sheets("NK").Range("B" & Rows.Count).End(xlUp).Row
For i = dongbatdau To Sheets("NK").Range("B" & Rows.Count).End(xlUp).Row
c = 0
    For j = i + 1 To Sheets("NK").Range("B" & Rows.Count).End(xlUp).Row
        If Range("A" & j).Value = Range("A" & i) Or Range("A" & j).Value = "" Then
        c = c + 1
        Else
        GoTo TIEP
        End If
    Next j
TIEP:
If c = 0 Then GoTo BOQUA
    tam = "'- " & Trim(Range("B" & i).Value)
       For j = i + 1 To i + c
    If Range("B" & i).Value <> "" Then
        tam = tam & Chr(10) & "- " & Trim(Range("B" & j).Value)
    End If
    Next j
    For j = i + c To i + 1 Step -1
        Rows(j).Delete
    Next j
    Range("b" & i).Value = tam
BOQUA:
If i = Sheets("NK").Range("B" & Rows.Count).End(xlUp).Row Then Exit Sub
Next i
End Sub

 

[YenLV]

Ba Tê
Anh ơi nếu một ngày nó mà nó không có công việc, thì cột ngày vẫn có nhưng cột B không để công việc như bản em gửi đính kèm sau anh chỉnh giúp em được không ạ, em cảm ơn