
2つのエクセルデータの並べ替えの方法がわかりません。
下の様なエクセルデータがあります。
A列 B列 C列 D列 E列 F列
1 A社 100 1 B社 100
2 B社 99 2 C社 99
3 C社 98 3 A社 98
4 D社 97 4 E社 97
5 E社 96 5 D社 96
データとしてはA列~C列、D列~F列がそれぞれのデータです。
B列の会社順にD列~F列を並べ替えることは可能でしょうか?
(下の表の様に並べ替えたいのですが・・・)
A列 B列 C列 D列 E列 F列
1 A社 100 3 A社 98
2 B社 99 1 B社 100
3 C社 98 2 C社 99
4 D社 97 5 D社 96
5 E社 96 4 E社 97
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは!
D~F列をB列(社名)順に並び替えしたい!というコトですよね?
コツコツ手を動かせば簡単に出来る方法として・・・
↓の画像ではG1セルに
=IF(COUNTIF($E:$E,$B1),INDEX(D:D,MATCH($B1,$E:$E,0)),"")
という数式を入れフィルハンドルでI1セルまでコピー → そのまま下へフィル&コピーしています。
そしてG~I列すべてを範囲指定 → 右クリック → コピー → D1セルを選択
→ 右クリック → 「形式を選択して貼り付け」 → 「値」を選択しOK
最後にG~I列を削除して完了です。
※ この一連の操作をVBAでやると↓のようなコードでも大丈夫だと思います。
シートモジュールです。
Sub Sample1() '//この行から
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("G:I").Insert
With Range(Cells(1, "G"), Cells(lastRow, "I"))
.Formula = "=IF(COUNTIF($E:$E,$B1),INDEX(D:D,MATCH($B1,$E:$E,False)),"""")"
.Value = .Value
.Cut Range("D1")
End With
Range("G:I").Delete
End Sub '//この行まで
こんな感じではどうでしょうか?m(_ _)m

ありがとうございます!!!
今まで500件近いデータを1つずつ並べ替えていました。
感激で涙が出そうです。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでのマクロを使ったデータの並べ替え 3 2022/12/03 18:54
- Excel(エクセル) エクセルデーターの並び替え 5 2022/08/06 09:59
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) Excel 郵便番号順に並び変えたい 同じ番号が複数あるとき 4 2022/04/28 18:35
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
- その他(Microsoft Office) Excel 2列分のDATAの並べ替え 1 2023/01/01 17:12
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセルでA列と同じ並びにB列を並び替える方法を教えて下さい
Excel(エクセル)
-
Excelで隣のセルと同じ内容に列を並べ替える方法
Excel(エクセル)
-
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
-
4
2つのエクセルのデータを同じように並べ替えたい
Excel(エクセル)
-
5
エクセルで同じ名前の人が同じ列にくるように並べ替えたい
Excel(エクセル)
-
6
EXCELで2つ以上の表で同じ項目を同じ順番に並び替える方法を教えてください。
その他(ソフトウェア)
-
7
エクセルで異なる列のデータを一致させて並び替え
Excel(エクセル)
-
8
基準となる列を参照して、別の列の順序を並び替えたい
Excel(エクセル)
-
9
EXCELで重複行の横並びについて教えて下さい
その他(Microsoft Office)
-
10
Excel A列と同じ並びにしたい
Excel(エクセル)
-
11
EXCEL関数:重複した値がある並び替えについて
Excel(エクセル)
-
12
同じ行に同じ文字列のものを並べたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
URLのリンク切れをマクロを使っ...
-
Worksheets メソッドは失敗しま...
-
VBAのFind関数で結合セルを検索...
-
DataGridViewに空白がある場合...
-
VBA キーと項目が重複する場合...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
空白セルをとばして転記
-
期限を超えた日付に警告のメッ...
-
エクセルVBA intersect colu...
-
二つのリストを比べて部分一致...
-
Changeイベントでの複数セルの...
-
【VBA】複数行あるカンマ区切り...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
VBAで指定範囲内の空白セルを左...
-
【Excel VBA】 B列に特定の文字...
-
VBAを使って検索したセルをコピ...
-
VBAで、特定の文字より後を削除...
-
エクセル 2つの表の並べ替え
-
データグリッドビューの一番最...
-
rowsとcolsの意味
-
VBAでのリスト不一致抽出について
おすすめ情報