エクセルマクロの質問です。

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

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

回答(3件)

id:zaikk No.1

zaikk回答回数192ベストアンサー獲得回数22005/07/16 12:09:34

ポイント40pt

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


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

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

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 ku__ra__ge 118 75 40 2005-07-16 13:41:54
2 hiroshi1221 9 7 0 2005-07-17 21:50:50

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

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

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

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

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