Sub ki307()
Dim dat As Variant
dat = Array("あ", "い", "う", "え", "お", "か", "き", _
    "く", "け", "こ", "さ", "し", "す", "せ", "そ")
    msg = ""
    For i = o To 14
        msg = msg & "(" & i & ":" & dat(i) & ")"
    Next
    MsgBox msg & Chr$(10) & Chr$(10) & "配列No７へ「a］をいれます"
    i = 7
    For j = 14 To i Step -1
        If j < 14 Then
            dat(j + 1) = dat(j)
        End If
    Next
        dat(7) = "a"
    msg = ""
    For i = o To 14
        msg = msg & "(" & i & ":" & dat(i) & ")"
    Next
    MsgBox msg
End Sub