excel - excel表格中应该只有一个标题

Question

我必须格式化一个excel表。它包含多个空行，在几行之后重复。新的 vb 脚本和这种类型的 excel 工作。我怎样才能做到这一点。有人可以帮我对此进行宏编码吗？？？这是快照

Answer 1

我会用 for/next 循环处理一个项目。您可以获得报告中的总行数，以便知道何时停止寻找要格式化的内容。您可以使用 if 和 end if 语句在循环中进行任何类型的测试。这是一个更改第一列中任何数据格式的示例。

Option Explicit
Sub Format_Report()

Dim Nbr_of_Sheets As Integer
Dim LastLine_Data As Long
Dim Loop_Ctr As Long
Dim LastLine_Plug_Code As Long

Application.ScreenUpdating = False

Nbr_of_Sheets = ActiveWorkbook.Sheets.Count

Sheet1.Select  ' Always select sheet 1 no matter what the name
Range("A1").Select
LastLine_Data = Cells(Rows.Count, "A").End(xlUp).Row
For Loop_Ctr = 1 To LastLine_Data
    If Cells(Loop_Ctr, 1).Value <> "" Then

        With Cells(Loop_Ctr, 1)
            .Font.Bold = True
            .Font.Name = "Arial Black"
            .Font.Size = 14
        End With

    End If
Next Loop_Ctr
Application.ScreenUpdating = True

End Sub