- 帖子
- 58
- 主題
- 8
- 精華
- 0
- 積分
- 94
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-6
- 最後登錄
- 2014-2-17
|
回復 15# GBKEE
感謝大大
小弟發現了另一個方式了
就是把我原有的函數全部套用您給小弟的代碼
With Sheets("XX").[X?:X?]
.Cells = " 原有函數(只是原有的"X"要變成" "X" ") "
.Cells = .Value '公式轉成值
End With
這樣的方式還是能把檔案縮小^^ |
|