SUB 138 Select Case dの解決方法

質問者が納得何度かご質問にお答えした記憶はありますが、内容はまったく覚えてません。 質問歴を拝見すると同じようなソートの質問を何度かされているよう見受けられますが、コピペで動かないとまったく応用できないという事でしょうか？ ロジック的にどうかなという気持ちもありますが、サンプルコードを UserForm_Initialize の End Select と End With の間に追加したら、とりあえず画像のようになりました。 '---省略--- End Select '----サンプル ここから--- i = 0...

質問者が納得補足 そこまで、できてるのでしたら、あとは、goldswallow_stageさんの示したコードを多次元配列に応用するだけでソートできるかと思います。 Variant型の変数（今回は「範囲」という名前にしました）に対して、セル範囲をセットすると、（↓この行です） 範囲 = ws.Range("A4:D" & ws.Range("B" & Rows.Count).End(xlUp).Row) 範囲＝セルA4:Dα範囲（αは入力済みのセル数）となるわけ...