[VBA] 구분자를 기준으로 첫번째 텍스트를 반환하는 예제 (사용자 정의 함수로 실행)

엑셀에서 구분자를 기준으로 분리하는 기본 기능을 사용할때, 

한 문장속에 같은 구분자가 여러번 사용되면 가로로 너무 많이 구분되는 경우가 있습니다.

 

저의 경우 업무를 하다보면,

실제 사용하고 싶은 것은 첫번째 텍스트 분리 어절인 경우가 많아서 이럴때 사용할 수 있는 VBA 코드(사용자 정의 함수)를 적어봅니다.

 

[예제 코드]

'괄호기준으로 분리된 첫번째 구간 반환
Function 분리1(STR As String)
	Dim STR_ARR As Variant			'텍스트를 분리해 담을 배열
	STR_ARR = Split(STR, "(")		'구분자로 선택한 셀 텍스트 분리
	
    분리1 = STR_ARR(0)				'분리된 텍스트중 1번째 텍스트 리턴
End Function

 

 

모듈을 추가하고, 해당 FUNCTION 스크립트를 작성한 후,

워크시트에서 사용자 정의 함수로 사용하면 됩니다. (=분리1(A4) 같이...)