隐藏单元格所在的行与列

Sub 隐藏行和列()
  Rows("3:5").Hidden = True
  Columns("B:C").Hidden = True
End Sub
Sub 取消隐藏行和列()
  Rows("3:5").Hidden = False
  Columns("B:C").Hidden = False
End Sub
Sub 隐藏单个单元格所在的行和列()
 Range("B2").EntireRow.Hidden = True
 Range("B2").EntireColumn.Hidden = True
End Sub
Sub 隐藏单元格区域所在的行和列()
 Range("B2:D10").EntireRow.Hidden = True
 Range("B2:D10").EntireColumn.Hidden = True
End Sub