Chuyển dữ liệu từ cột sang dòng bằng vba excel

[binhminh1408]

Chào các anh chị,
Em có một file muốn chuyển dữ liệu từ cột sang dòng. Trong file, em có mô tả dữ liệu nguồn và kết quả mong muốn. Anh chị hỗ trợ một đoạn code để ra kết quả ạ.
Em chân thành cảm ơn.

 

[ptm0412]

thêm lệnh tăng số cột khi max> ubound(a,2) trước khi gán kết quả vào b

b có số dòng ubound(a,2), đã quá lớn rồi lại còn redim preserve e nặng lắm.
Số dòng có thể chia 2 hoặc chia 3 cho nhẹ bớt
Số cột thì người dùng tự ước lượng và cho vào. người lập trình không biết nhưng người dùng phải biết.

 

[VetMini]

b có số dòng ubound(a,2), đã quá lớn rồi lại còn redim preserve e nặng lắm.
Số dòng có thể chia 2 hoặc chia 3 cho nhẹ bớt
Số cột thì người dùng tự ước lượng và cho vào. người lập trình không biết nhưng người dùng phải biết.

Redim Preserve dùng kỹ thuật mass memory copy (copy cả cụm - do đó nó chỉ cho thay đổi chiều cuối cùng) cho nên nếu Ram lớn thì độ lớn không quan trọng mấy. Cái quan trọng là số lần thực hiện. Lệnh này buộc VBA phải lập một khoảng mới trong bộ nhớ, và bộ garbage collection sẽ phải dọn khoảng cũ. Và vì vậy sẽ nặng ký.