
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルでA列と同じ並びにB列を並び替える方法を教えて下さい
Excel(エクセル)
-
Excelで隣のセルと同じ内容に列を並べ替える方法
Excel(エクセル)
-
2つのエクセルのデータを同じように並べ替えたい
Excel(エクセル)
-
-
4
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
5
エクセルで異なる列のデータを一致させて並び替え
Excel(エクセル)
-
6
エクセルで同じ名前の人が同じ列にくるように並べ替えたい
Excel(エクセル)
-
7
Excel A列と同じ並びにしたい
Excel(エクセル)
-
8
同じ行に同じ文字列のものを並べたい
Excel(エクセル)
-
9
エクセルの2つのシートを並び替えで連動させる方法
Excel(エクセル)
-
10
EXCEL関数:重複した値がある並び替えについて
Excel(エクセル)
-
11
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
12
並び順の違う2つのエクセル表
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
A列B列どちらにもあるのを抽...
-
C# dataGridViewの値だけクリア
-
VBAで指定範囲内の空白セルを左...
-
VBAでセルアドレスに変数を使い...
-
ファイルをフォルダに自動振り...
-
エクセル 2つの表の並べ替え
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Worksheets メソッドは失敗しま...
-
【VBA】複数行あるカンマ区切り...
-
C#で複数列をもつデータソース...
-
難問 VBA 今日の日付より前に対...
-
B列の最終行までA列をオート...
-
Cellsのかっこの中はどっちが行...
-
エクセルで結合セルがあるため...
-
【VBA】2つのシートの値を比較...
-
マクロについて。S列の途中から...
-
Changeイベントでの複数セルの...
-
エクセルで最大列を増やす
-
Excel VBA 検索した値を入力フ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
Excelで、あるセルの値に応じて...
-
VBAでセル検索から対象行のセル...
-
VBAを使って検索したセルをコピ...
-
VBAコンボボックスで選択した値...
-
B列の最終行までA列をオート...
-
Changeイベントでの複数セルの...
-
【VBA】2つのシートの値を比較...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
難問 VBA 今日の日付より前に対...
-
マクロについて。S列の途中から...
-
データグリッドビューの一番最...
-
マクロ 最終列をコピーして最終...
-
Excel VBA 他組み合わせと比較...
-
【Excel VBA】カンマと改行コー...
-
VBAで、特定の文字より後を削除...
おすすめ情報