[엑셀 VBA] Split을 사용한 텍스트 나누기

예전에 포스팅한 [TextToColumns]를 써서 텍스트 나누기가 정석이긴 하지만

Data가 많을 때는 이상하게 오래 걸린다

 

Data가 많을 때 쓰는 코드가[Split]인데 이걸 배열과 적절하게 섞어서 써야

속도가 빠르다.

 

일단 Split의 표현식은 위와 같다. 두 개만 알면 된다.

 

배열 as String = Split ( Data, "구분자") # 구분자 Default 값은 빈 공간 ""이다.

예시를 보자

 

위 Data들을 Split 할 건대

1. 빈 공간을 기준으로 Split

2. "대리"라는 글자를 기준으로 Split 할 거다.

 

코드는 아래와 같다.

 

 

너무 간단해서 설명은 따로 안 하겠다.

 

여기서 [Ubound]는 Numbering을 나타낸다. 엑셀에서 배열은 기본적으로 0부터 시작하니

+1을 해줘야 숫자가 맞다.