软件: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
可是只有第一次可以跳过错误 第二次还是会出错
请问应该如何改正
谢谢