excel筛选后 怎么在筛选出的数据前 插入行

筛选后会有两种情况，分别具体操作如下：
1、如果筛选后可见行不相邻，CTRL+G，定位条件选可见单元格，右键插入行；
2、如果筛选后可见行有相邻，则需要先给原表格插入辅助列，编序号，然后筛选，选中序列，CTRL+G，定位条件选可见单元格，复制粘贴在下面空白处，给每个序号加上0.1，然后再排序，删除辅助列即可。

这个问题你已经问过一次。我也回复了，不晓得楼主是否看到，
有些东西常规操作无法完成，所以才有了vba
不然vba没存在的必要了你说呢？
如果以下代码与你实际不符，描述一下不符的地方。
alt+F11
菜单，插入，模块，下面内容复制进右边空白区
Sub 插入()
For i = Range("A65536").End(xlUp).Row() To 1 Step -1
If Range("A" & i).Value = 2 Then
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
End If
Next
End Sub

存盘退出，重新打开文件，打开时选择启用宏
然后alt+F8
选中“插入”，执行。即可。
代码中的
If Range("A" & i).Value = 2 Then

这个2就是指的你筛选的值，你可以手动修改。如果是文本，比如A，那代码需要修改为
If Range("A" & i).Value = "A" Then