让Excel自动高度显示选中的行

最近在录入学生成绩，成绩已经在Excel中统计好了，需要登录到网上。但是学生太多，怕看花了眼。于是找了这个东东：

 

在当前Excel选择宏，然后选择visual basic编辑器，改写当前工作表的selectionChange事件如下：

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone  '清除工作表填充
    x = ActiveCell.Row         '活动单元格行号
    Rows(x & ":" & x).Interior.ColorIndex = 4  '活动单元格行填充颜色
End Sub

 

保存退出即可。