请假：如何在sheet中每隔一行插入一行空行？

[Lee@discussions.microsoft.com Kary Lee]

如何在一个已有数据的sheet中自动批量每隔一行插入一行空行？
例如：
1
1
1
变为：
1

1

1

[MRT]

"Kary Lee" <Kary L...@discussions.microsoft.com> wrote in message
news:C0AE3A9C-2D14-416F...@microsoft.com...
> 如何在一个已有数据的sheet中自动批量每隔一行插入一行空行？

使用宏的一个例子

[Alt]+[F11] (启动VBE)
[Alt] → [I] → [M] (插入标准模块)
在这里贴上以下代码

Sub AddUnfilledRow()
Do Until Selection.Cells.Value = ""
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Loop
End Sub

[Alt] → [F] → [C] (回到Excel)

选择要开始插入行的单元格
[Alt]+[F8] → [Enter] (启动宏 AddUnfilledRow )

条件：该列单元格里都有数据
--
MRT

[高柳鸣蝉]

比如你的总记录为100条，新增加一列,填充1、3、5、7、......、99；2、4、6、8、
......、100,再安此列排序。
"Kary Lee" <Kary L...@discussions.microsoft.com> 写入邮件
news:C0AE3A9C-2D14-416F...@microsoft.com...
> 如何在一个已有数据的sheet中自动批量每隔一行插入一行空行？
>

[ｋｅｎｔ ｚｈｕ]

一个比较简单的方法，你可以试试：
添加一个列，叫“序号”，把编号设定为“1，3，5。。。。”，在最后的空行把编号设定为“2，4，6，。。。”，然后按序号排序。

序号 项目A 项目B 项目C
1 AAA BBB CCC
3 AAA BBB CCC
5 AAA BBB CCC
2 　 　 　
4 　 　 　
6 　 　 　

序号 项目A 项目B 项目C
1 AAA BBB CCC
2 　 　 　
3 AAA BBB CCC
4 　 　 　
5 AAA BBB CCC
6 　 　 　

--
===< 0.0 >===
<a href=http://www.1g.cn/bbs/plug-ins/MyArticle/my_index.asp?username=阿彬>我的Blog </a>
"Kary Lee" <Kary L...@discussions.microsoft.com> 写入消息新闻:C0AE3A9C-2D14-416F...@microsoft.com...

[花甲翁]

聰明!

"ｋｅｎｔ　ｚｈｕ" <ｘｋｅｎｔｚｈｕ＠１２６．ｃｏｍ> 撰寫於郵件新聞:uEC621Wd...@TK2MSFTNGP04.phx.gbl...