是否有VBA/宏代码用于定位和选择工作表中第一个带有粗体文本的单元格？

Sub SelectFirstBoldCell()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要搜索的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 遍历每个单元格，查找粗体文本
    For Each cell In ws.UsedRange
        If cell.Font.Bold Then
            ' 找到第一个粗体单元格后，选择该单元格并退出循环
            cell.Select
            Exit For
        End If
    Next cell
End Sub