EXCEL VBA データの並べ替え

質問

EXCEL VBAを利用して、【Sheet1】を【Sheet2】へ並べ替えるようにしたいのですが、可能でしょうか？
【Sheet2】について、「No.」と「ファイル名」の並べ方は決まっています。
コードウィンドウ(VBAの文法)で「No.＝ファイル名」を定義したい。
例えば、「1=EFGH」、「2=　」、「3=ABCD」、「90＝IJKL」のように。

説明がわかりづらいかもしれませんが、ご不明がありましたらご連絡下さい。
よろしくお願いいたします。

★イメージ★

【Sheet1】※データ受信（元データ）
　　　　　 Ａ　　 │　Ｂ　│　Ｃ　│ Ｄ　 (列)
　　　┌─────┼───┼───┼───
　　１│ファイル名│会社名│部署名│件数
　　　├─────┼───┼───┼───
　　２│ＡＢＣＤ　│Ａ社　│Ｓ部　│12345
　　３│ＥＦＧＨ　│Ｂ社　│Ｔ部　│23456
　　４│ＩＪＫＬ　│Ｃ社　│Ｕ部　│34567
　　：│　 ：　　 │　：　│　：　│ ：
　　91│ＭＮＯＰ　│Ｚ社　│Ｙ部　│99999
　 (行)　

【Sheet2】※並べ替えた後
　⇒　　Ａ│　　Ｂ　　│　Ｃ　│　Ｄ　│ Ｈ　 (列)
　　　┌─┼─────┼───┼───┼───
　　１│No│ファイル名│会社名│部署名│件数
　　　├─┼─────┼───┼───┼───
　　２│１│ＥＦＧＨ　│Ｂ社　│Ｔ部　│23456
　　３│２│　　　　　│　　　│　　　│　　　←ブランク
　　４│３│ＡＢＣＤ　│Ａ社　│Ｓ部　│12345
　　：│：│　 ：　　 │　：　│　：　│ ：
　　91│90│ＩＪＫＬ　│Ｃ社　│Ｕ部　│34567
　 (行)
　　　　　└───────┬────────┘
　　　　　　　　　　　　マクロ実行で表示される。

回答No.1

higekuman · ベストアンサー

VBAよりも、VLOOKUP関数を使ったほうが、手間がかからないと思うのですが、VBAが希望ですか？

VBAでやるなら、【Sheet1】のA列に対して、Findメソッドで目的のファイル名を探し、そこからOffsetプロパティを利用してその行の他の値を【Sheet2】のそれぞれのセルに書き込めば良いです。

お礼

大変ヒントになりました。
VBAをこだわりませんが、目的によって合っているものを検討しています。
色々検討してみましたところ、VLOOKUP関数の方が合っており解決できました。
ありがとうございました！

回答No.2

n-jun

＞【Sheet2】について、「No.」と「ファイル名」の並べ方は決まっています。
事前にデータがあると言う事でしょうか？

事前にあればそれぞれのセルに数式を代入し、値に変換してもいいかもしれませんけど。

事前になければ並べ替える定義はどこから受けるのか？で回答が変わりそう。

お礼

はい、事前にデータがあります。
セルに数式を入れた方がいいですね。
VLOOKUP関数を利用することで解決することができました。
ありがとうございました。