エクセルです。

マトリクスで表示すればいいのでは？
縦が苗字、横が名前で表になってればいいのでしょ。

ちょっと、条件から逸脱するので、コメントで。
上の方がおっしゃられるように、マトリクス表示が楽かと。。

①　１行目の上に空行挿入　(左端の灰色部分の【１】を右クリックでｉボタン押下
②　Ｂ列の値を全て選択、切り取り（Ctrl+x
③　Ｂ１セルを選択して、形式を選択してはりつけで行列を入れ替えるにチェックを入れてＯＫボタン押下
④　Ｂ２に【=$A2&" "&B$1】この式を入れる。
⑤　Ｂ２を選択し、コピー　(Ctrl+c
⑥　苗字と名前に囲まれている部分全てを選択して、ペースト(Ctrl+V

思い付きですので、他にもあるかもしれませんね。。　(^^;

マトリクスでやればできるじゃん。と思って解答書き終わったところで、すでにコメントに書かれてることに気づきました^^;
多分これが一番楽ですよね。

皆様コメントなどありがとうございます。
結局、コピーしてなんだかんだやってたら出来ましたので、終了させていただきました。
エクセルを全然わかっていなかったので。。。お勉強します。
ありがとうございました。

コメント欄に回答書くかなぁ...

INDIRECT 関数使って、「質問の通り」の回答を書いたのに開いてもらえずショック・・・（笑）
でも、質問の意図をくみ取って、いちばんスマートな回答がいいですよね。そういう意味で、マトリクスが最善だったのかも。

たとえば、結果だけが欲しいのであれば・・・

Dim arrFirstName As Variant
Dim arrLastName As Variant

arrFirstName = Array("花子", "太郎", "次郎")
arrLastName = Array("山田", "田中", "斉藤", "本田")

Dim i As Integer
Dim j As Integer
Dim cell As String
Dim value As String


For i = 0 To UBound(arrLastName)
　　For j = 0 To UBound(arrFirstName)
　　　　cell = Chr(Asc("C") + i) & (j + 1)
　　　　value = arrLastName(i) & " " & arrFirstName(j)
'セルに直接値代入
'　　　　Range(cell).FormulaR1C1 = value
　　　　Debug.Print cell & "=" & value
　　Next j
Next i

というのも、ありかも。

って、目的が達成してしまえば、興味ないですかね・・・。
「同じ目的」を「異なる手段」で見たり試したりすることで、ノウハウってたまっていくと思いますよ。それが、「お勉強」だとおもうんだけどなぁ...

老婆心ながら...
（まぁ回答を書いているほうも自己満足の部分や再認識するきっかけをもらっていたりすることも大きいすが・・・）