试纪录宏：

Sub Macro1() ActiveWorkbook.Names.Add Name:="abc", RefersToR1C1:= _ "=Sheet1!C2,Sheet1!C4,Sheet1!C6:C7,Sheet1!C9" Application.Goto Reference:="abc" Selection.EntireColumn.Hidden = False End Sub

简化为： Sub Macro2() Application.Goto Reference:="=C2,C4,C6:C7,C9" Selection.EntireColumn.Hidden = True End Sub