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