excel 2016 valor de troca automaticamente para = “* valor *” em outra célula

Question

Eu tenho que trocar o valor em uma célula para ="\*value\*"

Essa é a única maneira que encontrei para tornar o trabalho com fórmulas =countif e =sumif .

No momento, a única solução que encontrei é digitar ="**" manualmente e isso é um desastre. Existe alguma outra solução para este problema?

    

Answer 1

Primeiro, acenda as células que você deseja processar e execute essa macro curta:

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

Antes:

edepois:

EDIT#1:

Sevocêquiserosasteriscosnafórmula,useisso:

Subqwerty()DimrAsRange,DQAsStringDQ=Chr(34)ForEachrInSelectionr.Formula="=" & DQ & "*" & r.Value & "*" & DQ
    Next r
End Sub

que produz: