変数にまとめて代入 シートへ出力

Sub ラベルを一括出力()

Const ラベル出力基点 As String = "A1"
Dim ラベル名() As Variant
ラベル名 = Array("No.", "シート名", "メモ", "処理")

Range(Range(ラベル出力基点), Range(ラベル出力基点).Offset(0, UBound(ラベル名))) = ラベル名

End Sub


説明わかりやすい


一括出力