数値を参照した並び替え

質問

Ａ列に25364、69785、58963等、ランダムな数値が入っています。
その情報とは別に、Ｂ列「同じように数字が入っている列」、Ｃ列「関係ないテキストが入っている」、Ｄ列「同じくテキストが入っている」・・・Ｉ列まであります。

Ｂ列にＡ列と同じ数字が入っているものは、Ｂ列～Ｉ列をＡ列のその数字と同じ行のＢ列～Ｉ列に表示させたいのですが、可能でしょうか。
関数でも違っても構いません。新しいシートを使って張り替えても構いません。

わかりにくければ補足します。
宜しくお願いします。

回答No.1

web2525 · ベストアンサー

Ａ列のランダムな数字に重複はありますか？
Ｂ列にある数字は必ずＡ列に存在しますか？
最終的に形成された表の並び順に注文はありますか？

お礼

説明が足りず、申し訳ございません。

Ａ列は重複しません。
Ｂ列にある数字はＡ列にない場合もありますし、Ａ列と同じ数字が重複してある場合もあります。重複する場合は、どれか一つが表示されればいいです。
ない場合は、そのＢ列～Ｉ列のデータは必要ないのでなくなっても構いません。
最終的に形成された表の並びは、できればＡ列の元の並びがいいですが、無理であればどんなんでも構いません。

宜しくお願いします。

補足

何度もすみません。
同じような感じなのですが、
シート１のＡ列に、数値が入っていて、
シート２のＡ列～Ｈ列に並び替えたい数値・テキスト入っていて、
シート２のＡ列の数値がシート１のＡ列の数値と同じものがあれば、シート１のＢ列～Ｉ列のその数値の行にシート２のその数値のＡ列～Ｈ列を貼り付ける。
という方法で教えていただけますか？

回答No.4

noname#262398

並び替えというより、シート2からシート1へ必要なデータの転記ですよね？

> シート１のＢ列～Ｉ列のその数値の行にシート２のその数値のＡ列～Ｈ列を貼り付ける。

これだとシート１のＡ列Ｂ列が同じデータになって意味が無いと思うので、
シート２のＢ列～Ｈ列を、シート１のＢ列以降に持ってくれば良いかと。

データが2行目からあるとして、
シート１のB2=VLOOKUP($A2,Sheet2!$A:$H,COLUMN(B1),FALSE)
H列までフィルドラッグ。
下へフィルドラッグ。

並べ替えしておく必要はありません。

回答No.3

ape5

サンプルのマクロを以下に書いておきます。
使い方は、
1.基準となる1枚目のシートの番号を全部選択しておく。
2.サンプルプログラム中で"Sheet2"を質問者さんのシート名に変更しておく。

----------------------------------------------
Sub Sample1()
Dim a As Range
Dim i As Long
Dim j As Long

j = 0
For Each a In Selection
　 j = j + 1
　 With Worksheets("Sheet2")
　　 i = 1
　　 Do While .Cells(i, 1).Value <> ""
　　　 If a.Value = .Cells(i, 1).Value Then
　　　　 .Range(.Cells(i, 1), .Cells(i, 8)).Copy (ActiveSheet.Cells(j, 2))

　　　　 Exit Do
　　　 End If
　　　 i = i + 1
　　 Loop
　 End With
Next a

End Sub
------------------------------------------
何か不具合がありましたらレスください。

回答No.2

web2525

シート２の表をＡ列を基準に昇順に並び替え
あとはＶＬＯＫＵＰ関数（完全一致）で検索すれば出来そうです。
シート２のＡ列に存在しない数値の検索はエラーになるのでエラー処理が必要です。

お礼

お返事が遅くなり申し訳ございません。
上記の方法で無事できました。
ありがとうございました。