如何在 Excel 中加粗包含 ** 的单元格并删除所有 *

Question

如何在 Excel 中加粗包含**（并删除所有 *）的单元格？

Answer 1

这里是 go。 它遍历活动工作表中的所有单元格：

Sub checkStars()
Dim Cell As Range

For Each Cell In ActiveSheet.Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address)
    If InStr(Cell.Value2, "**") > 0 Then
        Cell.Font.Bold = True
        Cell.Value2 = Replace(Cell.Value2, "**", "")
    End If
Next Cell
End Sub