オブジェクト（操作の対象）に対する複数の操作を簡潔に書くための構文です。

Withステートメントを使用すると、特定のオブジェクトを何度も参照する際に、コードの可読性を向上させ、処理を効率化できます。

With オブジェクト
    .プロパティ = 値
    .メソッド
End With

オブジェクト：操作対象のオブジェクトを指定

プロパティやメソッドの前に「.」を記述することで、Withステートメントに指定したオブジェクトのプロパティとメソッドとします。

【Withステートメントにセルを指定】
Sub Macro1()
    With Range("A1")
        .Value = 10
        .Activate
    End With
End Sub

WithステートメントにアクティブシートのセルA1を指定することで、ステートメント内のセルのValueプロパティとActivateメソッドのオブジェクトの記述を省略しています。

マクロを実行すると、アクティブシートのセルA1に10を代入し、アクティブにします。

【Withステートメントにワークシートを指定】
Sub Macro2()
    With Worksheets("Sheet1")
        .Name = "シート1"
        .Range("A1") = 10
    End With
End Sub

Withステートメントにアクティブブックのワークシート「Sheet1」を指定することで、ステートメント内のワークシートのNameプロパティのオブジェクトとセルA1のシートの階層構造の記述を省略しています。

マクロを実行すると、アクティブブックのワークシート「Sheet1」の名前を「シート1」に変更し、セルA1に10を代入します。

【Withステートメントにワークブックを指定】
Sub Macro3()
    With Workbooks("Book1.xlsx")
        'ワークシート「Sheet1」のセルA1に値を代入
        .Worksheets("Sheet1").Range("A1") = 100
        'ブックを上書き保存
        .Save
    End With
End Sub

Withステートメントにブック「Book1.xlsx」を指定することで、ステートメント内のワークシート「Sheet1」のブックの階層構造とブックのSaveメソッドのオブジェクトの記述を省略しています。

マクロを実行すると、ブック「Book1.xlsx」のシート「Sheet1」のセルA1に100を代入し、ブックを上書き保存します。