摘要： 一些代码优化： 1.Range("B5:C6").Copy Destination:=Range("B8") 2.使用mid$函数而不是mid 3.把整个sheet保护，需要操作时，后台先关闭保护。 4.Excel中自带的Sum函数是将整个区域转换为数组，在内存中进行求和，速度快多了。 Dim re 阅读全文