panpanluo兄,您能够根据别人的帮助,将结果运用到实例中并有所发挥,很好!看来您现在已成为VBA高手了,呵呵......
初看了一下您的最终结果,在计算表中执行计算时,速度有点慢,一部分是由于在计算表中执行的操作触发了工作表中的Worksheet_Change事件。您可以在“计算过程”模块代码中,加上下面的两句,计算速度明显改善。
Sub 计算过程()
Application.ScreenUpdating=False
Application.EnableEvents=False
......
Application.EnableEvents=False
Application.ScreenUpdating=False
End Sub