Заключение переменной строки значений скобками в более крупную строку, содержащуюся в одной ячейке

но если есть простая формула, отлично

Не совсем, но в Office 365 мы можем комбинировать формулы, чтобы получить желаемый результат:

=MAP(A1:A2, 
 LAMBDA(a,
     REDUCE(a,SEQUENCE(LEN(a)-LEN(SUBSTITUTE(a,"!",))),
     LAMBDA(r,_,
LET(x,MID(r,FIND("!",r),LEN(r)),
    y,TOROW(HSTACK(FIND({" ","(",";",","},x),LEN(x)+1),2),
IFERROR(
        SUBSTITUTE(
                   REPLACE(r,
                           MIN(y+FIND("!",r)-1),
                           ,
                           ")"),
                   "!",
                   "NOT(",
                   1),
        r))))))

По сути, он проверяет, сколько раз ! встречается в исходной текстовой строке, чтобы установить количество итераций для сокращения, которое я объявил как _, поскольку оно используется для итераций, но больше нигде не вызывается внутри функции. Сама исходная текстовая строка объявляется как r.

Итерация Мы ищем первый найденный ! в строке r и находим ближайший ,),;,,-символ или конец строки после первого найденного ! (в зависимости от того, что наступит раньше), добавляем ) после него и заменяем этот первый счетчик. ! с NOT(. Если вышеперечисленные ошибки, сохраните r, если нет, замененный/замещенный r станет новым r и повторите итерацию _ раз.

Я использовал MAP, чтобы зациклить формулу на нескольких ячейках одновременно, но вы можете заменить часть MAP/LAMBDA на LET(a,A1,REDUCE(.., чтобы при необходимости она работала с одной ячейкой.

Если вы находитесь на бета-канале, вы можете использовать:

=REGEXREPLACE(A1:A2,"!(\w+)","NOT($1)")

Вы можете попробовать эту UDF (пользовательскую функцию) и использовать ее на листе как =myReplace(A1), где ячейка A1 содержит исходную строку.

Функция есть;

Function myReplace(myRange As Range) As String
    Dim regExp As Object
    
    Set regExp = CreateObject("VBScript.RegExp")
    
    regExp.IgnoreCase = True
    regExp.Global = True
    regExp.Pattern = "!([A-Z0-9]*)"
    
    myReplace = regExp.Replace(myRange.Text, "NOT($1)")

    Set regExp = Nothing
End Function

Решение без регулярных выражений:

Function exclamToNot(s As String) As String

    Dim found As Boolean
    Dim i As Integer
    Dim c As String
    Dim t As String
    
    Const terminators As String = ");, "
    
    
    For i = 1 To Len(s)
    
    c = Mid(s, i, 1)
    
 ' Check for exclamation mark
 
    If c = "!" Then
        found = True
        t = t & "not("
        
    ' Check for end of string controlled by exclamation mark
    
    Else
        If found And InStr(terminators, c) > 0 Then
            found = False
            t = t & ")" & c
            
        ' Normal character
        
        Else
            t = t & c
        End If
    End If
            
    Next i
    
    ' Add final bracket if we have reached end of string after exclamation mark
    
    If found Then t = t & ")"
    
    exclamToNot = t

End Function

Мне было интересно, можете ли вы использовать ту же самую логику в формуле листа. Кажется, это работает нормально:

=LET(
    c, MID(s, i, 1),
    terminators, ";,) ",
    IF(
        i > LEN(s),
        IF(found, ")", ""),
        IF(
            c = "!",
            "NOT(" & Repex(s, TRUE, i + 1),
            IF(
                AND(found, ISNUMBER(FIND(c, terminators))),
                ")" & c & Repex(s, FALSE, i + 1),
                c & Repex(s, found, i + 1)
            )
        )
    )
)

называется как

=repex(A1,false,1)

и сохранен как лямбда, поэтому в диспетчере имен это выглядит так:

Function ConvertString(s As String) As String
    With CreateObject(Class: = "VBScript.RegExp")
        .Pattern = "!([A-Z0-9]{1,})"
        .Global = True
        ConvertString = .Replace(s, "NOT($1)")
    End With
End Function