対象セルの文字列に決まった文字列を連結する

関数もいいけどマクロでささっとセルの文字列の変更をするときに使いました。
（また使う機会あるかな？？）

Option Base 1
 Sub 配列()

Dim A As Variant
  Dim B(100, 5) As String

 'データが存在する領域を選択します
  Selection.CurrentRegion.Select

 '選択された範囲を取得します
  Select_Range = ActiveWindow.RangeSelection.Address
 A = Range(Select_Range).Value

'数値は適宜変えてね
 For i = 1 To 20 
 B(i, 2) = "あ" & A(i, 2) & "あ"
 'MsgBox B(i, 2)

Next

 Range("H1:L10000") = B

End Sub

EXCEL VBA