請問如何改善迴圈的執行速度呢? - Excel程式區

[發問] 請問如何改善迴圈的執行速度呢?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-9-6 16:57 | 顯示全部帖子

回復 1# mark15jill
這是你要的結果嗎?

Option Explicit
Sub Ex()
Application.ScreenUpdating = False '螢幕更新關
With 工作表4
.Select
.Cells.EntireRow.Hidden = False
.Cells.EntireColumn.Hidden = False
.[A1:K14] = "999"
On Error Resume Next '設定:有程式碼不理會繼續往下執行程式
'如無空白的儲存格會有錯誤
.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
.Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
.Range(.Cells(.Rows.Count, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1)).EntireRow.Hidden = True
'A欄最後一列(65536)往上到有資料列的下一列
.Range(.Cells(1, .Columns.Count), .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)).EntireColumn.Hidden = True
'第一列最後一欄(256) 往左到有資料欄的右一欄
.[A1].Select
End With
Application.ScreenUpdating = True '螢幕更新關
End Sub

複製代碼

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。