xin giúp đỡ cách tách chuỗi ngày ra từng ngày một (1 người xem)

[kan1231]

em hiện tại cần tách chuỗi ngày ra từng ngày một như file đính kèm, nhưng chủa nghĩ được công thức
xin nhờ sự giúp đỡ của các bác/chú/cô, anh/chị trong diễn đàn ạ

 

[hoamattroicoi]

Trong khi chờ giải pháp của những bạn khác, bạn xài đỡ code này nhé. Lâu roài không viết code nên hơi cùi bắp, hihi

Sub Nhay_HMT()
Dim i As Long
Dim k As Long
Dim sArr(), dArr()
sArr = Sheet1.Range("A1:C" & Sheet1.[C65536].End(xlUp).Row).Value
ReDim dArr(1 To 1000, 1 To 2)

For i = 1 To UBound(sArr)
    For j = sArr(i, 2) To sArr(i, 3)
        k = k + 1
        dArr(k, 1) = sArr(i, 1)
        dArr(k, 2) = j
    Next
Next
If k Then
With Sheet1
    .[F2:G1000].ClearContents
    .[F2].Resize(k, 2) = dArr
End With
End If
End Sub

 

[HUONGHCKT]

em hiện tại cần tách chuỗi ngày ra từng ngày một như file đính kèm, nhưng chủa nghĩ được công thức
xin nhờ sự giúp đỡ của các bác/chú/cô, anh/chị trong diễn đàn ạ

View attachment 261766

Nếu bạn muốn dùng VBA thì thử đoạn code này. Hãy thêm dữ liệu vào và chạy thử

 

[HieuCD]

em hiện tại cần tách chuỗi ngày ra từng ngày một như file đính kèm, nhưng chủa nghĩ được công thức
xin nhờ sự giúp đỡ của các bác/chú/cô, anh/chị trong diễn đàn ạ

View attachment 261766

$44197:$44561 là từ ngày 1/1/2021 đến ngày 31/12/2021

E1 =IFERROR(AGGREGATE(15,6,ROW($44197:$44561)/(ROW($44197:$44561)>=TRANSPOSE($B$1:$B$3))/(ROW($44197:$44561)<=TRANSPOSE($C$1:$C$3)),ROWS($1:1)),"")

nhấn Ctrl+Shift+Enter

D1 =IFERROR(INDEX($A$1:$A$3,MATCH(E1,$B$1:$B$3)),"")

Nhấn Enter
Copy xuống

 

[phuongvq123]

em hiện tại cần tách chuỗi ngày ra từng ngày một như file đính kèm, nhưng chủa nghĩ được công thức
xin nhờ sự giúp đỡ của các bác/chú/cô, anh/chị trong diễn đàn ạ

View attachment 261766

tham khảo công thức cùi trong file

 

[kan1231]

em xin chân thành cảm ơn các bác nhiều ạ, dự liệu của em hơi nhiều nên chắc em sẽ chọn VBA ạ
em xin cảm ơn các bác nhiều ạ