excel怎么每行增加一行

Excel里每行增加一行，这事儿听起来简单，但真要高效地搞，里面门道可不少。别跟我说一行一行手动插入，那是原始人干的事儿！

我跟你讲，我第一次碰到这需求，还是帮我表妹整理她那乱七八糟的网店商品信息。几千条数据啊！要手动加，我估计我得跟Excel锁死，过劳死警告！所以，我必须找到一个能让我偷懒的方法。

最基础的方法，当然是利用Excel自身的排序功能。首先，你需要在一个空白列，比如最后一列，输入序号。假设你的数据从第2行开始（第1行是表头），那么就在这个空白列的第2行输入1，然后下拉填充，让它变成1、2、3、4……一直到你的数据结尾。

接下来，重点来了！在这个序号的下面，再次输入同样的序号。比如说，你的序号到1000，那么就在1001行开始，再输入1、2、3……一直到1000。

然后，选中所有数据，包括你刚才添加的序号列。点击“数据”选项卡，找到“排序”。以你刚刚添加的序号列为依据进行升序排序。奇迹发生了！每一行数据下面，都乖乖地插入了一行空白。

但这招儿有个缺点，就是你得先加一列辅助列，用完还得删掉，略微麻烦。而且如果你的数据量特别大，排序可能要花点时间。

后来，我发现了一个更直接，更暴力的办法，用 VBA！

VBA，简单来说就是Excel的“编程语言”。别害怕，其实没那么难。打开Excel，按下 Alt + F11，你会看到一个Visual Basic编辑器。这就是VBA的地盘。

在左侧的项目资源管理器中，找到你的工作簿，然后右键点击，选择“插入” -> “模块”。在弹出的代码窗口中，输入以下代码：

```vba Sub InsertBlankRows() Dim LastRow As Long Dim i As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 假设你的数据在A列

Application.ScreenUpdating = False ' 关闭屏幕更新，提高效率

For i = LastRow To 2 Step -1 ' 从最后一行倒着插入
    Rows(i).Insert Shift:=xlDown
Next i

Application.ScreenUpdating = True ' 恢复屏幕更新

MsgBox "插入完成！" ' 提示信息

End Sub ```

这段代码的意思是：先找到最后一行的行号，然后从最后一行开始，倒着循环，每次循环都在当前行插入一行空白。为什么要倒着循环？因为如果你从第一行开始插入，后面的行号就会发生变化，容易出错。

复制这段代码，粘贴到VBA编辑器的代码窗口中。然后关闭VBA编辑器，回到Excel。

接下来，你需要运行这段代码。点击“开发工具”选项卡（如果没有这个选项卡，需要在“文件” -> “选项” -> “自定义功能区”中勾选“开发工具”），找到“宏”按钮。在弹出的宏对话框中，选择你刚才创建的宏（一般叫做“InsertBlankRows”），点击“运行”。

Duang！所有的行下面都自动插入了一行空白！是不是很神奇？

VBA方法的优点是不用添加辅助列，直接搞定，速度也快。缺点是需要懂一点点VBA，但是，为了偷懒，学一点又何妨？而且，这段代码你可以直接复制粘贴，稍微修改一下就能用，不需要你有多深的编程功底。

当然，如果你实在不想用VBA，还有一种方法，虽然有点笨，但也能凑合着用。

那就是使用辅助列和公式。比如，你在A列是你的数据，那么在B列，你可以输入公式 =IF(MOD(ROW(),2)=0,"",A1)。这个公式的意思是：如果当前行号是偶数，就显示空，否则就显示A列对应行的内容。然后，下拉填充这个公式。

接下来，复制B列的所有内容，然后选择性粘贴到A列，选择“数值”。这样，A列就变成了隔行显示你的数据，隔行显示空白。

这种方法的缺点是，你需要用到MOD函数和ROW函数，而且需要复制粘贴，略微繁琐。但是，如果你对VBA一窍不通，又不想添加辅助列排序，这也不失为一种方法。

总而言之，Excel里每行增加一行空白，方法很多，关键是找到适合你的。如果你只是偶尔用一下，用辅助列排序或者辅助列公式也行。但是如果你经常需要做这种操作，强烈建议你学一下VBA，绝对能让你事半功倍！相信我，学会VBA，你会打开新世界的大门！你会发现，原来Excel还能这么玩！它不仅仅是一个电子表格，更是一个强大的数据处理工具。而你，掌握了它，就掌握了偷懒的艺术！