이 기사에서는 텍스트 문자열에서 n 번째 단어를 추출하는 방법을 배웁니다. VBA 코드를 사용하여 UDF를 만들어 문자열에서 n 번째 단어를 찾습니다.

아래 단계를 따라야합니다 :

개발자 탭을 클릭하십시오. 코드 그룹에서 Visual Basic을 선택하십시오

img1

  • 삽입을 클릭 한 다음 모듈

img2

  • 이렇게하면 새 모듈이 생성됩니다.

모듈에 다음 코드를 입력하세요

함수 ExtractNthWord (x는 문자열, y는 정수)

Dim word () As String

Dim wordCount As Long

단어 = VBA.Split (x, “”)

wordCount = UBound (word)

If wordCount <1 Or (y-1)> wordCount Or y <0 Then

ExtractNthWord = “”

그렇지 않으면

ExtractNthWord = 단어 (y-1)

End If

끝 기능

img3

새 UDF 수식이 ExtractNthWord라는 이름으로 생성됩니다. 두 개의 매개 변수가 있습니다. 첫 번째는 데이터를 추출해야하는 조회 셀이고 두 번째는 n 번째 숫자입니다.

다음은 데이터의 스냅 샷입니다.

img4

  • A 열에서 2 ^ nd ^ 단어를 검색하려면 공식은

= ExtractNthWord (A2,2)

img5

  • 마찬가지로 3 ^ rd ^ 단어를 추출하려면 공식은

= ExtractNthWord (A2,3)

img6

  • 헬퍼 셀을 사용하여 두 번째 인수의 값을 저장할 수 있습니다. 이렇게하면 결과를 더 빨리 볼 수 있습니다.

  • 여기서 헬퍼 셀은 D1로 출력으로보고 싶은 단어의 n 번째 숫자를 입력 할 수 있습니다.

img7

이제 D1 셀의 숫자 만 변경하면 결과가 자동으로 변경됩니다.