我想在excel100行中,每隔一行内容,插入3行空白行,怎么做到,急求!

如题所述

第1个回答  2013-04-08

选中

假设原始数据在A1:F100中,在G列增加一个辅助列,G2中输入0.5,G3中输入3.5,选中G2:G3,下拉到G100,G100的数字就是294.5,G101中输入294,G102中输入293,选中G101:G102,下拉到1为止,再利用选中A:G,利用G列进行排序,就可以插入空行,最后把G列删除。

第2个回答  2013-04-08
需要宏代码才能实现追问

麻烦提供一下

追答

宏代码没有,提供一个变通的办法,你参照一下

宏代码:


Sub a()

    Dim i As Integer

    For i = 100 To 2 Step -1

'第2行前开始才插入空白

        Rows(i & ":" & (i + 2)).Insert

'第5行前插入三行空白,第4行插入三行空白,依次,一直到第2行前插入插入一行空白终止

      Next

End Sub

Sub 隔4行插入表头()

For i = 29 To 6 Step -4

   '结尾行是29,第二次出现表头的行是6,间隔4行插入表头

    Range("A1:K1").Copy

    '表头是A1:K1

    Rows((i - 3) & ":" & i).Insert Shift:=xlDown

    '间隔是i和i-3之间,也就是相差4行插入

Next

End Sub

本回答被提问者采纳
相似回答