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

Question

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

我现在的VBA代码如下：

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

Answer 1

可以使用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到最后一列的第一行。最后，将区域的字体格式设置为粗体。