Hướng dẫn chuyển lọc dữ liệu theo cột và chuyển thành dòng. (1 người xem)

[elpis]

Em chào các Anh Chị.
Hiện em có file excel như đính kèm.
Trong sheet1 em có bảng dữ liệu cột theo ngày vào dữ liệu được điền vào theo từng cột.
Trong sheet2 em muốn sắp xếp lại dữ liệu theo ngày.
Hiện tại em phải lọc theo từng ngày và chép tay, nhưng dữ liệu bên sheet 1 thay đổi hàng ngày, và em phải chép tay trước nhiều ngày.
Mong các Anh Chị giúp em.

 

[phucbugis]

Em chào các Anh Chị.
Hiện em có file excel như đính kèm.
Trong sheet1 em có bảng dữ liệu cột theo ngày vào dữ liệu được điền vào theo từng cột.
Trong sheet2 em muốn sắp xếp lại dữ liệu theo ngày.
Hiện tại em phải lọc theo từng ngày và chép tay, nhưng dữ liệu bên sheet 1 thay đổi hàng ngày, và em phải chép tay trước nhiều ngày.
Mong các Anh Chị giúp em.

bạn down file, mở macro - click button Run Macro để xem kết quả.

Sub transpose()
Dim LC As Long, LR As Long
Application.ScreenUpdating = False
    Sheets("Sheet2").Range("A2:D1048576").ClearContents
    
    LC = Cells(1, Columns.Count).End(xlToLeft).Column
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For iCol = 3 To LC
        For iRow = 3 To LR
            If Cells(iRow, iCol) <> "" Then
                With Sheets("Sheet2")
                    .Cells(2 + n, 1) = Cells(1, iCol)       'ngay
                    .Cells(2 + n, 2) = Cells(iRow, 1)       'ma~
                    .Cells(2 + n, 3) = Cells(iRow, 2)       'ten
                    .Cells(2 + n, 4) = Cells(iRow, iCol)    'so lieu
                    n = n + 1
                End With
            End If
        Next
    Next


Application.ScreenUpdating = True
 
MsgBox ("xong Sub transpose")
End Sub

Link: https://www.mediafire.com/?uot8oyu9l06z52c

 

[elpis]

Em cảm ơn Anh(Chị) rất nhiều.
Anh(Chị) có thể làm cho sheet2 tự động cập nhật mà mình không cần nhất button được không?
Và nếu Anh(Chị) có thể dùng mảng để tính được không?, chứ tính trực tiếp như thế này file chạy chậm lắm.

 

[Ba Tê]

Em cảm ơn Anh(Chị) rất nhiều.
Anh(Chị) có thể làm cho sheet2 tự động cập nhật mà mình không cần nhất button được không?
Và nếu Anh(Chị) có thể dùng mảng để tính được không?, chứ tính trực tiếp như thế này file chạy chậm lắm.

Khi từ sheet khác chuyển đến sheet GPE thì code chạy

 

[baquang1984]

Kiểu nào bác cũng làm được đúng là Sư phụ VBA

 

[elpis]

Rất chân thành cảm ơn Anh Ba Tê .

Ban đầu em muốn đọc code và hiểu code nên trong file excel mô tả không đúng với bảng excel cần tính. Em cũng mới chập chững nên chưa rành lắm nên em đọc code nãy giờ vẫn chưa sửa được tương ứng với file excel của em. Nay em mong Anh thương thì giúp cho trót, em gửi lạị file excel phần Data tương ứng với file excel của em, mong Anh chỉnh sửa code giúp em.

Em cảm ơn Anh rất nhiều.

 

[Ba Tê]

Rất chân thành cảm ơn Anh Ba Tê .

Ban đầu em muốn đọc code và hiểu code nên trong file excel mô tả không đúng với bảng excel cần tính. Em cũng mới chập chững nên chưa rành lắm nên em đọc code nãy giờ vẫn chưa sửa được tương ứng với file excel của em. Nay em mong Anh thương thì giúp cho trót, em gửi lạị file excel phần Data tương ứng với file excel của em, mong Anh chỉnh sửa code giúp em.

Em cảm ơn Anh rất nhiều.

Hiểu chết liền, sheet Data 2 cột E và F đều là Code thì lấy cột nào?
Sheet GPE thì không có tiêu đề cột, lấy thằng nào để nó nằm hay ngồi ở cột nào?
Híc! Không phải ai cũng hiểu bạn muốn gì, và không phải ai cũng phải "cố hiểu" xem bạn muốn gì.
Nhờ người khác thì phải giải thích rõ ràng với biểu mẫu chuẩn chứ.
Đừng nói là "tải lại" file ở bài trước để xem nghe. Không ai lưu trữ lại file của "bá gia bá tánh" trong máy mình cho rối mắt đâu.

 

[elpis]

Dạ, do em rối quá nên có vấn đề về trình bày.
Em up lại file, Anh xem sửa giúp em.
Em cảm ơn.