条件に一致する行を全て非表示にする 削除
| Message#2 2015年2月6日(金)08時25分 From: kzau |
| セルを見つけて非表示ということですので、Findメソッドを使うのがいいかと思います。 全てのセルに対してFindメソッドを使うと膨大なデータの中から探さなければいけないので、ある程度法則性のある書き方をするのであれば、絞れると思います。 ただ、あまりお勧めしません。 もう１つはセルをループさせて非表示にする項目があった場合は、非表示にするという処理です。こちらでしたらデータ数が少ない場合かなり有効的です。 以下はサンプルですので、一度試してみてください。 Sub sample() Dim i As Long, k As Long For i = 1 To Cells(Rows.Count, "C").End(xlUp).Row If Cells(i, "C") = "先頭セル" Then k = i Do Until Cells(k, "C") = "AAA" k = k + 1 Loop If Cells(k, "D") = 0 Then Range(Cells(i, "C"), Cells(k, "C")).EntireRow.Hidden = True End If i = k End If Next i End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
