excel表中应该只有一个Header

我必须格式化一个Excel表格。 它包含多个空行，在几行之后重复。 新的VB脚本和这种types的Excel工作。 我怎样才能做到这一点。 有人可以帮我在这个macros的编码？ 这里是快照

Answer 1

我会用for / next循环来解决一个项目。 您可以获取报告中的总行数，以便知道何时停止查找要格式化的内容。 您可以在循环中使用if和end if语句进行任何types的testing。 这里是一个例子，它改变了第一列中任何数据的格式。

 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