Hỏi cách di chuyển 1 vùng chọn?

[nginh]

Mình muốn sử dụng thao các trên áp dụng cho cả với Rowns nữa nhưng mình sửa Code như sau ko đc:
Sub Mselect1()
Selection.Offset(, Selection.Rowns.Count).Select
Selection.Copy
End Sub
Vậy phải sửa ntn nhỉ?

Bạn sửa chỗ màu đỏ thành
Selection.Offset(Selection.Rows.Count).Select

 

[huaductiep]

Cảm ơn b nhé. Mình làm dc rồi