데이터 셀 순서 거꾸로 뒤집기(바꾸기)
의외로 DB에서 추출한 데이터가 뒤집혀 있는 경우가 많다.
대부분 경우, 엑셀 노가다로 충분하지만,
엑셀에 버튼을 만들어 놓으면 편할 수 있다.
개인적으로 VBA를 몰랐을때 처음으로 시도한 거라 애착이 가고, 회사에서 가장 많이 자주 쓰고 있는 코드이다.
[함수로 데이터 셀 순서 뒤집기]
http://sunnybong.tistory.com/41
[코드 샘플]
Sub upsidedown()
Dim i As Integer
Dim j As Integer
Dim EndRowNum As Integer
i = ActiveCell.Row
j = ActiveCell.Column
EndRowNum = ActiveCell.End(xlDown).Row - ActiveCell.Row + 1
For k = 1 To EndRowNum
Cells(i + k - 1, j + 1) = Cells(i + EndRowNum - k, j).Value
Next k
End Sub
