「ブロック機能」のリニューアルについて

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

教えて!goo グレード

A 回答 (3件)

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


 
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
    • good
    • 0
この回答へのお礼

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

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

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

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

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

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

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


http://www.voicechatjapan.com/excelvba/VBArei2.htm
OFFSETを使うなど良いでしょう。

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング