Trích xuất ngày làm việc từ hàng ngang thành hàng dọc (1 người xem)

[TangThanh]

Em có một bảng chấm công ngày làm việc của nhân viên; Ngày nào nhân viên có đi làm được chấm công, thể hiện số 1, ngày nào không đ làm để trống, (ngày đi làm để nằm trên hàng ngang)
giờ em cần tổng hợp theo format tên nhân viên, ngày đi làm (theo cột) như file đính kèm

em đã thử 1 vài cách, tìm trên các diễn đàn mà chưa làm được, anh chị giúp em với ạ
em cảm ơn nhiều

 

[nghiaphuc]

Em có một bảng chấm công ngày làm việc của nhân viên; Ngày nào nhân viên có đi làm được chấm công, thể hiện số 1, ngày nào không đ làm để trống, (ngày đi làm để nằm trên hàng ngang)
giờ em cần tổng hợp theo format tên nhân viên, ngày đi làm (theo cột) như file đính kèm

em đã thử 1 vài cách, tìm trên các diễn đàn mà chưa làm được, anh chị giúp em với ạ
em cảm ơn nhiều

Nếu bạn chịu xài VBA thì dùng cái này:
[GPECODE=vb]Sub TongHop()
Dim i As Long, j As Long, k As Long, Tmp, Arr()
Tmp = Sheets("Data").[A1].CurrentRegion
ReDim Arr(1 To UBound(Tmp, 1) * UBound(Tmp, 2), 1 To 4)
For j = 4 To UBound(Tmp, 2)
For i = 2 To UBound(Tmp, 1)
If Tmp(i, j) = 1 Then
k = k + 1
Arr(k, 1) = k
Arr(k, 2) = Tmp(i, 2)
Arr(k, 3) = Tmp(i, 3)
Arr(k, 4) = Tmp(1, j)
End If
Next
Next
With Sheets("Can Lam")
.[A210000].Clear
.[D2].Resize(k).NumberFormat = "dd-MMM"
.[A22].Resize(k).Value = Arr
.[A1].CurrentRegion.Borders.LineStyle = 1
End With
End Sub[/GPECODE]

 

[TangThanh]

Cảm ơn bạn NghiaPhuc, tuy nhiên mình chưa dùng VBA bao giờ, mình đã thử mở file nhưng khi mở thì không chạy ra được dữ liệu mà nó lại báo như thế này (hình đính kèm)
bạn chỉ giúp mình cách xem file nhé, nãy giờ ngồi google VBA là gì cơ mà khó hiểu quá

 

[vanle33]

Cảm ơn bạn NghiaPhuc, tuy nhiên mình chưa dùng VBA bao giờ, mình đã thử mở file nhưng khi mở thì không chạy ra được dữ liệu mà nó lại báo như thế này (hình đính kèm)
bạn chỉ giúp mình cách xem file nhé, nãy giờ ngồi google VBA là gì cơ mà khó hiểu quá

Tắt đi mở lại file rồi nhấn chữ Enable Content trên dòn màu vàng.
Chỉnh trong Option như hình

 

[nghiaphuc]

Cảm ơn bạn NghiaPhuc, tuy nhiên mình chưa dùng VBA bao giờ, mình đã thử mở file nhưng khi mở thì không chạy ra được dữ liệu mà nó lại báo như thế này (hình đính kèm)
bạn chỉ giúp mình cách xem file nhé, nãy giờ ngồi google VBA là gì cơ mà khó hiểu quá

Bạn chưa cho phép chạy Macro thì nó không chạy là đúng rồi. Bây giờ bạn làm thế này:
1. Chọn File\Options\Trust Center, nhấn nút lệnh Trust Center Settings, chọn tiếp Macro Settings và chọn 1 trong 2 tùy chọn thứ 3 hoặc 4 bên phải (chọn cái thứ 4: Enable all macros thì Excel không hỏi gì nữa nhưng hơi thiếu an toàn), nhấn 2 lần OK.
2. Tắt Excel rồi mở lại file này, bây giờ thì bạn đã có thể chạy macro rồi đấy.

 

[TangThanh]

Cảm ơn 2 anh, em đã mở được rồi
Nếu dùng công thức excel để làm thì có cách nào không ạ?