[[20220110151501]]　『ソートして再表示』（TomCat）　ページの最後に飛ぶ

『ソートして再表示』（TomCat）

C列に以下が1行目から順番に表示されているとして
これを番号でソートして並べ替える方法をお願いします。

Dog Run.txt
Dog Run_01.txt
Dog Run_10.txt
Dog Run_11.txt
Dog Run_02.txt
Dog Run_03.txt
Dog Run_04.txt
Dog Run_05.txt
Dog Run_06.txt
Dog Run_07.txt
Dog Run_08.txt
Dog Run_09.txt

以下が理想のソート順番です。
できれば同じC列にソートして表示したい。

Dog Run.txt
Dog Run_01.txt
Dog Run_02.txt
Dog Run_03.txt
Dog Run_04.txt
Dog Run_05.txt
Dog Run_06.txt
Dog Run_07.txt
Dog Run_08.txt
Dog Run_09.txt
Dog Run_10.txt
Dog Run_11.txt

＜使用 Excel：Office365、使用 OS：Windows10 ＞

マクロの自動記録をしてみてください。
（通りすがり） 2022/01/10(月) 15:21

わざわざマクロで無くても、範囲を決めてソートボタン一発だけど。
（リーチ一発） 2022/01/10(月) 15:42

すまん。マクロでやりたいと勝手に
早合点してた。
（通りすがり） 2022/01/10(月) 15:44

普通にSortメソッドで処理すれば良かったのですね。

以下でできました。

Sub ソート()
'
'
Dim ws As Worksheet
Set ws = Worksheets("DATA")

ws.Range("C5:C100").Sort Key1:=ws.Range("C5"), Order1:=xlAscending
'
Set ws = Nothing

End Sub
（TomCat） 2022/01/10(月) 16:01

コメント返信：

[ 一覧(最新更新順) ]

[[20220110151501]] 『ソートして再表示』（TomCat） ページの最後に飛ぶ

[[20220110151501]]　『ソートして再表示』（TomCat）　ページの最後に飛ぶ