隐藏excel表中所有字体为加粗的单元格

Sub test()

    Dim iRng As Range, Rng As Range, mRng As Range

    Application.FindFormat.Clear

    Application.FindFormat.Font.Bold = True

    With ActiveSheet.UsedRange.SpecialCells(2)

        Set Rng = .Find(what:="", SearchFormat:=True)

        Set mRng = Rng

        fds = Rng.Address

        Do

            Set mRng = Union(mRng, Rng)

            Set Rng = .Find(what:="", after:=Rng, SearchFormat:=True)

        Loop While Not Rng Is Nothing And fds <> Rng.Address

        mRng.NumberFormatLocal = ";;;"

    End With

End Sub