エクセルで、次のような自動入力をしたい

質問

A 　　　B　　　 C 　　 D 　　E　　・・ AA
1 田中　鈴木　佐藤　　　　　　　　　　山田
2 鈴木　山田 　　　　　　　　　　　　　海岡
3 田中　佐藤 　　　　　　　　　　　　　佐藤

というような表があり、AAの列に名前を入力したとき、
D1に「山田」、C2「海岡」と、その行に関してAA列に新規の名前が入力されたときにD1,C2に自動入力することは、VBAで簡単にできますか？
3列目には「佐藤」さんがすでいるので入力不要です。
よろしくお願いします。（マクロ初心者です）

回答No.2

kamejiro · ベストアンサー

＃１です。回答してから誤りに気付きました。訂正します。

７行目　「If i = 26 Then」　→「If j = 26 Then」です。

というわけです。

お礼

kamejiroさん、ありがとうございました。完璧＆感動です。一生懸命悩んだことがシンプルな内容のVBAでこんなにあっさりできることにも驚きです。本当にありがとうございました。

回答No.1

kamejiro

Office2003でちょっと確認してみました。

Sub テスト()
i = 1
Do Until Cells(i, 27) = ""
　　j = 1
　　flg = ""
　　Do Until flg = "END"
　　　　If i = 26 Then
　　　　　　flg = "END"
　　　　End If
　　　　If Cells(i, j) = Cells(i, 27) Then
　　　　　　flg = "END"
　　　　End If
　　　　If Cells(i, j) = "" Then
　　　　　　Cells(i, j) = Cells(i, 27)
　　　　　　flg = "END"
　　　　End If
　　　　j = j + 1
　　　　Loop
　　i = i + 1
Loop
End Sub
というようなマクロではいかがですか？。
お確かめ下さい。