エクセルで同じ名前の人が同じ列にくるように並べ替えたい

エクセルで
A　　　B　　　C　　　　　A　　　　B　　　C
山田　鈴木　　小林　　　　山田　　山田　
鈴木　長谷川　藤田　　　　鈴木　　鈴木　　鈴木
佐藤　山本　　鈴木　　　　佐藤　　佐藤　
田中　佐藤　　田中　　→　田中　　田中　　田中
小林　山田　　山本　　　　小林　　　　　　小林
藤田　　　　　　　　　　　藤田　　　　　　藤田
長谷川　　　　　　　　　　長谷川　長谷川
山本　　　　　　　　　　　山本　　山本　　山本

というように並び替えたいんですが、どうすればいいですか？
あまり関数は詳しくないんですが、教えてください。

No.2 回答者： tom04 回答日時： 2018/05/16 13:44

こんにちは！

別列表示で良いのでしょうか？

仮にB・C列をD・E列に表示する場合は
D1セルに
=IF(COUNTIF(B:B,$A1),$A1,"")

という数式を入れ隣りのE1セルまでフィル＆コピー　→　そのまま下へフィル＆コピー！

こんな感じではどうでしょうか？

※　そのままB・C列に表示したい場合は関数では無理なのでVBAになります。
一例です。

Sub Sample1()
Dim i As Long, j As Long
Dim myStr As String

For j = 2 To 3
For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
myStr = myStr & Cells(i, j) & ","
Next i
Columns(j).ClearContents
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If InStr(myStr, Cells(i, "A")) > 0 Then
Cells(i, j) = Cells(i, "A")
End If
Next i
myStr = ""
Next j
End Sub

※　関数・VBAどちらにしてもA列にないデータがB・C列にあっても
表示されません。m(_ _)m

この回答へのお礼

出来ました！！
なんか感動です！
手作業でやってたら時間もかかるし、絶対にミスが出ると思っていたので
本当に助かりました。
VBAのほうもぜひ参考にさせて頂きます！
ありがとうございましたm(_ _)m

お礼日時：2018/05/17 10:45

No.1 回答者： かわごえ 回答日時： 2018/05/16 10:44

並べ替えにルールはありますか？

「山田」が先頭で「山本」が最後尾なのは何故でしょう？

並べ替えの順番表があるとか？
元の表のA列が基本？

この回答へのお礼

A列が基本です。
よろしくお願いします。

お礼日時：2018/05/16 11:08