- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
2#
發表於 2016-2-13 14:09
| 只看該作者
回復 1# starry1314
已解決....第9列出現空白 則自動隱藏所再欄- Sub 自動隱藏()
- '
- ' 自動隱藏 巨集
- For I = 42 To 70
- If Cells(9, I) = "" Then
- Columns(I).EntireColumn.Hidden = True
- End If
- Next
- End Sub
|
|
