人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: clinejp
●カテゴリ:コンピュータ
✍キーワード:VBA エクセル 検索
○ 状態 :終了
└ 回答数 : 1/2件

▽最新の回答へ

1 ● ponna
●40ポイント

http://www.hatena.ne.jp/

はてな

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 ’削除

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ