エクセルVBAの質問です。

ある特定の文字を検索し、その下の5行を削除したい場合どうすればよいでしょうか?
検索文字が含まれる行も削除する場合とそうでない場合を教えてください。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/07/16 12:06:45
  • 終了:--

回答(2件)

id:ponna No.1

ponna回答回数5ベストアンサー獲得回数02005/07/16 12:56:56

ポイント40pt

url はダミー


こんな感じでいかが?


---------------------------------------------------------------------

Dim strKeyWord As String ’検索したい文字列

Dim lngStartRow As Long ’検索結果の行


strKeyWord = ”検索したい文字列”

Cells.Find(What:=strKeyWord).Activate ’検索

’ lngStartRow = ActiveCell.Row ’検索結果の行からの削除の場合はこちら

lngStartRow = ActiveCell.Row + 1 ’検索結果の次の行から削除の場合はこちら

Rows(CStr(lngStartRow) & ”:” & _

CStr(lngStartRow)).Delete Shift:=xlUp ’削除

---------------------------------------------------------------------

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 ponna 5 4 0 2005-07-16 13:12:36

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません