Dim i As Integer = Tables("月事件率").Rows(Tables("月事件率").Rows.Count-1)("_Identify")
Tables("月事件率").Filter = "[_Identify] >= " & i-11