paste vào cột đã có dữ liệu (2 người xem)

[phamdanghung2306]

Xin chào các bạn!!! mình là thành viên mới mình có vấn đề muốn hỏi như sau.
Mình có cột A có dữ liệu là 1,2,3,4,5 và 1 nút Di Chuyển ở sheet 1
Cột A có dữ liệu là a,b,c ở sheet 2
Làm thế nào để cut dữ liệu ở cột A của Sheet 1 paste vào cột A của Sheet 2 để cột A của Sheet 2 có dữ liệu là a,b,c,1,2,3,4,5 chỉ bằng thao tác là ấn vào nút Di Chuyển. Mọi người giúp đỡ mình rất gà về VBA, Thanks

 

[nhapmon]

Bạn thử đạon code này thử

Sub rangemove()


Sheets(1).Select
Range("A1:A5").Cut
Sheets("Sheet2").Select
LR = Range("A" & Rows.Count).End(xlUp).Row+1
Range("A" & LR).Select
ActiveSheet.Paste
End Sub

nhưng hình như bạn phải để nó trong module chứ hả? để trong sheet nó không chịu chạy thì phải

 

[phamdanghung2306]

Cảm ơn bạn nhập môn!! nhưng làm theo code của bạn mỗi khi mình ấn nút Di Chuyển thì ở cột A của Sheet 2 lại bị mất 1 ô ở cuối cùng, bạn có cách nào khắc phục được không, thanks

 

[nhapmon]

hihi, công thêm một dzô chổ LR. bạn xem cho vui thôi code mình viết rừng lắm...hihihi

 

[phamdanghung2306]

Mình làm được rồi, thanks bạn nhé. Diễn dàn này thật là hay và bổ ích