关于比如说我已经做好了一个表格,有100行数据,现在需要在第25行后新增16个空行,添加数据。我学到的方法是,先选择第26行,然后点“插入行”,这样就增加一空行,然后按住“F4”键不放,就一不停的地增加空行了。这个方法虽然也可以,但是感觉有些不方便,按“F4”键不放,增加的数量完全是凭感觉的,有可能结果是26行、43行、16行……
能否有一种方法能确切地增加呢,比如说输入“26”,就确切地增加26个空行?的问题
用VBA吧,可能会容易些:
1、按“Alt+F11”进入VBE;
2、“插入”-》“模块”;
3、在代码编辑区域插入如下代码:
Option Explicit
Sub 插入空行()
Dim intRows%, i%
intRows = Val(InputBox(“请输入要插入的空行数:”, “请输入数据:”))
If Not IsNumeric(intRows) And intRows
Rows(Application。ActiveCell。Row)
For i = 1 To intRows
。
Insert shift:=xlDown
Next
End With
End Sub
4、返回要插入空行的表格,用鼠标点选想在其前插入空行的单元格,然后按“Alt+F8”,执行“插入空行”后会弹出一个对话框,输入要插入的行数,按确定后就成功了。