標題: [發問] 請教程式碼簡化，加速運算，謝謝! [打印本頁]

---

作者: jks2018    時間: 2018-9-16 19:36     標題: 請教程式碼簡化，加速運算，謝謝!

[attach]29409[/attach][attach]29409[/attach]

---

作者: kim223824    時間: 2018-9-16 23:02

請提供檔案，好方便寫程式。

---

作者: n7822123    時間: 2018-10-3 01:07

本帖最後由 n7822123 於 2018-10-3 01:11 編輯

回復 1# jks2018


沒檔案，不知道要幹嘛?

1. Sub 不知道要幹嘛()
   
2. Sheets("財務分析").Activate
   
3. Dim RG As Range
   
4. Set RG = Union([b3], [b4], [b5], [b6], [b9])
   
5. RG = "=R[43]C[7]"
   
6. Columns("B:I").AutoFit
   
7. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)