Excelの分割、統合について

Public Function Bunkai(aCell As String, prefix As String, position As Long) As Variant
    Bunkai = CVErr(xlErrNA)
    If Left(aCell, Len(prefix)) <> prefix Then Exit Function
    Dim result As String
    Dim ary As Variant: ary = Split(aCell, ",")
    Dim index As Long: index = LBound(ary) + position - 1
    If position = 1 Then
        result = ary(index)
    Else
        result = prefix & ary(index)
    End If
    Bunkai = result
End Function

Public Function Renketsu(aRange As Range) As Variant
    Renketsu = CVErr(xlErrNA)
    Dim row As Range, col As Range, cell As Range
    Dim result As String
    Dim maxLen As Long, maxString As String
    For Each col In aRange
        For Each cell In col
            If maxLen < Len(cell.Value) Then
                maxLen = Len(cell.Value)
                maxString = CStr(cell.Value)
            End If
        Next
    Next
    Dim matchLen As Long
    Dim nof As Boolean
    matchLen = 1
    Do While (matchLen < maxLen) And (Not nof)
        For Each col In aRange
            For Each cell In col
                If Left(maxString, matchLen) <> Left(cell, matchLen) Then nof = True
            Next
        Next
        If Not nof Then matchLen = matchLen + 1
    Loop
    matchLen = matchLen - 1
    If matchLen < 1 Then Exit Function
    Dim nos As Boolean
    result = Left(maxString, matchLen)
    For Each col In aRange
        For Each cell In col
            If Not nos Then
                nos = True
                result = result & Right(cell, Len(cell) - matchLen)
            Else
                result = result & "," & Right(cell, Len(cell) - matchLen)
            End If
        Next
    Next
    Renketsu = CVar(result)
End Function

=LEFT(A1,FIND(",",A1)-2)&TEXTSPLIT(SUBSTITUTE(A1,LEFT(A1,FIND(",",A1)-2),""),",")

=LEFT(A1,LEN(A1)-1)&SUBSTITUTE(TEXTJOIN(",",TRUE,A1:B3),LEFT(A1,LEN(A1)-1),"")

=IF(LEFT(A1,LEN(A1)-1)=IFERROR(LEFT(INDIRECT("R[-1]C[-1]",FALSE),LEN(INDIRECT("R[-1]C[-1]",FALSE))-1),""),INDIRECT("R[-1]C",FALSE)&","&RIGHT(A1,1),A1)