Macro chuyển bảng dữ liệu thành hàng dữ liệu

Liên hệ QC

Excelpoint6688

Thành viên mới
Tham gia
29/3/20
Bài viết
11
Được thích
3
kg các bạn,
mình có một file gồm bảng dữ liệu với 500 hàng và 50 cột, giờ mình muốn chuyển thành dữ liệu với 25.000 hàng, bình thường mình làm bằng cách ghi macro nhưng với số cột ít, tận 50 cột thì ghi bị loạn mất, bạn nào giúp mình thêm code vào với
Tks
 

File đính kèm

  • vidu2.xlsx
    12.4 KB · Đọc: 8
Bạn chuyển dữ liệu thành bảng, dùng Power query load bảng , rồi dùng chức năng unpivot các cột tiền là được.
 
Upvote 0
Bạn chuyển dữ liệu thành bảng, dùng Power query load bảng , rồi dùng chức năng unpivot các cột tiền là được.
Cảm ơn bạn, Mình có biết vụ power quẻy, nhưng vẫn thích dùng code hơn, tại lập trình thì khó nhưng ai cũng dùng đc, còn cái kia chỉ mình mới dùng đc thôi :)
 
Upvote 0
Muốn sao được vậy! :D }}}}} :D
 

File đính kèm

  • GPE.rar
    18.4 KB · Đọc: 19
Upvote 0
kg các bạn,
mình có một file gồm bảng dữ liệu với 500 hàng và 50 cột, giờ mình muốn chuyển thành dữ liệu với 25.000 hàng, bình thường mình làm bằng cách ghi macro nhưng với số cột ít, tận 50 cột thì ghi bị loạn mất, bạn nào giúp mình thêm code vào với
Tks
Góp ý cho bạn:
1/ Nếu Sheet1 bạn có 50 cột thì nên có tiêu đề cột và số tiền từ cột Tiền1, Tiền2, Tiền3, ...v...v....đến Tiền50.
2/ Sheet1 có nhiều cột quá thì nên chuyển dữ liệu sang Sheet2, phần này nếu chạy code của bác SA_DQ thì sẽ ghi đè lên dữ liệu của bạn.
3/ Bạn nên giải thích cụ thể, rõ ràng là chỉ lấy dữ liệuvà bỏ qua Cell trống trong cột cột Tiền1, ...v...v....đến Tiền50, kết quả xem hình.

A_Chuyen.GIF
 
Upvote 0
Góp ý cho bạn:
1/ Nếu Sheet1 bạn có 50 cột thì nên có tiêu đề cột và số tiền từ cột Tiền1, Tiền2, Tiền3, ...v...v....đến Tiền50.
2/ Sheet1 có nhiều cột quá thì nên chuyển dữ liệu sang Sheet2, phần này nếu chạy code của bác SA_DQ thì sẽ ghi đè lên dữ liệu của bạn.
3/ Bạn nên giải thích cụ thể, rõ ràng là chỉ lấy dữ liệuvà bỏ qua Cell trống trong cột cột Tiền1, ...v...v....đến Tiền50, kết quả xem hình.

View attachment 234341
cảm ơn bạn, mình sẽ lưu ý
Bài đã được tự động gộp:

Cảm ơn bạn, ra kết quả đúng rồi, m đang học và ghi chú ra từng đoạn code
chỉ chưa hiểu chỗ
[B8].CurrentRegion.Cells.Count ra kết quả là 126, nhưng vẫn ko hiểu sao nó tính ra đc 126 :)
 
Upvote 0
. . . . , ra kết quả đúng rồi, m đang học và ghi chú ra từng đoạn code
chỉ chưa hiểu chỗ
[B8].CurrentRegion.Cells.Count ra kết quả là 126, nhưng vẫn ko hiểu sao nó tính ra đc 126 :)
Ví ở dòng 6 ta có sử dụng 4 ô; VBE sẽ coi như ta đã xài cả dòng đó (từ A6+ => I6)
Cho nên 126 => =(19-5)*9
 
Upvote 0
Web KT
Back
Top Bottom