VBA 엑셀 한 셀에 있는 문자열 한 글자씩 추출하는 방법

프로그래밍에 경험이 있으신 분들은 

Split 이라는 메소르를 알고 계시나요?

 

만약 자신은 처음 들어봤다 하시는 분은 간단하게

프로그래밍에서 문자열을 나누거나 쪼개는 여러 가지 방법이 있지만 그중

Split은 문자열을 나누는 메소드구나 생각하시면 됩니다. (가볍게 인식하는 정도로 충분합니다.)

 

예로 들어서 파이썬의 경우입니다만 밑에처럼 문자열을 쪼개서 추출할 수 있습니다.

[Python]

string = '나는 너무 섹쉬해'
splitStr = string.split()
print(splitStr)
['나는', '너무', '섹쉬해']

 

어떤 느낌인지 감이 잡히시나요?

 

 

저는 일본에서 SI일을 하고 있는 사원 나부랭이입니다.

현장에서 업무적으로 엑셀을 써야 하는 일이 생겼고 그것은

대량의 엑셀 데이터를 조작하는 일이었습니다. 그래서 엑셀의 기본적인 기능을 쓰기보다는

 

VBA를 써서 해결을 해야 하는 상황이었죠

 

제가 닥쳤던 상황은 엑셀의 한셀에 적혀있는 문자열을 한 글자씩 추출을 해야 했습니다.

 

VBA 내가 해보았던 시도(실패)

　Dim str() As String
　str = Split("공감추천댓글부탁", "")

실패했습니다.

 

배열의 크기가 하나인 상태로 글자가 한 글자씩 추출되지 않았습니다.

 

그럼 이걸 어떻게 해야 하나 하면

스트링의 크기만큼 배열 공간을 먼저 잡아주고

Mid함수를 써서 한 글자씩 추출해서 배열에 집어넣습니다.

 

Sub strToArr()
　Dim str as String
　Dim strArr() As String
　Dim i As Long
 
  str = "공감추천댓글부탁"
　ReDim strArr(Len(str) - 1)
　For i = 0 To UBound(strArr)
　　strArr(i) = Mid(str, i + 1, 1)
　Next i
End Sub

 

 

디버깅 모드로 strArr배열을 확인해 보면 배열에 글자 하나씩 들어가 있는 걸 확인할 수 있습니다.