Excel 查找和替换：在列中包含粗体数字的所有行前面添加一个数字

Question

我有一本 Excel 工作簿。其中一列有数字，如 439857、2139、32、5943 等。只是随机数。其中一些数字采用粗体字体样式。

我想在该列中所有粗体字体的数字前面添加一个数字。

这可能吗？如何可能？

例子

原文专栏：

A 列

548976

434

5867

1845

7

468345

找到替换后所需的结果：

A 列

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

请注意，因为我们正在查看财产的范围对象，这是不行的条件格式或者特点格式化。