Question

我正在尝试在粗体单元格之间设置一系列单元格。以下是我到目前为止的情况：

With Worksheets("FC01.RPT")
.Cells(.Rows.Count, 1).End(xlUp).Offset(2) = "Individual Rate Guest"

我没有使用＆＃34; Individual Rate Guest＆＃34;，而是如何编写它以便查找粗体格式？

谢谢！

Answer 1

无论内容如何，您都可以在工作表的E列中找到前两个粗体单元格（偏移以创建范围）。如果您想要特定内容的粗体文字，可以用文本替换*。如上所述，如果要查找所有粗体单元格，则需要创建循环。

Sub FindBoldCells()

    Dim boldcell As Range
    Dim boldcell2 As Range

    Application.FindFormat.Clear

    Application.FindFormat.Font.Bold = True

    With Worksheets("FC01.RPT")

        Set boldcell = .Range("E:E").Find("*", SearchFormat:=True).Offset(1, 0)

        Set boldcell2 = .Range("E:E").Find("*", After:=boldcell, SearchFormat:=True).Offset(-1, 0)

    End With

End Sub

搜索粗体格式化单元格

1 个答案: