问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

Excel添加和删除空行方法详解

发布网友 发布时间:2024-09-17 21:35

我来回答

1个回答

热心网友 时间:2024-09-29 02:42

如何在excel工作表的每行下面增加1个空行呢?实现的方法有两种,第一是通过可视化界面菜单操作,第二是通过VBA代码操作实现空行的添加。

  在excel增加空行的效果如下图所示:

  每行下面增加1个空行的第一种方法:辅助列排序法。

  操作步骤如下:

  第一,单击工作表第一列,在第一列前插入一空白列,然后用阿拉伯数字(1、2、3、4、5、6、7、8……)标注行序号,如图所示:数据区域有10行。

  第二,全选辅助列数据区序号,向下复制相等行数。

  第三,单击第一列第一个单元格,单击菜单【数据】-【排序】命令,对数据区域按升序排序(辅助列为主键)。这样就成功实现了隔行插入一个空行。

  第四,将不需要的辅助列删除即可。

  第二种方法:使用VBA代码实现增加和删除空行。

  在VBA代码编辑界面输入如下代码,然后在工作表中执行宏,就可以轻松的隔行增加空行。

  Sub insertrow()

  Application.ScreenUpdating = False '关闭屏幕更新,提高代码执行效率

  I = [A65536].End(xlUp).Row '取得非空单元格行号

  Rows(I + 1).RowHeight = 14.25 '设定插入空行行高为14.25,数字可修改

  For I = [A65536].End(xlUp).Row To 1 Step –1 '执行循环

  Rows(I).Insert Shift:=xlDown '执行插入

  If I > 1 Then

  Rows(I).RowHeight = 14.25

  End If

  Next

  Application.ScreenUpdating = True '打开屏幕更新

  End Sub

  操作方法:按ALT+F11直接进入VBA编辑器,在当前工程下新建模块(【插入】-【模块】),在代码窗口将上以代码复制过去并保存。

  需要执行隔行插入空行,直接运行子过程insertrow()即可。(快捷键F5)

  如果在不需要空行的前提下,可以将空行删除?那么,如何在excel中批量删除空行呢?我们也是使用VBA代码来实现。

  代码如下:

  Sub deleterow()

  Application.ScreenUpdating = False

  Dim RowN As Integer

  For RowN = 1 To 20 '20 视数据行进行更换

  If ActiveSheet.Cells(RowN, 1).Value = "" Then

  ActiveSheet.Cells(RowN, 1).Select

  Selection.EntireRow.Delete

  End If

  Next

  Application.ScreenUpdating = True

  End Sub

  执行以上代码,运行宏,就可以实现批量删除空行。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
2024年nba总决赛几号开始总决赛赛程时间表出炉了-今日头条 无限连接的打印机不能打印公务员准考证 全国流量什么意思 新笑傲江湖手游恒山不能复活吗 有没有复活技能解答 新笑傲江湖手游恒山派怎么样_新笑傲江湖手游恒山派技能详解 新笑傲江湖恒山菩提武学怎么玩_恒山菩提武学玩法介绍 c语言argc参数在哪里设置? 这个C语言程序为何运行不出 在opencv中,argc和argv的怎么用,一直搞不明白 int main(int argc,char *argv[ ]) excel中公式中出现空行怎么删除? 纹眉出现色差,应该怎么处理? 关于色差,请大神赐教。? 铝合金颜色色差产生纠纷经销商该怎么办 色差问题如何处理? 如何解决色差 如何解决色差问题 技术指标参数响应偏离表怎么填写 一建投标文件响应内容填什么 兰州拉面 印度有没有 印度有哪些特色美食推荐? 异度之刃2简中版与繁中版区别介绍_异度之刃2简中版与繁中版区别是什么... 异度之刃2第一章主线攻略介绍_异度之刃2第一章主线攻略是什么_百度知 ... 新商盟手机订烟登录盟 新商盟手机订烟登录盟商黄粉蝶新高盟网上修改密码... MP4的色差线是干吗用的啊 家里买的瓷砖为什么和店里看的不一样 win7桌面图标消失后如何恢复所有图标? jdk1.6.0 2018年java jdk1.6版本过时了吗,现在用的最多的版本是版本几?_百度知 ... Java面向对象程序设计(JDK1.6)书籍简介 如何看待人民币对美元的下跌 ...我搜不到易语言的专利,java或python之类的专利号是多少? 李方敏获得专利 自主知识产权查询 核心自主知识产权注意事项 怎么量取一克的物品呢? 流星为什么有尾巴 绝地求生里带妹子吃鸡是一种怎样的体验? 大家一般都是单排吃鸡还是双排吃鸡 滑滑的菜叫什么 有种绿叶蔬菜,煮起来表面黏黏滑滑的.请问那是什么菜 鬼谷八荒怎么修改先天气运 鬼谷八荒鬼谷内门怎么解锁 先天气运解锁条件说明 备考专升本期间我感觉学习状态很差,有点崩溃,应该怎么调整? 一天吃六只螃蟹会怎么样 专升本备考过程中如何调节心理、排解情绪 螃蟹吃多了会怎么样,螃蟹吃多了怎么补救 请教高人在此先谢过,成衣修色最好方法 浙江丽水市成衣修色有哪几家? 哪位大神帮我下载一下百度文库里面:儿童对比涂色画画--可打印(一)