请问如何在表中特定位置插入一行

jkou

工作表中有很多表，准备在每个表中的特定位置插入一行，但是每个表的行数不一样，手工插入实在太慢，不知那位老师能帮写个代码，对vba实在不懂，谢谢！
或者还有其他的方法麻烦告知一下。
具体的见附件。

mineshine

1. Sub test()
   
2. Dim c As Range
   
3. With Sheets("国有住宅")
   
4.     Set c = .UsedRange.Find("评估总价", , , 1)
   
5.     If Not c Is Nothing Then .Rows(c.Row).Insert Shift:=xlDown
   
6. End With
   
7. End Sub
   

复制代码

jkou

先感谢，再去试试。

jkou

再请教mineshine：
运行代码后，只在第一个表插入行，后面的表每变化，在运行，还是在第一个插入行，不知如何修改一下。
再次感谢！
急用

mineshine

1. Sub test()
   
2. Dim c As Range, sh As Worksheet
   
3. For Each sh In Sheets
   
4.     Set c = sh.UsedRange.Find("评估总价", , , 1)
   
5.     If Not c Is Nothing Then sh.Rows(c.Row).Insert Shift:=xlDown
   
6. Next sh
   
7. End Sub

复制代码

zhuxucheng

Sub test()
Dim a As Integer, endrow As Integer, r As Integer, b As Integer, Arr()
With Sheets("国有住宅")
    endrow = .[A65536].End(3).Row
    r = 1
    For i = 7 To endrow
        If .Range("A" & i) = "评估总价" Then
            ReDim Preserve Arr(1 To r)
            Arr(r) = .Range("A" & i).Row
            r = r + 1
        End If
   Next i
    For i = 1 To UBound(Arr)
        a = b + Arr(i)
        .Rows(a).Insert Shift:=xlDown
        b = i
    Next
End With
End Sub

jkou

感谢zhuxucheng以及mineshine，问题解决。

艺星饰品

支持下楼主，继续加油啊！！！！！艺星饰品厂

crane81

大神回复，及其有用

zugb_miro

非常感谢，超实用，可是我想请问怎么才能模糊查询，就是指定的单元格内容包含相同的字符来作为查询对象，查询Total，在Total下面插入行