Nhờ Tổng hợp nội dung vào 1 ô theo ngày có sẵn (1 người xem)

[ducky_dhkt]

Yêu cầu: lập hàm dò ngày theo thứ tự trong cột A tương ứng với ngày cột Date trong sheet dulieu, lấy nội dung rời trong sheet dulieu để thành nội dung tổng hợp vào ô này; ví dụ xem kết quả ngày 28/02/2011. (Nếu ko có thì để trống). Xin cám ơn.

 

[xuan.nguyen82]

Yêu cầu: lập hàm dò ngày theo thứ tự trong cột A tương ứng với ngày cột Date trong sheet dulieu, lấy nội dung rời trong sheet dulieu để thành nội dung tổng hợp vào ô này; ví dụ xem kết quả ngày 28/02/2011. (Nếu ko có thì để trống). Xin cám ơn.

Làm cho bạn cách này:

Public Sub Xuan()
Dim sArr(), dArr(), I As Long, K As Long
With Sheets("Du lieu")
    sArr = .Range(.[C1], .[C65000].End(xlUp)).Offset(, -1).Resize(, 2).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 2)
For I = 2 To UBound(sArr, 1)
    If sArr(I, 2) <> sArr(I - 1, 2) Then
        K = K + 1
        dArr(K, 1) = sArr(I, 2)
        dArr(K, 2) = "* " & sArr(I, 1)
    Else
        dArr(K, 2) = dArr(K, 2) & Chr(10) & "* " & sArr(I, 1)
    End If
Next I
With Sheets("Tong hop")
    .[A3:B65000].ClearContents
    .[A3].Resize(K, 2).Value = dArr
End With
End Sub

Bạn mở file, bấm GPE.