質問者が納得10行ずつだと、結果の行が間違ってますよね？
２行目にあったデータは１２行目にいくかと思います。
とりあえず、標準モジュールに以下をコピペして実行すると出来るかと。
10行ずつってのが間違いだったら
「Const sortrows As Long = 10 '挿入行数」
の10を修正して下さい。
１００行目の下にも１０行挿入しているので、それをやめる場合は
「For i = 101 To 2 Step -1」
を
「For i = 100 To 2 Step -1」
にして下さい。
********
...
4795日前view9
