【配列】動的配列をセルに一括貼り付け

okap1104 - 2023-10-282023-10-28

CSVファイルなどの行全体をSplit関数などで動的配列として配列へ格納した場合に、セルに一括貼り付けする

Public Sub Sample()
    
    Dim varArray    As Variant
    
    varArray = Split("配列となるテキスト", ",")
    Range("A1").Resize(, UBound(varArray) + 1) = varArray
    
End Sub

6行目のUbound関数は配列の最も大きい要素数ではなく最も大きい要素番号を返すので、Resizeする際には「+1」が必要となる