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

1^# 跳轉到 »

發表於 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

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。