A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは!
無理矢理って感じでやってみました。
データはA列の2行目以降にあるとします。
とりあえず最初の2文字だけで並び替えしています。
Sub test()
Columns("B:E").Insert
Dim i, j As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 2
Cells(i, j + 1) = Mid(Cells(i, 1), j, 1)
Next j
Next i
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To 3
If Cells(i, j) <> "" Then
Cells(i, j + 2).FormulaR1C1 = "=Code(RC[-2])"
End If
Next j
Next i
i = Cells(Rows.Count, 1).End(xlUp).Row
j = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(i, j)).Sort _
, key1:=Cells(1, 4), order1:=xlAscending _
, key2:=Cells(1, 5), order2:=xlAscending
Columns("B:E").Delete
End Sub
こんな感じではどうでしょうか?m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロを教えてください。 7 2023/06/01 19:47
- Excel(エクセル) エクセルデーターの並び替え 5 2022/08/06 09:59
- その他(自転車) この自転車用ヘルメット、安全なヘルメットではないですか。 10 2023/04/16 07:34
- 宇宙科学・天文学・天気 反物質がほとんどなくて、ほぼ物質だけの宇宙になったのは偶然ですか? 3 2022/11/13 14:37
- 宇宙科学・天文学・天気 反物質がほとんどなくて、ほぼ物質だけの宇宙になったのは偶然ですか? 1 2022/07/04 16:02
- 電気・ガス・水道 ソーラーパネル初心者です 1 2023/01/01 13:46
- 政治 福島の処理水について中国や韓国がいちゃもんをつけてくる問題って…… 9 2023/07/11 17:18
- その他(ネットショッピング・通販・ECサイト) 骨伝導ヘッドセットで この二つは値段が違うだけでは同じですか? 1 2023/02/13 19:13
- 飲み物・水・お茶 え!これ100%、ならば買おうかな。…しかし実際は… 10 2022/09/06 20:37
- 人類学・考古学 ドローンを飛ばして間近で古墳調査をするのって、宮内庁の許可は必要なのかな? 5 2023/03/04 09:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードの登録順がおかしい
-
テーブルレーコードをソートし...
-
ファイルの漢数字の順番につい...
-
エクセル、並び替え正しくソー...
-
月末日のみソートしたい
-
MySQLで都道府県順にソート
-
Selectした時のレコードの取得順
-
エクセルの縦列のソートできま...
-
エクセルのソートについて
-
excel:一番上の行がソートでき...
-
1の行を固定した上でVBAを用い...
-
アハモから楽天モバイルに乗り...
-
並べ替えについて
-
上から何番目か。
-
excel マクロでグループ内でソ...
-
リストボックス内を昇順並べる方法
-
2つの列が同じ値の行を取得するSQL
-
テーブルの最後(最新)のレコー...
-
アクセスのレポートでレコード...
-
【PL/SQL】FROM区に変数を使う方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードの登録順がおかしい
-
エクセル、並び替え正しくソー...
-
並べ替えについて
-
1の行を固定した上でVBAを用い...
-
ファイルの漢数字の順番につい...
-
エクセルのソートについて
-
テーブルレーコードをソートし...
-
上から何番目か。
-
SQLで曜日のソートを月火水木金...
-
リストボックス内を昇順並べる方法
-
Selectした時のレコードの取得順
-
アクセスに関して。クエリの並...
-
コンボボックスのソートについて
-
accessでDISTINCT 句と矛盾
-
都道府県順、北からソートした...
-
エクセルでダブルクリックして...
-
Excelの並び替え(文字数と画数...
-
数字と漢字が混じった日付デー...
-
月末日のみソートしたい
-
エクセルの縦列のソートできま...
おすすめ情報