Nhờ các bạn viết giúp em đoạn VBA chuyển lại dữ liệu trong sheet nhật ký (1 người xem)

[tranvanhung2009]

Trong sheet Nhat ky mình đã chuyển nội dung công việc của các công việc theo từng ngày.
Bây giờ mình muốn chuyển dữ liệu lại như sheet Chuyen lai nhat ky để tiện việc kiểm tra số liệu cũng như chèn nội dung vào các biên bản khác.
Kính mong các bạn giúp mình

 

[PacificPR]

Trong sheet Nhat ky mình đã chuyển nội dung công việc của các công việc theo từng ngày.
Bây giờ mình muốn chuyển dữ liệu lại như sheet Chuyen lai nhat ky để tiện việc kiểm tra số liệu cũng như chèn nội dung vào các biên bản khác.
Kính mong các bạn giúp mình

Bạn thử xem có đung không nha

 

[tranvanhung2009]

Bạn thử xem có đung không nha

Đoạn VBA này chỉ load được 1 ngày thôi bạn ạ.
Các ngày còn lại nó chưa đưa sang được
Cái này mình nghĩ dùng dic thì sẽ hay hơn. Nhưng kiến thức VBA của mình thì kém lắm

 

[Ba Tê]

Đoạn VBA này chỉ load được 1 ngày thôi bạn ạ.
Các ngày còn lại nó chưa đưa sang được
Cái này mình nghĩ dùng dic thì sẽ hay hơn. Nhưng kiến thức VBA của mình thì kém lắm

Sao phải cần Dic ?
Nếu sheet "Nhat ky" đã sắp xếp các ngày liên tục nhau thì như vầy cũng được mà:

Public Sub S_GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Tem As Long
With Sheets("Nhat ky")
    sArr = .Range("A4", .Range("A4").End(xlDown)).Resize(, 5).Value
End With
ReDim dArr(1 To UBound(sArr) * 2, 1 To 5)
For I = 1 To UBound(sArr)
    If sArr(I, 1) <> Tem Then
        Tem = sArr(I, 1)
        K = K + 1: R = K
        dArr(K, 1) = Tem
    End If
        K = K + 1
        For J = 2 To 5
            dArr(K, J) = sArr(I, J)
        Next J
    dArr(R, 3) = dArr(R, 3) + sArr(I, 3)
Next I
Sheets("GPE").Range("A5").Resize(K, 5) = dArr
End Sub

Tên Sheet kết quả là "GPE", bạn muốn tên gì thì sửa lại.

 

[vanle33]

Trong sheet Nhat ky mình đã chuyển nội dung công việc của các công việc theo từng ngày.
Bây giờ mình muốn chuyển dữ liệu lại như sheet Chuyen lai nhat ky để tiện việc kiểm tra số liệu cũng như chèn nội dung vào các biên bản khác.
Kính mong các bạn giúp mình

1) Sheet "Nhat ky" bạn đã sắp xếp (thủ công hoặc code) theo thứ tự từng ngày? Vậy thì làm thủ công còn nhanh hơn để có thể biến thành sheet "Chuyen lai Nhat ky" = cách xóa những ngày lặp lại của các dòng công việc. Việc xóa này chỉ làm cho vài trăm ngày là xong
2) Còn quan điểm của tôi: Bạn muốn viết Nhật ký thi công thì tối thiểu bạn phải có ngày bắt đầu và ngày kết thúc của 1 công việc. Rồi từ đó dùng cách thủ công hay code để liệt kê thành Nhật ký thi công.

 

[PacificPR]

Đoạn VBA này chỉ load được 1 ngày thôi bạn ạ.
Các ngày còn lại nó chưa đưa sang được
Cái này mình nghĩ dùng dic thì sẽ hay hơn. Nhưng kiến thức VBA của mình thì kém lắm

Mình nhầm. bạn xem lại xem