マクロで特定の行まで削除する方法を探しています。

マクロで特定の行まで削除する方法を探しています。
具体的にはA列の10～20行の間に ［ 進む ］ と入力されているセルがあるので、その文字を含む行まで削除する方法を探しています。
A11に進むとあればA1～A11までを削除、A14に進むと入力されていればA1～A14までという感じです。
よろしくお願いします。

No.3 ベストアンサー 回答者： jcctaira 回答日時： 2010/05/20 08:52

以下でできると思います。

　
Sub 進むまでの行削除()
　For I = 10 To 20
　　If Cells(I, "A") = "進む" Then
　　　Range("A1", Cells(I, "A")).EntireRow.Delete
　　　Exit Sub
　　End If
　Next I
End Sub

※お詫び　前回の質問で「最初の罫線を判断して…」で間違いがありました。
　以下の用に変更して下さい。
Sub 罫線までの行削除()
　For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
　　If Cells(I, "A").Borders(xlEdgeBottom).LineStyle <> xlNone Then
　　　Range("A1", Cells(I, "A")).EntireRow.Delete
　　　Exit Sub
　　End If
　Next I
End Sub

この回答へのお礼

前回の回答含めありがとうございます。
for～next文はよく使用するのでこういう方法もあるという意味で助かります。
ありがとうございました。

お礼日時：2010/05/20 19:15

No.2 回答者： mitarashi 回答日時： 2010/05/20 00:11

Findのオプションはお好みでアレンジしてください。

エラー処理無し、複数存在しない事が前提ですが。
Sub test()
Range("A1", Range("A10:A20").Find("進む", LookIn:=xlValue, lookat:=xlWhole)).EntireRow.Delete
End Sub

この回答へのお礼

こちらの形もためしていきたいと思います

お礼日時：2010/05/20 19:18

No.1 回答者： layy 回答日時： 2010/05/19 23:57

ＶＢＡによるセルの操作が書いてあります。

http://www.voicechatjapan.com/excelvba/VBArei2.htm
ＯＦＦＳＥＴを使うなど良いでしょう。

たぶんそのまま使える回答が出てくると思うので
そのコード意味の確認はお願いします。

この回答へのお礼

有用なサイトありがとうございます。
もっと勉強していきたいと思います。

お礼日時：2010/05/20 19:16