返回列表 上一主題 發帖

[發問] 請教程式碼簡化,加速運算,謝謝!

[發問] 請教程式碼簡化,加速運算,謝謝!

簡化程式碼

簡化程式碼.png
2018-9-16 19:27
簡化程式碼.png

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

TOP

本帖最後由 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
複製代碼
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題