Sub test()
Dim wRange As Range, oRange As Range, Cell As Range, oArea As Range
Dim S As String
On Error Resume Next
Set wRange = Selection.SpecialCells(xlCellTypeFormulas)
If Err = 0 Then
on error goto 0
    For Each Cell In wRange
        For Each oArea In Cell.DirectPrecedents.Areas
        If oArea.Count > 1 Then
        D = oArea
        ReDim d1(1 To UBound(D, 2)), d2(1 To UBound(D, 1))
        For i = 1 To UBound(D, 1)
            For j = 1 To UBound(D, 2)
                d1(j) = IIf(IsEmpty(D(i, j)), 0, D(i, j))
                If Not IsNumeric(d1(j)) Then d1(j) = """" & d1(j) & """"
            Next
            d2(i) = Join(d1, ",")
        Next
        S = "{" & Join(d2, ";") & "}"
            For i = 0 To 1
                For j = 0 To 1
    '                Debug.Print oArea.Address(-i, -j)
    '                cell.Formula = Replace(cell.Formula, oArea.Address(-i, -j, s)
    '                cell.Replace What:=oArea.Address(-i, -j) , Replacement:=s, LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
                    wRange.Replace What:=oArea.Address(-i, -j), Replacement:=S, LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
                
                Next
            Next
        End If
        Next
    Next
    End If
End Sub

Sub test1()
Dim wRange As Range, oRange As Range, Cell As Range, oArea As Range
Dim Seps As Variant, Sep As Variant
Seps = Array("=", ",", "+", "-", "/", "*", "&", "(", ")", "<", ">")
Dim F As String, S As String, args As Variant, arg As Variant
On Error Resume Next
Set wRange = Intersect(Selection, Cells.SpecialCells(xlCellTypeFormulas))
If Err = 0 Then
On Error GoTo 0
    For Each Cell In wRange
        F = Cell.Formula
        For Each Sep In Seps
            F = Replace(F, Sep, Chr(1))
        Next
        args = Split(F, Chr(1))
        For Each arg In args
            If InStr(arg, ":") > 0 Then
                arg = Trim(arg)
                On Error Resume Next
                Set oArea = Range(arg)
                If Err = 0 Then
                    On Error GoTo 0
                    If oArea.Count > 1 Then
                        Set Check = Intersect(Cell.DirectPrecedents, Range(arg))
                        If Not Check Is Nothing Then
                            If Check.Count = Range(arg).Count Then
                                D = oArea
                                ReDim d1(1 To UBound(D, 2)), d2(1 To UBound(D, 1))
                                For i = 1 To UBound(D, 1)
                                    For j = 1 To UBound(D, 2)
                                        d1(j) = IIf(IsEmpty(D(i, j)), 0, D(i, j))
                                        If Not IsError(d1(j)) Then
                                            If Not IsNumeric(d1(j)) Then d1(j) = """" & d1(j) & """"
                                        End If
                                    Next
                                    d2(i) = Join(d1, ",")
                                Next
                                S = "{" & Join(d2, ";") & "}"
                        '                Debug.Print oArea.Address(-i, -j)
                                        Cell.Formula = Replace(Cell.Formula, arg, S)
                        '                cell.Replace What:=oArea.Address(-i, -j) , Replacement:=s, LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
                                        'wRange.Replace What:=arg, Replacement:=S, LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
                            End If
                        End If
                    End If
                End If
            End If
        Next
    Next
    End If
End Sub