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

質問

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

回答No.3

jcctaira · ベストアンサー

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

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文はよく使用するのでこういう方法もあるという意味で助かります。
ありがとうございました。

回答No.2

mitarashi

Findのオプションはお好みでアレンジしてください。エラー処理無し、複数存在しない事が前提ですが。
Sub test()
Range("A1", Range("A10:A20").Find("進む", LookIn:=xlValue, lookat:=xlWhole)).EntireRow.Delete
End Sub

お礼

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

回答No.1

layy

ＶＢＡによるセルの操作が書いてあります。
http://www.voicechatjapan.com/excelvba/VBArei2.htm
ＯＦＦＳＥＴを使うなど良いでしょう。

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

お礼

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