데이터 셀 순서 거꾸로 뒤집기(바꾸기)
의외로 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
'WeekdayLife' 카테고리의 다른 글
[엑셀] 숫자를 한글로 바꾸기(계약서 금액 변경하기) NUMBERSTRING 함수 (0) | 2016.11.22 |
---|---|
[엑셀] DSum 함수 (0) | 2016.11.21 |
[엑셀] 데이터 셀 순서 거꾸로 뒤집기(바꾸기) (0) | 2016.11.18 |
[엑셀] RANK 함수 (0) | 2016.11.18 |
[엑셀] Vlookup 함수 (0) | 2016.11.18 |
[엑셀VBA] 조건부 서식 (1) | 2016.11.17 |
[엑셀VBA] VBA로 .txt 파일 생성하기 (0) | 2016.11.17 |
[엑셀VBA] 색칠된 셀의 행 삭제하기 (0) | 2016.11.17 |
[엑셀VBA] 텍스트 글자별로 나누기 (0) | 2016.11.17 |
[엑셀VBA] 시트 추가하기 (0) | 2016.11.17 |