- 帖子
- 824
- 主題
- 6
- 精華
- 0
- 積分
- 904
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2023-12-24
|
本帖最後由 luhpro 於 2014-9-5 23:03 編輯
我的機器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
即可. |
|
發表於 2014-9-5 22:57
| 