vba 선택범위 열바꾸기

Sub 열바꾸기()

    Dim rngS As Range

    Dim arrIN As Variant

    Dim arrOUT As Variant

 

    Set rngS = Application.InputBox("바꿀 범위를 드래그하세요", Type:=8)

'    Set rngS = Selection

 

'        If rngS Is Nothing Then Exit Sub

'        If rngS.Column < 6 Or rngS.Column > 7 Then Exit sub '바꿀 열이 6열 7열 범위만 허용한다면

 

    arrIN = rngS.Columns(1)

    arrOUT = rngS.Columns(2)

    

    rngS.Columns(1) = arrOUT

    rngS.Columns(2) = arrIN

 

    MsgBox "열 바꾸기 완료"

End Sub