欢迎访问服务器技术网-www.fuwuqijishu.com

EXCEL中如何批量插入空行?

软件 fuwuqijishu 2年前 (2022-10-01) 12次浏览 0个评论 扫描二维码

关于比如说我已经做好了一个表格,有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”,执行“插入空行”后会弹出一个对话框,输入要插入的行数,按确定后就成功了。

喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

Warning: error_log(/www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/#log/log-2523.txt): failed to open stream: No such file or directory in /www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/spider.class.php on line 2900