Sub Macro1()

'

' Macro1 Macro

'

'

Dim inputStr As String

Dim myMsg As String

Dim a As String

Dim b As String

Dim c As String

Dim d As String

Dim e As String

inputStr = InputBox("名前を入力してください")

'---個々のアドレスを「,」で区切って配列に代入

myArray = Split(inputStr, ",") '---(1)

a = myArray(0)

b = myArray(1)

c = myArray(2)

d = myArray(3)

e = myArray(4)

ActiveCell.Value = a

Selection.Offset(0, 1).Select

ActiveCell.Value = b & "test "

' Move 1 cell down:

Selection.Offset(1, -1).Select

End Sub