例 コード Sub arraytest() Dim myArray As Variant Dim myHensu myArray = Array(1, 3, 6, 10) For Each myHensu In myArray Cells(myHensu, 1) = myHensu Next myHensu End Sub 実行結果 類似例① コード：Arrayをわざわざ別にせず、ForEachの場所で定義。 …