1、首先通过“视图-控件工具箱”在sheet1添加“复选框”控件
2、双击“复选框”控件打开VB编辑器,插入以下代码:
Private Sub CheckBox1_Click()
If Sheets("Sheet2").Columns("A:A").EntireColumn.Hidden = True Then
Sheets("Sheet2").Columns("A:A").EntireColumn.Hidden = False
Else
Sheets("Sheet2").Columns("A:A").EntireColumn.Hidden = True
End If
End Sub