先别说问题,至少下面:
For Each c As Col In Tables("销量月报").cols Tables("销量月报").AutoSizeColsNext
应该简化为一行:
Tables("销量月报").AutoSizeCols