作者：乔山办公网日期：
返回目录：excel表格制作
包括
EXCEL中水平滚动条的长短是根百据使用的最后一列确定的，包括在该列的某个单元格输入数据，或设置格式；度
垂直滚动条的长短是根据使用的最后一行确定的，包括在该行的某个单元格输入数据，或设置格式；
有时无意中在后面的某个单元格中输入了数据，或设置了格式，会导致滚动知条变得很短，而这个单元格中的数据或格式是无用的，可以道选择将其删除（注意一定是右击--删除，而不是按Del删除键）；
可以按回Ctrl+End定位最后一个使用过的单元格，将其删除；
也可以在认为后面没有数据的行中，选中任一行，按Ctrl+Shift+下方向键，则下面的所有行全被选中，右击--删除；
删除后，会发现答滚动条仍然没有变长；
此时需要先将该工作簿保存，再打开，就会发现滚动条变长了。
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row > 2 Then
i = Target.Row
If Target = 0 Then Rows(i & ":" & i).Delete Shift:=xlUp
End If
End Sub
这个可以使用VBA来实现，示例如下来：
Sub DeleteRows()
Dim i, j, k, l As Long
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
For i = 2 To 1000 '第二行到1000行
For j = 14 To 17 '第14列到17列
If mysheet1.Cells(i, j) = 3 Then '如果单元源格里面包含3,则删除行
mysheet1.Rows(i).Delete shift:=xlUp '删除行后下行上移zd
End If
Next
Next
End Sub
运行后的结果如下：