텍스트 글자별로 나누기
엑셀 기본기능에 텍스트 나누기 기능이 있다.
실무에서 아직 쓴적은 없지만, 강력한 기능인것 같아,
코드로 짜봤다.
매크로로 녹화해서 봤더니, 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
