Excel localizar e substituir: prefixar um número para todas as linhas que contenham números em negrito em uma coluna

Question

Eu tenho uma pasta de trabalho do Excel. Uma das colunas tem números como 439857, 2139, 32, 5943, etc. Apenas números aleatórios. Alguns deles têm estilo de fonte em negrito.

Gostaria de acrescentar um único número a todos os números com tipo de fonte em negrito nessa coluna.

Isso é possível e como?

Exemplo

Coluna original:

Coluna A

548976

434

5867

1845

7

468345

Resultado desejado após localizar substituir:

Coluna A

2548976

2434

5867

21845

7

468345

2 foi adicionado à frente dos números em negrito.

    

Answer 1

Experimente esta pequena macro:

Sub dural()
   Dim r As Range, rng As Range
   Set rng = Intersect(ActiveSheet.UsedRange, Range("A:A"))

   For Each r In rng
      If r.Value <> "" And r.Font.Bold = True Then
         r.Value = 2 & r.Value
      End If
   Next r
End Sub

Perceba que, como estamos analisando uma Propriedade do objeto Intervalo , este é um não-permitido para Formatação condicional ou .