--能否彻底隐藏某行或某列
用代码隐藏列,将其放在Private Sub Worksheet_SelectionChange(ByVal Target As Range)Columns(1).EntireColumn.Hidden = TrueEnd Sub
--