[엑셀VBA] 텍스트 글자별로 나누기

텍스트 글자별로 나누기

엑셀 기본기능에 텍스트 나누기 기능이 있다.

실무에서 아직 쓴적은 없지만, 강력한 기능인것 같아,

코드로 짜봤다.

 

매크로로 녹화해서 봤더니, ARRAY로 프로그래밍되서,

나의 실력으로는 커스터마이징이 어려울 거 같아,

FOR NEXT로 노가다. ..

 

 

ROW와 COLUMN이 동시에 되도록 했다.

사실. AUTOFIT 기능이 더 흥미롭다.

 

 

[코드샘플]

 

Sub txt_separation()

Dim k As String

Dim text_Len As Integer

Dim myTXT As String

Dim N As Integer

k = InputBox("텍스트입력")

text_Len = Len(k)

For N = 1 To text_Len

    myTXT = Mid(k, N, 1)

    Cells(1, N).Value = myTXT

    Cells(N, 1).Value = myTXT

Next N

ActiveWindow.DisplayGridlines = False

With Cells

    .EntireColumn.AutoFit

    .EntireRow.AutoFit

End With

End Sub