[엑셀VBA] 데이터 셀 순서 거꾸로 뒤집기(바꾸기)

데이터 셀 순서 거꾸로 뒤집기(바꾸기)

 

의외로 DB에서 추출한 데이터가 뒤집혀 있는 경우가 많다.

대부분 경우, 엑셀 노가다로 충분하지만,

엑셀에 버튼을 만들어 놓으면 편할 수 있다.

개인적으로 VBA를 몰랐을때 처음으로 시도한 거라 애착이 가고, 회사에서 가장 많이 자주 쓰고 있는 코드이다.

 

[함수로 데이터 셀 순서 뒤집기]

[엑셀] 데이터 셀 순서 거꾸로 뒤집기(바꾸기)

 

 

 

 

 

[코드 샘플]

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