エクセル【別シートから参照し指定順に並べたい】

お忙しいところ恐縮ですがみなさん知恵をお借りしたいです

sheet1:
Ａ列　予約番号　　：001/002/003/004....
Ｂ列　商品タイプ　：テレビ45型/テレビ27型/乾電池単4/乾電池単3...
Ｃ列　購入者　　　：タナカタロウ/サトウタケル/カワカミアキラ/マキカケル
Ｄ列　購入金額　　：45000円/20000円/650円/300円

このsheet1を参照してsheet2に指定順に並び変えたいです
並び変える優先順位は下記になります
Ｂ列（数字の大きい順）＞Ｄ列（小さい順）＞Ｃ列（カナ順）＞Ａ列（数字が小さい順）

申し訳ございません。よろしくお願いします

No.2 回答者： tom04 回答日時： 2020/06/11 18:48

こんばんは！

当方の勘違いならごめんなさい。

＞Ｂ列（数字の大きい順）
とはB列（商品タイプ）には必ず数値が入っていて、その数値のみの降順！というコトでしょうか？
そうであれば数値のみを抜き出す方法が必要ですね。
関数を使って裏技的な方法はあるみたいですが、当方は知りませんのでユーザー定義関数を作ってみました。

Alt＋F11キー　→　VBE画面が表示されますので、メニュー　→　挿入　→　標準モジュール　→　カーソルが点滅しているところに
↓のコードをコピー＆ペーストしてください。

Function suuti(myR As Range) '//この行から//
　Dim k As Long
　Dim myStr As String
　　For k = 1 To Len(myR)
　　　myStr = Mid(myR, k, 1)
　　　　If IsNumeric(myStr) Then
　　　　　suuti = suuti & myStr
　　　　End If
　　Next k
　　　suuti = Val(suuti)
End Function '//この行まで//

これで通常のワークシート関数と同じような使い方が可能です。

↓の画像のような配置で元データはSheet1にあり、Sheet2に表示するとします。
Sheet1には作業用に数列を使用しています。

E2セル（B列数値のみを抜き出し）にさっそくユーザー定義関数を使います。
E2セルに
=IF(B2="","",suuti(B2))

F2セルに
=IF(C2="","",COUNTIF(C$2:C$1000,"<"&C2)+COUNTIF(C$2:C2,C2))

G2セルに
=IF(COUNTBLANK(A2:D2),"",RANK(E2,E:E)*10^9+RANK(D2,D:D,2)*10^6+RANK(F2,F:F,2)*10^3+RANK(A2,A:A,2))

という数式を入れフィルハンドルでこれ以上データはない！という位まで下へコピーしておきます。

そしてSheet2のA2セルに
=IFERROR(INDEX(Sheet1!A:A,MATCH(SMALL(Sheet1!$G:$G,ROW(A1)),Sheet1!$G:$G,0)),"")

という数式を入れ、フィルハンドルで列・行方向にコピーすると
画像のような感じになります。

※　B列すうちを抜き出す関数は数値が飛び飛びにあってもすべて抜き出されてしまいます。

※　作業列が目障りであれば遠く離れた列にするか
非表示にしてください。

※　保存時は「マクロ有効ブック」として保存する必要があります。

まずはこの程度で・・・m(_ _)m

No.1 回答者： fujillin 回答日時： 2020/06/11 17:58

こんにちは

どういう仕組みになさりたいのかよくわかりませんが、参照しつつご質問のような結果になれば良いものとして…

１）別シートのA1セルに「=Sheet1!A1」の参照式を入力します。
２）必要な範囲まで、右方、下方にフィルコピーします
　　（Sheet1を参照した同じシートができます）
3）別シートの必要範囲を選択して、「データ」－「並べ替え」を選択し、
　　ご質問の様な優先順位と昇順/降順で設定します。

そのまま並べ替えを実行すると、Sheet1を参照したままで並べ替えが行われます。