[[20190110102541]]　『並び替え』（もふ）　ページの最後に飛ぶ

『並び替え』（もふ）

可能かどうか分からないのですが
可能であれば方法を教えていただきたいです。

※本来やりたいこと※
A列に商品コードを入力しています。
　A0010001
　B0010002
　A0010003
　C0010004
　A0020001
とアルファベットを無視して数値だけで並び替えをしたいです。
書式設定は「文字列」です。

※現状※
changeイベント内
　Range("A4", Range("A1048576").End(xlUp).Offset(0, 7)).Sort key1:=Range("A4").Value, order1:=xlAscending, Header:=xlYes

上記のコードだと
　A0010001
　A0010003
　B0010002
　C0010004
当然ながらこのようになってしまいますよね。

何か方法はありますでしょうか？

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

並び替える前に、作業列（書式は文字列に設定）を作成して、先頭1文字を消した値をセット。作業列をキーとして並び替えてから、作業列を消してしまうようなマクロに変えてみてはいかがでしょうか。
（???） 2019/01/10(木) 11:36

コメント返信：