엑셀 VBA 가로 세로 바꾸기~

[엑셀 VBA 가로 세로 바꾸기]

엑셀 VBA 제작 주문받고 있는 청년군입니다~^^ 

국민전화번호가 될 010-3761-1487 날려드리면서~~

 

 가끔 업무를 하다보면 가로로 쭉~ 나열되있는 데이터를

1	2	3	4	5

 

요렇게~ 세로로 쭈~욱 나열하시고 싶으실때가 있죠??

1
2
3
4
5

자~ 갑시다~~

 

엑셀을 여시고~

Alt + F11을 눌러주세요~~

삽입 > 모듈 을 눌러주시고~

Sub 무빙()
i = 1
j = 2
    Do Until Cells(i, j) = ""
        Cells(j, i) = Cells(i, j)
        Cells(i, j) = ""
        j = j + 1
    Loop
End Sub

죠 위에 놈을 긁어 붙여만 주시면 끝~~~

 

 

지금까지 엑셀 VBA로 가로 세로 바꾸기 였습니다 ^^