如何将此代码减少为单行

Question

有谁知道如何获取一段代码并将其缩减到最短的形式？ 我目前的代码如下

  

Sub shide_Click（）

  Columns("a").Hidden = Not Columns("a").Hidden
  Columns("e").Hidden = Not Columns("e").Hidden
  Columns("g").Hidden = Not Columns("g").Hidden
  Columns("s").Hidden = Not Columns("s").Hidden
  Columns("y").Hidden = Not Columns("y").Hidden 

     

End Sub

Answer 1

考虑：

Sub Shorter()
    For Each l In Array("a", "e", "g", "s", "y")
        Columns(l).Hidden = Not Columns(l).Hidden
    Next l
End Sub