如题所述
给原数据减肥，可能原数据有大量的公式，或者其他对象图形。追问
ReDim arrP(1 To I)
ReDim arrD(1 To I)
ReDim arrL(1 To I)
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-02-03
贴出代码？看看能否优化~追问
For i= 1 To I
arrP(i) = EXC_APP.Cells(iRow , 1)
arrD(i) = EXC_APP.Cells(iRow , 2)
arrL(i) = EXC_APP.Cells(iRow , 3)
Next
