한 셀의 특정 문자의 갯수를 세는 VBA

한 셀에서 여러 단어가 @, _ 등으로 구분된 경우에 이러한 문자들이 몇 번이나 나왔는지 세야 하는 경우가 있습니다.
이 때, Excel 함수로는 SUBSTITUTE를 사용하면 되지만 VBA에서는 SUBSTITUTE 함수를 사용할 수 없습니다.
대신 Replace를 사용해야 합니다.

다음은 Replace를 사용하는 예제 코드입니다.

noDivider = Len(String) - Len(Replace(String, "_", ""))

즉, 문자열의 갯수에서 문자열중 특정 문자인 "_"를 Null로 바꾼후의 길이를 빼면
전체 문자열 중 "_"의 갯수를 알 수 있는 것이지요.