主题：从表A提取数据到表B中，表B中部分单元格按条件用代码填入

不管代码质量了，先帮你解决问题，类似下面的代码：

f.Filter = Tables("耗材出库统计表").Filter & iif(Tables("耗材出库统计表").Filter>"","and","") & "手术室_普通低值 is not null"

改为：

f.Filter = "[_Identify]=" & Tables("耗材出库统计表").Current("_Identify") & " And 手术室_普通低值 is not null"

以后操作的死后，在耗材出库统计表选择某一月的行，再单击导出，导出的就是这一个月的数据。