1

Я должен поменять значение в одной ячейке на ="\*value\*"

Это единственный способ заставить работать формулы =countif и =sumif .

На данный момент единственное решение, которое я нашел, это набрать ="**" вручную, и это катастрофа. Есть ли другое решение этой проблемы?

1 ответ1

1

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

Sub qwerty()
    Dim r As Range, DQ As String
    DQ = Chr(34)
    For Each r In Selection
        r.Formula = "=" & DQ & r.Value & DQ
    Next r
End Sub

До:

и после:

EDIT # 1:

Если вы хотите звёздочки в формуле, используйте это вместо:

Sub qwerty()
    Dim r As Range, DQ As String
    DQ = Chr(34)
    For Each r In Selection
        r.Formula = "=" & DQ & "*" & r.Value & "*" & DQ
    Next r
End Sub

который производит:

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .