luhpro

我的機器A好像比較老舊，因此，新增一列需要十幾秒的時間，
但機器B則快速許多，請問有辦法可以在機器A上搞 ...
cji3cj6xu6 發表於 2014-9-5 15:22

那就只搬動需要搬動的儲存格即可.

簡化版程式碼內第 7 ~ 8 行中間插入 :
c =  ActiveSheet.UsedRange.Columns.Count
第 8 行  Rows(r).Insert 改成 :

Range(Cells(r, 1), Cells(r, c)).Insert xlShiftDown
   或
Cells(r, 1).Resize(, c).Insert xlShiftDown

即可.