07/02/02 00:59:56
>141
追記。
一瞬止まるけども、処理が遅いだけなので。
（>>143）方式で、
Do While row < 65500
を
Dim myRow as Long
myRow = Range("a65536").End(xlUp).Row
Do While row < myRow
にすると早くなりまする。
>>143
>>145
まったくその通りですな。
まだまだ良いやり方のテンプレみたいなのがぱっと浮かんでこないのよなぁ…。
>142
自分のテストでは無限ループしたいほうだいだけどね。
すみません放置します。
おやすみなさい。