[[20141113150935]]　『VBAでソート直前に戻すには』（kei）　ページの最後に飛ぶ

『VBAでソート直前に戻すには』（kei）

以下、実行後直前の状態に戻したいのですが
可能でしょうか
よろしくお願いします。

Sub データ並べ替えナンバー順()

    With Range("B5", Range("B" & Rows.Count).End(xlUp)).Resize(, 23)
        If .Row < 1 Then Exit Sub
        .Sort Key1:=.Columns(2), Order1:=xlAscending, _
              Header:=xlNo, Orientation:=xlTopToBottom

    End With
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 作業列に連番を振っておく。
 ソート後に元に戻したい場合は、作業列の連番を頼りにソート。
 BJ

BJさん
ありがとうございました。
少し検討してみます。
（kei） 2014/11/13(木) 19:22

コメント返信：

[ 一覧(最新更新順) ]

[[20141113150935]] 『VBAでソート直前に戻すには』（kei） ページの最後に飛ぶ

[[20141113150935]]　『VBAでソート直前に戻すには』（kei）　ページの最後に飛ぶ