返回列表 上一主題 發帖

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

本帖最後由 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

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題