VBA 엑셀 팁 - 선택한 셀 거꾸로 하기(반대로 뒤집기)

Sub Reverse()

    Dim SelectCells As Range

    Set SelectCells = Application.InputBox("뒤집을 셀 선택", Type:=8)

    Dim i As Integer

    Dim list As New Collection

    For i = 1 To SelectCells.Rows.Count

        list.Add SelectCells(i).Value

    Next i

    

    For i = 1 To list.Count

        SelectCells.Cells(i) = list.Item(list.Count + 1 - i)

    Next i

End Sub

먼저 거꾸로할 셀들을 선택하기 위해 Application.InputBox() 함수를 사용하여 Range변수에 담은 후,

선택한 셀의 값들을 Collection 변수에 저장한 뒤에 

선택한 셀의 각 셀 위치에 Collection 변수에 들어 있는 값을 역순으로 할당하면

값을 거꾸로 되게 할 수 있습니다. 

실행:

결과: