Excel bul ve değiştir: bir sütunda kalın sayılar içeren tüm satırlara bir sayı hazırlama

Excel çalışma kitabım var. Sütunlardan birinin 439857, 2139, 32, 5943, vb. Sayıları vardır. Bazıları kalın yazı tipine sahip olsa da.

Bu sütunda kalın yazı tipi olan tüm sayılara tek bir sayı hazırlamak istiyorum.

Bu mümkün mü ve nasıl?

Örnek

Orijinal sütun:

A sütunu

548976

434

5867

1845

7

468345

Bul değiştirdikten sonra istenen sonuç:

A sütunu

2548976

2434

5867

21845

7

468345

Kalın harflerin önüne 2 eklendi.

Bu küçük makroyu deneyin:

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

Biz bakıyoruz çünkü unutmayın Mülkiyet ait Range nesnesi, bu no-go olduğunu Koşullu Biçimlendirme veya Karakter biçimlendirme.