SEPARAR TEXTO COM FORMATO DE FORMULAS EM PARTES

Dim vetor() As String

vetor = Split([Ô]!setor1,@OU(@E(1,4,12,31,@Ou(3,1,2,3),@Ou(a,b,c)),@E(1,4,12,31))[Ô], [Ô]@[Ô])

Dim i As Integer

For i = 0 To UBound(vetor)
     MsgBox vetor(i)
Next

  
Public Function Contfor(ByVal TextoX As String, ByVal OcorrenciaX As Long, Optional ByVal ss As Long) As String
    Dim pos As Long, Ax As Long, ltx As Long, ax2 As Long, dd As Long

    lent1 = Len(TextoX)
    For Ax = 1 To lent1
        If Mid(TextoX, Ax, 1) = [Ô]@[Ô] Then pos = pos + 1
        If pos = OcorrenciaX Then
            ax2 = Ax
            GoTo tex:
        End If
    Next
    Contfor = [Ô]erro[Ô]
    Exit Function

tex:
    dd = 0: nucle = 0:
    For Ax = ax2 To lent1
        lety = Mid(TextoX, Ax, 1)
        If lety = [Ô]([Ô] Then
            nucle = nucle + 1
            If dd = 0 Then nucle0 = Ax
            dd = 1
        End If
        If lety = [Ô])[Ô] Then nucle = nucle - 1

        If nucle = 0 And dd = 1 Then
            If ss = 1 Then
                If Mid(TextoX, nucle0, 2) = [Ô](@[Ô] Then Contfor = [Ô]no[Ô]: Exit Function

                dfg = InStr(nucle0, TextoX, [Ô],@[Ô], 1) - 1
                dfg1 = InStr(nucle0, TextoX, [Ô])[Ô], 1) - 1

                If dfg < 1 Or dfg1 < dfg Then dfg = dfg1 - 1 Else dfg = dfg - 2
                dfg1 = Mid(TextoX, nucle0 + 1, dfg - ax2 - 1)
                If Right(dfg1, 1) = [Ô])[Ô] Or Right(dfg1, 1) = [Ô],[Ô] Then dfg1 = Left(dfg1, Len(dfg1) - 1)
                Contfor = dfg1
                Exit Function
            Else
                Contfor = Mid(TextoX, ax2, Ax - ax2 + 1)
            End If
            Exit Function
        End If
    Next
    Contfor = [Ô]erro[Ô]
End Function
 

[Ô]!teste,$Fixa (3),@ou(#5,%Dez,47,1)[Ô]

  
Type LPart
    Operador As String
    Formula As String
    Nucleo As String
End Type

Public Function FormuLPart(ByVal FormulaX As String, Optional ByVal OcorrenciaX As Long) As LPart
    Dim pos As Long, Ax As Long, Ax1 As Long, ltx As Long, ax2 As Long, dd As Long, posi As Long, aa As String

    OcorX = OcorrenciaX + 1
    lent1 = Len(FormulaX)
    For Ax = 1 To lent1
        aa = Mid(FormulaX, Ax, 1)
        If aa = [Ô]([Ô] Then
            If pos = 0 Then Ax1 = Ax
            pos = pos + 1
        End If
        If aa = [Ô])[Ô] Then pos = pos - 1: If pos = 0 Then ax2 = Ax: dd = dd + 1
        If dd = OcorX Then GoTo tex:
    Next
    FormuLPart.Formula = [Ô]erro[Ô]
    FormuLPart.Nucleo = [Ô]erro[Ô]
    Exit Function
tex:
    FormuLPart.Nucleo = Mid(FormulaX, Ax1 + 1, ax2 - Ax1 - 1)
    For Ax = Ax1 To 1 Step -1
        If Mid(FormulaX, Ax, 1) = [Ô]@[Ô] Then
            FormuLPart.Operador = Mid(FormulaX, Ax + 1, Ax1 - Ax - 1)
            Ax1 = Ax
            Exit For
        End If
    Next
    FormuLPart.Formula = Mid(FormulaX, Ax1, ax2 - Ax1 + 1)

End Function 

  Sub sdfadfadf2()

    Aaaa = [Ô]!q,@Ou(#2,%Semana,1,2,3)[Ô]
    Aaaa = [Ô]!q,@E(@Ou(1,2,34,@E(1,2,3)),@Ou(1,4,12,31))[Ô]
    [ô]Aaaa = [Ô]!setor1,@E(1,2,3,@Ou(1,4,12,31,@E(3,1,2,3)),@Ou(1,4,12,31))[Ô]

    Aaaa = [Ô]!Setor,$Sheet,@E(1,@Ou(2,@E(3,@ou(4),@ou(5))),@Ou(6,@E(7,@ou(@e(8),@e(9)))))[Ô]
 MsgBox FormuLPart(Aaaa).Operador
    MsgBox FormuLPart(FormuLPart(Aaaa).Nucleo, 1).Formula

End Sub