|
さとさと さん、おはようございます。
>見事に削除できました。昨日2時間かけて500行くらいだったのに。
>VBAの力に感動しました。本当にありがとうございます。
(^o^)
>> For i = 1 To Range("a65536").End(xlUp).Row
>
>この行が、削除行の数を表してると思うのですが、
>例えば10行だけ削除したいと思ったら、"a65536"を
>どう変えたらよいのでしょうか?
えっとこれは、変数iに、処理するセルの行番号を代入しています。
(それはわかる?)
Range("a65536").End(xlUp)
この部分は、A列の最終のセルがセレクトされている状態で、
「Ctrl+↑キー」を押した時に示されるセルを示しています。
(表現下手ですみません)
で、
Range("a65536").End(xlUp).Row
で、そのセルの行番号が取得できます。
なので、A列の500行目までデータが入ってたとしたら、「500」が取得されます。
前置きが長くなりましたが、そういうことですので、
前もって「10行目」までとわかってる場合は、
For i = 1 To 10
でOKです。
ちなみに、10行目から、50行目までとかなら、
For i = 10 to 50 とか・・・・
わ・・・わかるかしらん?(^^;
|
|