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

エクセルマクロの質問です。
10行ほどでワンセットの情報があり、その中の不要行を消去したいと思っております。
下記のように特定の文字を検索し、その行とその直後の行を消去するマクロは成功しました。
これをシートの終わりまで繰り返し処理するには、どうしたらよいでしょうか、教えてください。
下記スクリプトだとループしてないのと、29行目と30行目という場所の指定になってしまっていますよね。

よろしくお願いいたします。

--------下記スクリプト------
Sub 題名取得()


Cells.Find(What:=”※エラ-になる場合”, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=True).Activate
Rows(”29:30”).Select
Selection.Delete Shift:=xlUp
End Sub

●質問者: clinejp
●カテゴリ:コンピュータ
✍キーワード:DELETE SELECT sub エクセル スクリプト
○ 状態 :終了
└ 回答数 : 1/3件

▽最新の回答へ

1 ● zaikk
●40ポイント

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

下記のように記述してみてください。


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

Dim i As Integer

For i = 29 To 32

’行選択の前の処理

Rows(i & ”:” & i + 1).Select

’行選択の後の処理

Next

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


これで行の選択は、下記のように遷移します。

Rows(”29:30”).Select

Rows(”30:31”).Select

Rows(”31:32”).Select

Rows(”32:33”).Select

関連質問


●質問をもっと探す●



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