首先，
申請。ScreenUpdating = False
沒有相應的語句，自然無法加快程序。在末尾增加以下內容。
申請。ScreenUpdating = True
第二，不要壹個壹個查，壹次導入幾個實際庫存到壹個隱藏表中，然後把數值從隱藏表中寫入實際庫存列。數據庫數據的導入和導出是最慢的。所以寫程序的時候，盡量避免多次數據導入導出。