主题：汇总求助

这里应该是 Dim r As Row = Tables("月报表").AddNew 引起效率低的原因之一。 可用 StopRedraw 来提高效率。

3000条记录40秒,这个速度真的很慢，不应该的呀···· 

实在不行你就好好学学24楼狐爸给的连接，一定会大幅提高计算速度的。

另外，从设计的角度想办法，建立一个所有月份的余额表（很多专业软件都是这样的），这样上月数直接从该表中取数，其他只计算当月的就快了。