• MyTextjoin 함수 만들기
    Function MyTextjoin(Rng As Range,_Optional Delimiter As String=","
    → Optional은 선택인수로 마지막 부분에만 넣을수 있다

    Dim r As Range
    Dim Result As String

    For Each r In Rng
    If r.value<>""Then
    Result=Result & r.Value & Delimiter
    End if
    Next

    MyTextjoin=left(Result,len(Result)-1)

    End Function
  • DynamicRange 함수 만들기
    → 셀에 필요한 값들만 추가해서 마지막 셀만 보고 싶을때 사용

    Function DynamicRange(WS As Worksheet,Column As String,InitRow As Long) As Range

    Dim i As Long
    Dim Address As String

    i=Ws.Range(Column & "1048576").End(xlUp).Row
    Address=Column & InitRow & ":" & Column & i

    Set Dynamicrange=WS.Range(Address)

    End Function