Znajdź i zamień Excela: wstaw liczbę do wszystkich wierszy zawierających pogrubione liczby w kolumnie

Mam skoroszyt programu Excel. Jedna z kolumn ma liczby takie jak 439857, 2139, 32, 5943 itd. Po prostu liczby losowe. Niektóre z nich mają jednak odważny styl czcionki.

Chciałbym wstawić pojedynczy numer do wszystkich liczb z pogrubioną czcionką w tej kolumnie.

Czy to możliwe i jak?

Przykład

Oryginalna kolumna:

Kolumna A

548976

434

5867

1845

7

468345

Pożądany wynik po znalezieniu zamień:

Kolumna A

2548976

2434

5867

21845

7

468345

2 z przodu dodano pogrubione cyfry.

Wypróbuj to małe makro:

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

Należy zauważyć, że ponieważ jesteśmy patrząc na własności części klasy obiektu, jest to no-go za formatowanie warunkowe lub znaków formatowania.