Đổi chỗ hai cột trong Excel với nhau

Trong Excel không có sẵn tính năng đối chỗ hai cột 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 swapcolumns()
   
    Dim xlong As Long
    If Selection.Areas.Count <> 2 Then
       MsgBox "Phai co hai vung chinh xac de doi cho." &