Thay đổi cột gán kết quả từ cột cuối lên cột đầu

[sep_hatxel]

Mình có file excel: Sheet1 là CSDL, SheetAB là kết quả. Khi chạy macro thì kết quả sẽ dán sang sheetAB lần lượt từ cột B cho đến cột cuối. Nay mình mong GPE xem thay đổi code như thế nào ở phần gán kết qu : để kết quả dán sang sheetAB sẽ đảo ngược lại : kết quả cột cuối trước kia nay được đưa lên đầu tiên dán vào cột B, kết quả gần cuối thứ 2 trước kia nay được đưa lên dán vào cột C, … cứ như vậy kết quả đầu tiên cột B trước kia nay được đưa về cột cuối cùng. Mong sự giúp đỡ của các bạn. Xin chân thành cảm ơn !

 

[Quang_Hải]

Tạo thêm 1 code tạo số thứ tự vào 1 cột nào đó, sau đó dùng lệnh sort thì mọi thứ sẽ được đảo ngược thôi.

 

[huuthang_bd]

Mình có file excel: Sheet1 là CSDL, SheetAB là kết quả. Khi chạy macro thì kết quả sẽ dán sang sheetAB lần lượt từ cột B cho đến cột cuối. Nay mình mong GPE xem thay đổi code như thế nào ở phần gán kết qu : để kết quả dán sang sheetAB sẽ đảo ngược lại : kết quả cột cuối trước kia nay được đưa lên đầu tiên dán vào cột B, kết quả gần cuối thứ 2 trước kia nay được đưa lên dán vào cột C, … cứ như vậy kết quả đầu tiên cột B trước kia nay được đưa về cột cuối cùng. Mong sự giúp đỡ của các bạn. Xin chân thành cảm ơn !

Bạn sửa dòng này

.Range("B4").Offset(, k - 1).Resize(s, 1) = ArrKQ1

Thành dòng này

.Range("B4").Offset(, socot - k - 1).Resize(s, 1) = ArrKQ1

Trong code của bạn tôi thấy bạn tạo và gán giá trị cho ArrKQ2 và ArrKQ3 nhưng không sử dụng kết quả của 2 mảng này. Nếu không cần thì bạn bỏ đi để cải thiện tốc độ code.

Tạo thêm 1 code tạo số thứ tự vào 1 cột nào đó, sau đó dùng lệnh sort thì mọi thứ sẽ được đảo ngược thôi.

Đảo cột chứ có phải đảo dòng đâu mà sort hả bạn.

 

[ndu96081631]

Đảo cột chứ có phải đảo dòng đâu mà sort hả bạn.

Đảo cột cũng sort được mà Thắng
Có điều là Quang Hải mô tả chưa đúng. Lý ra phải nhập số thứ tự vào 1 dòng nào đó rồi sort dữ liệu Left to Right giảm dần theo cột STT này

 

[sep_hatxel]

Cảm ơn các Thầy rất nhiều ạ!