excel - Excelシートのヘッダーは1つだけである必要があります

Question

Excelシートをフォーマットする必要があります。複数の空の行が含まれており、いくつかの行の後にヘッダーが繰り返されています。新しい at 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