[땡큐엑셀vba & 엑셀매크로] 특정 문자 갯수 구하기-사용자정의함수

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=279834709
'특정문자 갯수 구하기
'
'source by 땡큐엑셀vba & 엑셀매크로
'
'사용자정의함수
'rng1 : 검색범위
'rng2 : 검색어
Function 검색어카운트(rng1 As Range, rng2 As Range)
    
    카운트 = 0
    검색어 = rng2
    
    '루프
    For Each c In rng1
        'inStr내장함수를 사용하여 찾는값이 있는지 확인
        If InStr(1, c, 검색어) > 0 Then
            '찾는값이 있는경우 카운트증가
            카운트 = 카운트 + 1
        End If
    Next
    
    검색어카운트 = 카운트


End Function

검색단어갯수구하기-사용자정의함수-땡큐엑셀vba.xlsm

0.04MB