chèn dòng và copy du liệu lên dòng trên

[vndat]

Nhờ các huynh hướng dẫn viết một macro như sau: tại vị trí đặt con trỏ ta thực hiện lên insert và copy lại dữ liệu đó lên dòng trống mới được insert và xóa dữ liệu ở dòng củ.
rất cảm ơn!

 

[Quang_Hải]

Nhờ các huynh hướng dẫn viết một macro như sau: tại vị trí đặt con trỏ ta thực hiện lên insert và copy lại dữ liệu đó lên dòng trống mới được insert và xóa dữ liệu ở dòng củ.
rất cảm ơn!

Thử thế này coi sao

Sub chen_dong()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Insert
Rows(ActiveCell.Row + 1).ClearContents
End Sub

 

[vndat]

Rất cảm ơn bạn! tuy nhiên với code trên thì chỉ sử dụng được chức năng Inset chứ chưa copy được nội dung của dòng mới mới được insert để đưa lên dòng trên và xóa nội dung dòng dưới
cụ thể như sau: nếu ta có nội dung ở dòng a4 và đặt con trỏ tại dòng này ta sử dụng lệnh insert thì nội dung dòng a4 sẽ di xuống dòng a5 và ta copy dòng a5 lên lại a4 và xóa nội dung a5.

 

[vndat]

Mình chỉ muốn insert trong một hàng nhưng copy dữ liệu khoảng 1 -3 cột tính từ vị trí con trỏ chứ không phải copy nguyên hàng

 

[Quang_Hải]

Mình chỉ muốn insert trong một hàng nhưng copy dữ liệu khoảng 1 -3 cột tính từ vị trí con trỏ chứ không phải copy nguyên hàng

Muốn kiểu nào thì đưa file lên.

 

[vndat]

em gửi lên đây! anh xem có giải pháp nào tốt hơn không giúp đỡ em luôn thể

 

[Quang_Hải]

em gửi lên đây! anh xem có giải pháp nào tốt hơn không giúp đỡ em luôn thể

Bài toán trong file như thế mà đặt câu hỏi như thế.
Xem file đính kèm. Bấm qua sheet2 để xem kết quả

 

[vndat]

Rất cảm ơn bạn đã nhiệt tình!
Mình là dân cầu đường và cũng tập tành viết một số đoạn code phục vụ cho công việc của mình; mình cũng có viết một đoạn code chép text nhưng thuật toán quá tồi nên rất dài và rất chậm. Đọc xong đoạn code của bạn mình rất ngưỡng mộ.