시트에 정의된 함수를 수집하는 함수

Function UFC_(Optional N = "発行01", Optional S = "")   ' UsedRange Function Collect

    Set WS = Worksheets(N)

    For Each A In WS.UsedRange
        F = A.Formula

        If Left(F, 1) = "=" And InStr(F, "(") > 0 Then
            B = A.Address(False, False)
            S = CC(S, B, F, "|")
        End If
    Next A
    S = Left(S, Len(S) - 1)
    S = Split(S, "|")
    With WorksheetFunction
        S = .Sort(.Transpose(S))
    End With
    UFC_ = S
End Function

Function CC(ParamArray AR())
    On Error Resume Next
    Dim S: S = ""
    Dim I: For I = 0 To UBound(AR)
       S = S & AR(I)
    Next I
    CC = S
End Function