Sub ConcatenateArrays()
Dim array1() As Variant
Dim array2() As Variant
Dim combinedArray() As Variant
Dim i As Long
Dim totalLength As Long
ReDim array1(1 To 31)
ReDim array2(1 To 31)
For i = 1 To 31 Step 1
array1(i) = "6月"
Next
For i = 1 To 31 Step 1
array2(i) = "7月"
Next
' 結合後の配列の長さを計算する
totalLength = UBound(array1) - LBound(array1) + 1 + UBound(array2) - LBound(array2) + 1
' 結合後の配列を作成する
ReDim combinedArray(1 To totalLength)
' array1を結合後の配列にコピーする
For i = LBound(array1) To UBound(array1)
combinedArray(i) = array1(i)
Next i
' array2を結合後の配列にコピーする
For i = LBound(array2) To UBound(array2)
combinedArray(UBound(array1) + i) = array2(i)
Next i
' 結合後の配列を1行に書き込む
Range("A10").Resize(1, totalLength).Value = combinedArray
End Sub