Copy dữ liệu có điều kiện

[sep_hatxel]

Mình có file dữ liệu mong GPE giúp đỡ: Ở sheetDULIEU: copy dữ liệu ở cột A, dán dữ liệu nối tiếp lên cột B , sau đó lại copy dữ liệu ở cột B dán nối tiếp dữ liệu ở cột C, cứ như vậy cho đến hết dữ liệu. Kết quả cuối cùng xuất sang sheetKQ. Mình làm minh hoạ cho 6 lần copy và dán dữ liệu ở sheetKQ. Mong GPE hướng dẫn cách nào nhanh nhất ạ! Xin cảm ơn!

 

[nghiaphuc]

Mình có file dữ liệu mong GPE giúp đỡ: Ở sheetDULIEU: copy dữ liệu ở cột A, dán dữ liệu nối tiếp lên cột B , sau đó lại copy dữ liệu ở cột B dán nối tiếp dữ liệu ở cột C, cứ như vậy cho đến hết dữ liệu. Kết quả cuối cùng xuất sang sheetKQ. Mình làm minh hoạ cho 6 lần copy và dán dữ liệu ở sheetKQ. Mong GPE hướng dẫn cách nào nhanh nhất ạ! Xin cảm ơn!

Code thế này chẳng hạn:
[GPECODE=vb]Sub CopyAndPaste()
Dim i As Long
For i = 2 To [IV1].End(xlToLeft).Column
Cells(65000, i).End(xlUp).Offset(1).Resize(1000).Value = Cells(1, i - 1).Resize(1000).Value
Next
End Sub[/GPECODE]

 

[sep_hatxel]

Code thế này chẳng hạn:
[GPECODE=vb]Sub CopyAndPaste()
Dim i As Long
For i = 2 To [IV1].End(xlToLeft).Column
Cells(65000, i).End(xlUp).Offset(1).Resize(1000).Value = Cells(1, i - 1).Resize(1000).Value
Next
End Sub[/GPECODE]

Cảm ơn bạn Nghĩa Phúc rất nhiều! Bạn cho mình hỏi thêm với ạ: nếu dữ liệu ban đầu tăng lên từ 5 thành 50 dòng thì mình phải sửa số liệu ở chỗ nào của code ạ? xin cảm ơn bạn!

 

[nghiaphuc]

Cảm ơn bạn Nghĩa Phúc rất nhiều! Bạn cho mình hỏi thêm với ạ: nếu dữ liệu ban đầu tăng lên từ 5 thành 50 dòng thì mình phải sửa số liệu ở chỗ nào của code ạ? xin cảm ơn bạn!

Thì bạn cứ thử nhập 50 dòng xem kết quả nó ra sao. Nếu mà kết quả vẫn ổn thì khỏi sửa.

 

[sep_hatxel]

Thì bạn cứ thử nhập 50 dòng xem kết quả nó ra sao. Nếu mà kết quả vẫn ổn thì khỏi sửa.

Vâng cảm ơn bạn, mình làm được rồi ạ!