軟體: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
可是只有第一次可以跳過錯誤 第二次還是會出錯
請問應該如何改正
謝謝