WeekdayLife/excel

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

2016. 11. 17.



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

 

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

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

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

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

 

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

 

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

데이터 셀 순서 거꾸로 뒤집기(바꾸기) 얼마전, 엑셀VBA를 활용해서 데이터 셀 순서 거꾸로 뒤집기(바꾸기) 내용을 쓴적이 있다.이번에는 함수를 활용해서 해보자. [VBA로 데이터 셀 순서 뒤집기]

sunnybong.tistory.com

 

 

sample

 

 

 

[코드 샘플]

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