Dim tblRange As Range Set tblRange = Range("A1").CurrentRegion ' 设置边框线 tblRange.Borders.LineStyle = xlContinuous ' 设置字体居中 tblRange.VerticalAlignment = xlCenter tblRange.HorizontalAlignment = xlCenter ' 添加蓝色表头字体 tblRange.Rows(1).Font.Color = RGB(0, 0, 255) ' 设置第4列格式为M/D tblRange.Columns(4).NumberFormat = "M/D"修改這個代碼中設置表頭單元格為藍色

你可以使用以下代码修改设置表头单元格为蓝色：

Sub SetTableStyle()
    ' 获取数据范围
    Dim tblRange As Range
    Set tblRange = Range("A1").CurrentRegion
    
    ' 设置边框线
    tblRange.Borders.LineStyle = xlContinuous
    
    ' 设置字体居中
    tblRange.VerticalAlignment = xlCenter
    tblRange.HorizontalAlignment = xlCenter
    
    ' 设置表头单元格为蓝色
    tblRange.Rows(1).Font.Color = RGB(0, 0, 255)
End Sub

这段代码与之前的代码类似，只是去掉了设置第4列格式为M/D的部分，改为将表头单元格设置为蓝色。你可以将其复制到你的 VBA 项目中并运行。