Dim Filter As StringFilter = " 尽机= False And 上机=True" If Filter > "" Then Tables("经轴流程").Filter = FilterEnd If