[已解决]求助！如何每隔一行行插入四行？

lspider · 发表于 2010-4-28 17:26

请教一下~

如何在每行人名下插入四行空白行？

看到网上有教用排序的方法的

可是我要保持人名的顺序不变~

因此各位帮帮忙看有什么方法~

NMp3j9fp.rar (33.98 KB, 下载次数: 15)

穿拖鞋乱舞 · 发表于 2010-4-28 18:32

求助！如何每隔一行行插入四行？

由于数据多跑起来慢，用了几行试验了一下。就用到定位插入行。可能有点麻烦，供你参考。

cjainwei · 发表于 2010-4-28 18:57

Sub t()
Dim i As Long
Application.ScreenUpdating = False
With Sheet2
For i = 1 To Sheet1.[c65536].End(3).Row
Sheet1.Rows(i).Copy .Cells(5 * (i - 1) + 1, 1)
Next
End With
Application.ScreenUpdating = True
End Sub

开辆小富康 · 发表于 2010-4-28 19:03

第一步，和2楼的一样，插入一行

第二步，按F4

第三步，再和2楼一样，查找这两列的常量，插入一行。

OK完成。

不过你的数据大，会象放电影一样的。

开辆小富康 · 发表于 2010-4-28 19:11

来个幻灯，哈。真有趣

求助！如何每隔一行行插入四行？

开辆小富康 · 发表于 2010-4-28 19:21

不用看幻灯的办法：在某空列，插入1，2，3，4一直到最后，双击右下角，就会自动填充。然后复制这些数字,ctrl+下箭头,在这一列后，再粘这些数字，重复四次这样的序列。这一列排序。

然后删除这一列的数字

[此贴子已经被作者于2010-4-28 19:24:50编辑过]

开辆小富康 · 发表于 2010-4-28 19:24

求助！如何每隔一行行插入四行？

做了一个插三行的例子，你可以做插四行的，一样的

QQ9947 · 发表于 2010-4-28 19:25

二楼，学习了！！！[em17][em17][em17]

jiangming · 发表于 2010-4-28 19:25

QUOTE:

以下是引用开辆小富康在2010-4-28 19:11:00的发言：
来个幻灯，哈。真有趣

[em04]

LDPSCB · 发表于 2010-4-28 19:36

看看，学习一下

		自动登录	找回密码
密码			注册