[[20200402105134]]　『条件に一致しない行を削除する』（桜）　ページの最後に飛ぶ

『条件に一致しない行を削除する』（桜）

一定の期間以外の行を削除させたいです

期間はsheetBのB5の始まり、B6に終わりを入力してます
削除したい行はsheetD、日付はA列にあります
B5とB6に入力がない時は削除せず、入力があったらその期間以外を削除する

参考になりそうな構文を見つけましたがここからどうしていいかわかりません

Sub 条件に一致した行を削除する()
　Dim i As Long

　For i = Range("A1").End(xlDown).Row To 2 Step -1
　With Cells(i, "G")
　　If _
　　.Value Like "東京*" Or _
　　.Value Like "大阪*" Then
　　　.EntireRow.Delete
　　End If
　End With
　Next i

 End Sub

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 >入力があったらその期間以外を削除する

 参考に
 Sub 条件に一致した行を削除する()
    Dim i As Long, sDate As Date, eDate As Date

    With Worksheets("SheetB")
        If .Range("B5").Value = "" Or .Range("B6").Value = "" Then Exit Sub
        sDate = .Range("B5").Value
        eDate = .Range("B6").Value
    End With

    With Worksheets("SheetD")
        For i = .Range("A1").End(xlDown).Row To 2 Step -1
            If .Cells(i, "A").Value < sDate Or .Cells(i, "A").Value > eDate Then
                .Cells(i, "A").EntireRow.Delete
            End If
        Next i
    End With
 End Sub

（ピンク） 2020/04/02(木) 11:27

ピンクさん、ありがとうございます
思っていたことができましたので取り急ぎ報告します
どうなっているのか少ししか理解できていないので調べてみます

（桜） 2020/04/02(木) 13:08

コメント返信：

[ 一覧(最新更新順) ]

[[20200402105134]] 『条件に一致しない行を削除する』（桜） ページの最後に飛ぶ

[[20200402105134]]　『条件に一致しない行を削除する』（桜）　ページの最後に飛ぶ