Archive for 4月 12th, 2022

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

火曜日, 4月 12th, 2022

Sub ラベルを一括出力()

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

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

End Sub

officeqa.net
 
【VBAの配列】値の一括代入と高速処理 - オフィスのQ&A
https://officeqa.net/vba-hairetu/

説明わかりやすい

vbanobuhinko.com
配列データを一括出力する – VBAの部品庫
https://vbanobuhinko.com/配列データを一括出力する/

一括出力

Posted in VBA | No Comments »