数据库-您的数据表
Option Explicit
Sub CashFlow()
Application.CutCopyMode = False
Range("A1:G7").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("N2:N3"), _
CopyToRange:=Range("H2:I2"), Unique:=False
End Sub 'CashFlow