Excel найти и заменить: добавьте число ко всем строкам, которые содержат жирный шрифт в столбце

Question

У меня есть книга Excel. В одном из столбцов есть такие числа, как 439857, 2139, 32, 5943 и т.д. Просто случайные числа. У некоторых из них есть смелый стиль шрифта.

Я хотел бы добавить один номер ко всем числам с жирным шрифтом в этом столбце.

Это возможно и как?

пример

Исходная колонка:

Столбец А

548976

434

5867

1845

7

468345

Желаемый результат после поиска заменить:

Столбец А

2548976

2434

5867

21845

7

468345

2 был добавлен в начале жирным шрифтом.

Answer 1

Попробуйте этот маленький макрос:

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

Обратите внимание, что, поскольку мы смотрим на свойство объекта Range , это не требуется для условного форматирования или символьного форматирования.