如何在含有某些特定内容单元格所在行上面插入空白行

dawei8073

如附件所示，在含有“小计”的单元格上方插入新的一行，如何可以做到？不知道除了编程外还有没有其他的好办法 （谢谢各位的回答，我了解啦）

[ 本帖最后由 dawei8073 于 2010-5-8 11:57 编辑 ]

whsfhwm

Sub test()
For j = [a65536].End(xlUp).Row To 1 Step -1
    If Range("a" & j).Value = "小计" Then Range("a" & j).EntireRow.Insert
Next j
End Sub

hanter007

不用编程也是可以的.
右边新建一列,输入=A1="小计",转换公式为数值
然后用查找替换掉 TRUE为 空.
再定位空值,然后 插入一行就得了.

dawei8073

3楼的办法，在定位空值后如何插入新的一行？不明白

dawei8073

我了解啦，谢谢各位的回答

boubing

whsfhwm 发表于 2010-5-8 11:19
Sub test()
For j = [a65536].End(xlUp).Row To 1 Step -1
    If Range("a" & j).Value = "小计" Then R ...

老师，如果是在每个小计下面插入空白行呢？

kyxfyzg

boubing 发表于 2023-3-13 16:38
老师，如果是在每个小计下面插入空白行呢？

Sub test()
For j = [a65536].End(xlUp).Row To 1 Step -1
    If Range("a" & j).Value = "小计" Then Range("a" & j+1).EntireRow.Insert
Next j
End Sub