VBA代碼字典查找時跳過隱藏行怎麽寫

比要工作表壹始終顯示壹-三0行我VBA編輯器雙擊SHEET壹插入代碼 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Rows("壹:三0").EntireRow.Hidden = False End Su