Thử dùng em này và kiểm tra kỹ kết quả nha!
Sub GPE()
Dim Lr&, Arr(), i&, Res(), k&, Lc%, j&, a%
With ThisWorkbook.Sheets("Data")
Lr = .Range("A" & Rows.Count).End(xlUp).Row
Lc = .Cells(11, Columns.Count).End(xlToLeft).Column + 1
Arr = .Range(.Cells(11, 1), .Cells(Lr, Lc)).Value
ReDim Res(1 To UBound(Arr) * (Lc - 5), 1 To 7)
For i = 2 To UBound(Arr)
For j = 6 To UBound(Arr, 2) Step 2
k = k + 1
For a = 1 To 5
Res(k, a) = Arr(i, a)
Next a
Res(k, 6) = Arr(1, j)
Res(k, 7) = Arr(i, j)
k = k + 1
For a = 1 To 5
Res(k, a) = Arr(i, a)
Next a
Res(k, 6) = Arr(1, j)
Res(k, 7) = Arr(i, j + 1)
Next j
Next i
End With
If k Then
With ThisWorkbook.Sheets("KQ")
.Range("A6:G10000").Clear
.Range("A6").Resize(k, 7).Value = Res
End With
End If
MsgBox "Done"
End Sub
File dữ liệu gốc của máy chấm công là đã dạng hàng dọc rồi đó bạn. Cái hình trình bày hàng ngang là đã qua phần xử lý báo cáo. Bạn chỉ cần cắm USB, hoặc kết nối mạng truy xuất trực tiếp file gốc là được rồi.
Phần trình bày ở sheet kết quả là mình làm thủ công để minh họa kết quả mong muốn bạn ơi!
mình kiểm tra thấy kết quả đúng rồi, cảm ơn bạn nhiều nhé
Sử dụng Power Query xem sao
Bạn ơi! cho mình hỏi chút là ngoài Power Query ra thì mình xử lý bằng Power BI có được không bạn nhỉ
Cảm ơn bạn nhiều. Trong Power BI mình sẽ làm như thế nào để ra được kết quả bạn nhỉ
Hãy đọc từ tài liệu cơ bản của PowerBI, làm các ví dụ cơ bản, thì tự khắc ta có giải pháp và chuẩn bị dữ liệu thế nào. Còn nếu chưa làm các điều đó, thì mọi điều là y mới.
Mình đã thử vọc vạch thì cách làm trên Power BI có phải là như sau đúng không bạn?:
