
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
教えて!gooグレードポイントがdポイントに変わります!
dアカウント連携を行っていただくと、グレードに応じて「dポイント」が進呈されるようになります。
-
2つのエクセルのデータを同じように並べ替えたい
Excel(エクセル)
-
Excelで隣のセルと同じ内容に列を並べ替える方法
Excel(エクセル)
-
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
4
エクセルで異なる列のデータを一致させて並び替え
Excel(エクセル)
-
5
Excel A列と同じ並びにしたい
Excel(エクセル)
-
6
エクセルで同じ名前の人が同じ列にくるように並べ替えたい
Excel(エクセル)
-
7
エクセルでA列と同じ並びにB列を並び替える方法を教えて下さい
Excel(エクセル)
-
8
並び順の違う2つのエクセル表
Excel(エクセル)
-
9
EXCEL関数:重複した値がある並び替えについて
Excel(エクセル)
-
10
Excel 複数の表を並び替えしたい VBA
Excel(エクセル)
-
11
エクセルで2列の順序が違うデータの照合方法
Excel(エクセル)
-
12
同じ行に同じ文字列のものを並べたい
Excel(エクセル)
-
13
別のシートで自動的に並べ替えをしたい(エクセル)
Excel(エクセル)
-
14
エクセル 自動で別シートへ並べ替えてコピーするには?
Excel(エクセル)
-
15
エクセルで2行まとめて並び替えするには?
その他(ソフトウェア)
-
16
エクセルの並べ替えを他のシートに連動させるには?
その他(Microsoft Office)
-
17
エクセルの2つのシートを並び替えで連動させる方法
Excel(エクセル)
-
18
エクセルで2列以上のものを同時に並び替えするには
Excel(エクセル)
-
19
Excelで2つの表を1つにまとめるには?
Excel(エクセル)
-
20
EXCELで2つの表を並べ替えて1つの表に表示
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
VBA 値と一致した行の一部の列...
-
5
Excelで、あるセルの値に応じて...
-
6
Cellsのかっこの中はどっちが行...
-
7
【エクセル】最終行までコピー...
-
8
Excel VBA でテキストボックス...
-
9
エクセルVBA、特定条件で行を追加
-
10
空文字 "" ですが 空文字の意味...
-
11
複数列のコピーについて
-
12
VBAで指定範囲内の空白セルを左...
-
13
エクセルで最大列を増やす
-
14
マクロ 最終列をコピーして最終...
-
15
VBA グラフX軸の変更
-
16
エクセル 2つの表の並べ替え
-
17
列の最終行までのセルと1つ隣の...
-
18
VBA カスタムオーダーのあと...
-
19
比較して等しくなかったらセル...
-
20
期限を超えた日付に警告のメッ...
おすすめ情報
公式facebook
公式twitter