vba如何设置合并表格标题行的字体格式

我有很多表格式是不一样的，有些表格某列前几行有合并，那么这个表有合并的前几行都是标题行。我通过如下代码实现了合并的前几行都设置为标题行，但是设置字体格式的时候只有第一行能成功设置。请问如何可以把所有标题行的字体格式都成功设置。

我现在的VBA代码如下：

aTable.Range.Cells(1).Select
        With Selection
            .SelectRow
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Rows.HeadingFormat = True
            .Font.Bold = True
            .ParagraphFormat.KeepWithNext = True
            .ParagraphFormat.KeepTogether = True

可以使用VBA代码实现此操作。以下是一个示例，该示例将所有标题行的字体格式设置为粗体：

Sub FormatHeaderRow()
    Dim rng As Range
    Dim lastRow As Long
    Dim lastCol As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

    Set rng = Range("A1", Cells(1, lastCol))
    rng.Font.Bold = True
End Sub

在上面的代码中，首先找到最后一行和最后一列，然后定义一个区域从A1到最后一列的第一行。最后，将区域的字体格式设置为粗体。

不知道你这个问题是否已经解决, 如果还没有解决的话:

• 关于该问题，我找了一篇非常好的博客，你可以看看是否有帮助，链接：VBA错误处理

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^