No.1ベストアンサー
- 回答日時:
フリーのアドインソフトを使うか、
VBAで処理
http://www.moug.net/tech/exvba/0040060.html
たかだか20シートぐらいなら、手で並び替えても大した手間ではありません。
http://excel.noaruseikatu.jp/medium/m04.php
この回答へのお礼
お礼日時:2014/09/12 00:51
早々に回答をありがとうございました。
手で並び替えても大したことことありませんでしたね。
でも、いろいろな方法を紹介していただき、勉強になりました。
No.2
- 回答日時:
Alt+F11でVBEを開き
挿入→標準モジュールで以下のVBAコードを貼付
Alt+F11または右上の×でVBEを閉じる
Alt+F8または表示→マクロで「シートのソート」を選び実行
■VBAコード
Sub シートのソート()
Dim mySt As Worksheet
Dim i As Integer
Set mySt = Sheets.Add(after:=Sheets(Sheets.Count))
With mySt
.Columns("A").NumberFormatLocal = "@"
For i = 1 To Sheets.Count - 1
.Cells(i, 1) = Sheets(i).Name
If InStr(1, Sheets(i).Name, "~") > 0 Then
.Cells(i, 2) = Left(Sheets(i).Name, InStr(1, Sheets(i).Name, "~") - 1)
End If
Next i
.Sort.SortFields.Clear
'昇順に並べる場合はOrder:=1、降順に並べる場合はOrder:=2
.Sort.SortFields.Add _
Key:=Columns("B"), _
SortOn:=xlSortOnValues, _
Order:=1, _
DataOption:=xlSortNormal
With .Sort
.SetRange Range("A:B")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
Sheets(.Cells(i, 1).Value).Move after:=Sheets(Sheets.Count)
Next i
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 棚卸表の前月比の関数等あれば教えてください 2 2023/05/02 18:34
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- その他(Microsoft Office) 1の行を固定した上でVBAを用いて日付順に自動並べ替え 2 2022/06/06 15:09
- 建設業・製造業 見積作成(エクセル)について教えて下さい。 2 2023/05/10 13:47
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) EXCELVBAでシートを他のブックにコピーする命令を出すと毎回存在しないシート名の問合わせがある 2 2022/05/07 17:16
- その他(IT・Webサービス) EXCELVBAでシートを他のブックにコピーする命令を出すと毎回存在しないシート名の問合わせがある 1 2022/05/07 15:12
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
特定のシートのみ再計算させな...
-
エクセルで複数のシートに画像...
-
EXCELの図形(テキストボックス)...
-
エクセルの2つのシートを並び...
-
エクセルでブック内の倍率がバ...
-
【ExcelVBA】マクロの入ったシ...
-
エクセルのシート連番の振り直し
-
エクセルで、シートの名前を変...
-
ハイパーリンクでジャンプした...
-
DATE関数 4月31日などのあ...
-
エクセルマクロでシート名を条...
-
ワークシートそのものの色を変...
-
(エクセル)Indirect関数で、ハ...
-
Wordで差し込み印刷時に表示す...
-
特定の複数のシートに同じ処理...
-
accessへエクセルの複数のシー...
-
EXCELで存在しないシート...
-
エクセルのシー名を二段表示に...
-
エクセル2003で、複数のシート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
ワークシートそのものの色を変...
-
エクセルの2つのシートを並び...
-
EXCELの図形(テキストボックス)...
-
ハイパーリンクでジャンプした...
-
Wordで差し込み印刷時に表示す...
-
エクセルで、シートの名前を変...
-
エクセル、特定のシートにパス...
-
エクセルのシー名を二段表示に...
-
Accessのテーブルを既存のExcel...
-
確定申告用の医療費集計フォー...
-
エクセルのシート連番の振り直し
-
【Excel】エクセルの1ファイル...
-
エクセルの複数シートでのリン...
-
【Excel VBA】データ貼り付け先...
-
エクセルでリンク貼り付けした...
おすすめ情報