用截取数据的方法处理
Tables("表A").filter = "第四列 Like 'A%' and substring(第四列,len(第四列)-1,2) >= '00' and substring(第四列,len(第四列)-1,2) <= '99'"