Lấy ngày 1 tây và ngày 29 ra 2 ô khác nhau (1 người xem)

[maiemveanhnhe]

Xin được giúp đỡ, em có 1 cuốn lịch gồm nhiều ngày khác nhau vậy xin lấy ra những ngày 1 tây và 29 tây ra cho 2 ô khác nhau, ngày 30 và 31 thì khỏi. Cảm ơn nhiều

 

[ndu96081631]

Xin được giúp đỡ, em có 1 cuốn lịch gồm nhiều ngày khác nhau vậy xin lấy ra những ngày 1 tây và 29 tây ra cho 2 ô khác nhau, ngày 30 và 31 thì khỏi. Cảm ơn nhiều

Lấy thế nào? Bạn tự điền bằng tay trực tiếp vào file tôi xem thử

 

[ChanhTQ@]

Tại [J3] bạn lập công thúc: =DATE(YEAR(C3),MONTH(C3),1)

Ô bên fải liền kè, thay vì con số 1 bạn thay bỡi 29

 

[Ba Tê]

Tại [J3] bạn lập công thúc: =DATE(YEAR(C3),MONTH(C3),1)

Ô bên fải liền kè, thay vì con số 1 bạn thay bỡi 29

Nếu làm như "bồ già" thì kết quả nhìn thấy "kỳ quá"
Tui thì nghĩ nó như thế này:

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long
sArr = Range([B3], [B65000].End(xlUp)).Resize(, 7).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 2)
For I = 1 To UBound(sArr, 1)
    For J = 1 To 7
        If Day(sArr(I, J)) = 1 Then dArr(I, 1) = sArr(I, J)
        If Day(sArr(I, J)) = 29 Then dArr(I, 2) = sArr(I, J)
    Next J
Next I
[J3].Resize(I - 1, 2).Value = dArr
End Sub

 

[maiemveanhnhe]

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long
sArr = Range([B3], [B65000].End(xlUp)).Resize(, 7).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 2)
For I = 1 To UBound(sArr, 1)
    For J = 1 To 7
        If Day(sArr(I, J)) = 1 Then dArr(I, 1) = sArr(I, J)
        If Day(sArr(I, J)) = 29 Then dArr(I, 2) = sArr(I, J)
    Next J
Next I
[J3].Resize(I - 1, 2).Value = dArr
End Sub

Dạ đúng rồi, cảm ơn chú nhiều.