Excel 用个 自带的if 的结构 应该可以弄出来。

Sub 提取数据()
    Dim sh1 As Worksheet, sh2 As Worksheet, i&
    Set sh1 = Worksheets("原始数据表")
    Set sh2 = Worksheets("提取数据表")
    With sh2
        .Columns("A:D").ClearContents
        sh1.Columns("A:D").Copy .[A1]
        .Columns("A:D").Sort Key1:=.Range("D2"), Header:=xlGuess, OrderCustom:=1
        For i = .[D65536].End(xlUp).Row To 2 Step -1
            If .Cells(i, 4).Value <= .[F1].Value Then .Rows(i + 1 & ":" & 65535).Delete: Exit For
        Next
        .Columns("A:D").Sort Key1:=.Range("B2"), Key2:=.Range("A2"), Header:=xlGuess, OrderCustom:=1
        For i = .[B65536].End(xlUp).Row - 1 To 2 Step -1
            If .Cells(i, 2).Value = .Cells(i + 1, 2).Value Then .Rows(i).Delete
        Next
        .Columns("A:D").Sort Key1:=.Range("A2"), Header:=xlGuess, OrderCustom:=1
        .Activate
    End With
    MsgBox "OK!"
End Sub