Thống kê nhân viên y tế từ bảng chấm công

[vstien]

Mình đang làm VBA, nhờ các bạn hỗ trợ giúp. Mình đang muốn tổng hợp từ bảng chấm công, theo dữ liệu gốc ở trên, dữ liệu chuyển sang sheet2 sắp xếp lại theo ngày.
Có bạn nào hỗ trợ giúp mình với

 

[BuiQuangThuan]

Mình đang làm VBA, nhờ các bạn hỗ trợ giúp. Mình đang muốn tổng hợp từ bảng chấm công, theo dữ liệu gốc ở trên, dữ liệu chuyển sang sheet2 sắp xếp lại theo ngày.
Có bạn nào hỗ trợ giúp mình với

Thử code này coi nào

Sub ABC()
    Dim Arr(), Res(), i&, j&, K&
    Arr = Sheet1.Range("A1:AH12").Value
    ReDim Res(1 To UBound(Arr) * UBound(Arr, 2), 1 To 4)
    For i = 2 To UBound(Arr)
        For j = 4 To UBound(Arr, 2)
            If Arr(i, j) <> Empty Then
                K = K + 1
                Res(K, 1) = Arr(i, 2)
                Res(K, 2) = Arr(i, 3)
                Res(K, 3) = Arr(1, j)
                Res(K, 4) = Arr(i, j)
            End If
        Next
    Next
    Sheet2.Range("A2:D10000").ClearContents
    Sheet2.Range("A2").Resize(K, 4).Value = Res
End Sub

 

[VetMini]

Thử code này coi nào
...

Cái này thì pí vịt tê bồn chứ code kiếc chi cho mệt.

 

[Hoàng Tuấn 868]

Cái này thì pí vịt tê bồn chứ code kiếc chi cho mệt.

Cứ làm Pivot table rồi lưu đuôi .xlsm thôi anh.

 

[BuiQuangThuan]

Cứ làm Pivot table rồi lưu đuôi .xlsm thôi anh.

Như chú @VetMini và anh nói . Em làm thử pivottable mà chưa biết làm thế nào để bố cục được nó ra theo ý muốn.

 

[Hoàng Tuấn 868]

Như chú @VetMini và anh nói . Em làm thử pivotable mà chưa biết làm thế nào để bố cục được nó ra theo ý muốn.

Chỗ xanh xanh này thiếu 1 chữ "t" nhé.

 

[BuiQuangThuan]

Chỗ xanh xanh này thiếu 1 chữ "t" nhé.

Ghi nhận. Em sai rồi

 

[VetMini]

Như chú @VetMini và anh nói . Em làm thử pivottable mà chưa biết làm thế nào để bố cục được nó ra theo ý muốn.

Tôi quên. Dữ liệu bảng này ghi theo kiểu crosstab.
Số liệu thì ghi thành text.

Chịu thua. Loại rác này tôi không thích động não.
(nếu phải làm việc thì tôi dùng Power Query chỉnh sửa nó trước. Cho vào Data Model. Tha hồ Power Pivot)

 

[Nhattanktnn]

Tôi quên. Dữ liệu bảng này ghi theo kiểu crosstab.
Số liệu thì ghi thành text.

Chịu thua. Loại rác này tôi không thích động não.
(nếu phải làm việc thì tôi dùng Power Query chỉnh sửa nó trước. Cho vào Data Model. Tha hồ Power Pivot)

Bài này pivot table được bác ạ, nhưng kéo 31 ngày hơi mệt

 

[VetMini]

Bài này pivot table được bác ạ, nhưng kéo 31 ngày hơi mệt

Dùng Power Query unpivot nó được.
Mấy hàm mới của 365 cũng có thể làm được.