VBA　一次元配列をセルに代入する

 

 

一次元配列をセルに代入する

 

Sub test1()
   ' 配列をセルに代入する

 

    Dim myStr(3) As String

    myStr(0) = "VBA"
    myStr(1) = "EXCEL"
    myStr(2) = "OUTLOOK"
    myStr(3) = "WORD"
    
    Dim i As Long
    

    '  セルA１：A4に代入する
    For i = 0 To 3
        Cells(i + 1, 1) = myStr(i)
    Next i


End Sub

 

 

 

 

Sub test2()
   ' 配列をセルに代入する

 

    Dim myStr(3) As String

    myStr(0) = "VBA"
    myStr(1) = "EXCEL"
    myStr(2) = "OUTLOOK"
    myStr(3) = "WORD"
    
    Dim i As Long
    

'  セルA１：D1に代入する
    For i = 0 To 3
        Cells(1,i + 1) = myStr(i)
    Next i


End Sub

 

実行結果

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事