VBA로 TEXTJOIN 함수 구현

안녕하세요!

이미 오빠두 사이트에 TEXTJOIN가 추가기능으로 있는 것을 알고 있지만

공부할겸 혼자 뚜까뚜까 하면서 만들어보고 싶어서 얼추.. 만들어보았으나

한 부분에서 막혀서 어떻게 해야할지 모르겠네용 ㅠㅠㅠ

선배님들의 조언이 필요합니다!

===

질문은 아래와 같습니다!

=TEXTJOIN_test(" / ",TRUE,A1:A10)

위와 같은 식으로 하면 정상적으로 작동을 하지만

=TEXTJOIN_test(" / ",TRUE,A1,A10)

=TEXTJOIN_test(" / ",TRUE,"오빠두","엑셀")

이런식으로 범위가 아닌 ,로 구분하여 입력하면 VALUE 에러가 뜨는 상태입니다.

아마 인수에 대한 변수 선언을 RANGE로 해서 그런거 같은데

해당 부분을 어떻게 해야지 텍스트도 가능하고 RANGE도 가능한지 모르겠네용 ㅠㅠ..

===

제가 만든 코드는 아래와 같습니다!

Function TEXTJOIN_test(delimiter As String, ignore_blanks As Boolean, text_range As Range) As String

Application.Volatile

Dim text As Range
Dim text_num As Long

text_num = 0

For Each text In text_range

If ignore_blanks = True Then '공백 무시할 때 진행

If VBA.IsEmpty(text.Value) = False Then

If text_num = 0 Then

TEXTJOIN_test = text.Value

Else

TEXTJOIN_test = TEXTJOIN_test & delimiter & text.Value

End If

text_num = text_num + 1

End If

ElseIf ignore_blanks = False Then '공백 감안할 때 진행

If text_num = 0 Then

TEXTJOIN_test = text.Value

Else

TEXTJOIN_test = TEXTJOIN_test & delimiter & text.Value

End If

text_num = text_num + 1

End If

Next

End Function