条件付データの行削除について

さきほど「条件付データの行削除について（追加）」qa6347747　にお答えしたものです。
これも同じようにできますね。
データは2行目からあり、時刻はC列だとします。
07:00ちょうどと17:00ちょうどを含むかどうかは>=、<= を＞、＜に変えることで変更できます。
以下は「ちょうど」は残します。

Sub test()
　　Dim V, W
　　Dim i As Long, j As Long, n As Long
　　V = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, ActiveSheet.UsedRange.Columns.Count)
　　ReDim W(1 To UBound(V, 1), 1 To UBound(V, 2))
　　For i = 1 To UBound(V, 1)
　　　　If i > 1 Then
　　　　　　If V(i, 3) >= TimeValue("07:00:00") And V(i, 3) <= TimeValue("17:00:00") Then
　　　　　　　　n = n + 1
　　　　　　　　For j = 1 To UBound(V, 2)
　　　　　　　　　　W(n, j) = V(i, j)
　　　　　　　　Next j
　　　　　　End If
　　　　End If
　　Next i
　　Cells(2, 1).Resize(UBound(W, 1), UBound(W, 2)).Value = W
End Sub

投稿日時 - 2010-11-28 11:04:46

No.2です！
たびたびごめんなさい。
回答文に誤りがあり、前回のコードでは7時台も削除されてしまいますので、

少し訂正させてください。

操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE・・・
（「コードの表示」部分が抜けていました。）

そしてコードを↓のようにしてみてください。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
If Hour(Cells(i, 3)) < 7 Or Hour(Cells(i, 3)) >= 17 Then
Rows(i).Delete (xlUp)
End If
Next i
End Sub

こんな感じではどうでしょうか？
何度も失礼しました。m(__)m

投稿日時 - 2010-11-27 20:26:10

こんばんは！
外していたらごめんなさい。

データは2行めからあり、時刻データはC列に入っているものとします。

↓のコードを操作したいSheet見出し上で右クリック　→　VBE画面が出ますので
コピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
If Hour(Cells(i, 3)) <= 7 Or Hour(Cells(i, 3)) >= 17 Then
Rows(i).Delete (xlUp)
End If
Next i
End Sub

7時以前・17時以降のデータを削除するようにしていますので、7時・17時を含まないのであれば
コード内の等号を消してください。

尚、一旦マクロを実行すると元に戻せませんので別Sheetでマクロを試してみてください。

以上、参考になれば良いのですが・・・m(__)m

投稿日時 - 2010-11-27 20:12:50

一例です。
オートフィルタを設定して、その時間範囲で抽出した行を削除したら如何でしょうか。

投稿日時 - 2010-11-27 19:59:08