跨工作表自動隱藏空白列問題

2^# 跳轉到 »

發表於 2016-4-3 00:27 | 只看該作者

本帖最後由 luhpro 於 2016-4-3 00:31 編輯

不好意思，想請教一下大師們2個程式碼的問題~~~

問題一
以下是針對單一活頁，自動隱藏列5:列25空白列的 ...
msmplay 發表於 2016-4-2 22:33

For i = 1 To 31
Sheets(i).Rows("5:25").EntireRow.Hidden =true
Next

問題二

把底下這行插在最後一個 End With 前 :

Sheets(i).Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true

靜思自在 : 成功是優點的發揮，失敗是缺點的累積。