Giúp tôi code dịch chuyển dữ liệu trong 1 cột (1 người xem)

[hoang0569]

Tôi có dữ liệu trong 1 cột A1:A10, Giúp tôi code dịch chuyển xuống 1 hàng thành A2:A11. Xin cảm ơn

 

[hoang0569]

Cut và Paste thì nói làm gì hả bạn?

 

[hoang0569]

Tôi có 1 cột trong bảng số liệu luôn dịch chuyển lên xuống, nếu cứ cut và Paste theo bất tiện lắm nên mới cần viết code bạn ah

 

[hoang0569]

Tôi gửi File, bạn xem giúp nhé

 

[hoang0569]

Tôi gửi nhầm File, bạn xem giúp nhé

 

[khuongvietphong]

Tôi gửi nhầm File, bạn xem giúp nhé

Nếu đồng thời:
A1 =2 và A2= 1 thì sao ?

 

[phulien1902]

Thử với:

Sub ABC()
    If Range("a1") = 1 Or Range("a2") = 1 Then Range("B1:B15").Value = Range("K1:K15").Value
    If Range("a1") = 2 Or Range("a2") = 2 Then Range("B1:B15").Value = Range("K16:K30").Value
End Sub

 

[hoang0569]

Chỉ có 1 điều kiện, là A1 hoặc A2 thôi bạn ah

 

[hoang0569]

Cảm ơn các bạn nhiều, trường hợp trên xong rồi bây giờ mình muốn thêm code để dịch B1:B15 xuóng 1 hàng thành B2:B16, các bạn giúp mình nhé