Question

EXCEL在指定行自动插入行

搜索指定列的数据下自己插入2行，如果C列所有“UG101400”数值下插入两行内容，分别是“UG101201”，“UG101402”

Answer 1

1. 下图有五行数据，现在，要做的就是，在每两行(有数据)之间，分别都插入一空行。

   

2. 实现的方法非常简单，但是请务必遵循如下操作，否则将前功尽弃。

   
   

3. 首先，按下键盘上的CTRL键，按下就别松开，之后，使用鼠标左键去点击每一行的行标(即显示1、2、3、4、5……的最左边的那些按钮)。

4. 　　注意哦，上述必须在按住CTRL键的时候使用左键去点选。想在哪行的前面插入空行，就选择哪一行。

5. 　　选择好了之后，务必保持行的被选中状态，之后，在选中区域的任何一个地方，点击右键，在弹出的快捷菜单中选择“插入”命令。

   　　就这样，极其简单，我们就在每行的上面，都插入了一个空行了。就是效果。

   
   

6. 上述的方法适合于行数比较少的表，如果行数多，得使用其它操作方法。

7. 　　下面提供VBA隔行插入空行的代码：

   　Dim a As Integer 
   　　Dim b As Integer 
   　　a = WorksheetFunction.CountA(Range("a:a")) 
   　　b = 2 
   　　For x = 1 To a 
   　　Rows(b & ":" & b).Select 
   　　Selection.Insert Shift:=xlDown 
   　　b = b + 2 
   　　Next

8. 　　将如上代码作为宏，在Excel中运行即可。

   
   

Answer 2

出了手工插入以外，估计只有宏做得到

Answer 3

可以用vba完成.
右击工作表标签,查看代码,粘贴代码后按f5运行
完成后可以删除代码

Sub test()
For r = Range("c65536").End(xlUp).Row To 1 Step -1
If Cells(r, 3) = "UG101400" Then
Cells(r + 1, 3).Resize(2, 1).EntireRow.Insert
Cells(r + 1, 3) = "UG101401"
Cells(r + 2, 3) = "UG101402"
End If
Next
MsgBox "搞定!请勿重复运行!"
End Sub

追问

那是否能在D列"UG101401"对应行再加"UG10000"，"UG101402"对应行加"UG10001"呢！