엑셀 VBA 코드 : 두 셀의 값을 서로 맞바꿈

두 셀을 선택하여 서로 값을 맞바꿈

 

첨부파일

두 셀 값 서로 바꾸기 VBA코드.txt

0.00MB

Sub Selection_Exchange()
 
   With Selection
        If .Areas.Count = 2 Then
            DimV
            V = .Areas(1).Value
            .Areas(1).Value = .Areas(2).Value
            .Areas(2).Value = V
        End If
    EndWith
    
End Sub