[算表] 迴圈內使用On Error Goto

[home0303 (Blue night)]

軟體:EXCEL

版本:2010

Sub 隱藏欄位()
Set MM = ActiveSheet
Sheets("欄位清單").Select
For i = 2 To Application.CountA([A:A])
On Error GoTo Err
依序 = Cells(i, "A").Value
隱藏註記 = Cells(i, "A").Offset(0, 1).Value
MM.Select
[1:1].Select
Selection.Find(What:=依序, LookAt:=xlWhole).Select
Selection.EntireColumn.Hidden = 隱藏註記
Err:
Sheets("欄位清單").Select
Next
MM.Select
End Sub

MM工作表內有過多資料欄位   故我另設一個集合欄位標題的工作表【欄位清單】

用以控制MM工作表的顯示欄位

當欄位清單的某一項是MM工作表沒有的時候會報錯   故在迴圈內設一OnErrorGoto

可是只有第一次可以跳過錯誤  第二次還是會出錯

請問應該如何改正

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.124.41.19
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1523413718.A.6FF.html
→ soyoso: https://i.imgur.com/WeKcyGl.jpg 類似這樣
→ home0303: 好強  謝謝S大