Đổi chỗ hai hàng trong Excel với nhau

Trong Excel không có sẵn tính năng đối chỗ hai hàng mà người dùng phải sử dụng Macro , cách thức tiến hành như sau
Mở Excel
Bấm tổ hợp phím Alt-F11 , xuất hiện cửa sổ MS Visual Basic
Bấm chọn menu Insert , chọn Module và bạn Copy nội dung toàn bộ dưới đây
Sub swapRows()
   
    Dim xlong As Long
    If Selection.Areas.Count <> 2 Then
       MsgBox "Phai co chinh xac hai vung the doi cho." &