求EXCEL VBA指点，关于自动筛选/高级筛选的结果的删除问题

Question

在一张excel表中对某一列进行筛选，想把筛选结果删除，如果（specialcells(xlcelltypevisible)) 这条语句，会把表头也删除掉，想求一条VBA语句，保留表头，只把删选出来的结果删除。

谢谢大家

Answer 1

Excel小技巧九则

1、在相对引用、绝对引用和混合引用间快速切换 在Excel进行公式设计时，会根据需要在公式中使用不同的单元格引用方式，这时你可以用如下方法来快速切换单元格引用方式：选中包含公式的单元格，在编辑栏中选择要更改的引用，按F4键可在在相对引用、绝对引用和混合引用间快速切换。例如选中“A1”引用，反复按F4键时，就会在$A$1、A$1、$A1、A1之间切换。

2、快速复制公式内容

当我们在Excel工作表中修改某个单元格中的公式后，如果要将同列的其余单元格中的公式进行复制时，大多数情况下都是利用拖动填充柄的方式来进行公式复制。现在你试试在单元格右下角的小黑十字上用鼠标快速点击两下，是不是同列单元格中的所有的公式都复制好了，效果不错吧。

3、让活动单元格向任意方向移动

在Excel中，你是否知道按下回车键后，活动单元格可以向上、向左、向右移动，甚至原地不动。在“工具”菜单上，单击“选项”，再单击“编辑”选项卡，选中“按Enter键后移动”复选框，然后在“方向”框中选择移动方向，若要保留在当前单元格中原地不动则清除该复选框

4、快速命名单元格区域 先将需要命名的单元格区域选中，然后用鼠标点击编辑栏左端名称框，直接输入单元格名称即可。

5、选择一个含有超链接的单元格

在Excel中选择含有超链接单元格是一件比较麻烦的事情。如果直接点击该单元格，就会跳转到超链接目标去了。若要在选择含有超链接单元格时不跳转到超链接目标上，你只要在单击单元格的同时按住鼠标按键直到光标变为空心十字形状，然后放开鼠标按钮就可选择这个含有超链接的单元格。此外，你也可以先选择含有超链接单元格旁边的单元格，然后利用方向键键盘上方向键将活动单元格移动到含有超链接的单元格中，也能达到同样效果。

6、快速输入公式

如果你需要在B3至B20单元格区域录入格式相同的公式，这时你可先将B3至B20单元格区域选定，然后按F2键再键入公式。公式录入后按Ctrl+Enter，这样就可以在所选择区域内所有单元格中输入同一公式。在这里你还可以选择多个不相邻的单元格区域来进行此项操作。

7、隐藏单元格中的所有值

有时候，我们需要将单元格中所有值隐藏起来，这时你可以选择包含要隐藏值的单元格。选择“格式”菜单中“单元格”命令，单击“数字”选项卡，在“分类”列表中选择“自定义”，然后将“类型”框中已有的代码删除，键入“;;;”（三个分号）即可。

8、进行行列转置

当我们设计好一份Excel表格后，如果发现行和列的位置不太符合自己的要求，希望将行与列的位置进行调换。这时你可先将需要转换行列位置的单元格选定，单击工具栏上“复制”按钮，然后在复制区域之外选定粘贴区域的左上角单元格。选择“编辑”菜单下的“选择性粘贴”命令，选中“转置”选项，点击“确定”按钮，这样就可完成表格行列转置。

9、添加纸牌游戏

使用Excel时间长了，感觉有点累了，让我们休息一下，来玩一盘纸牌游戏吧。选择“工具”菜单下的“自定义”命令，打开“自定义”窗口，点击“命令”标签卡，在“类别”中选择“工具”，从“命令”中找到有纸牌形状且为“自定义”名称的图标将其拖到常用工具栏中，关闭自定义窗口，然后点击上具栏上纸牌按钮就可开始玩纸牌游戏了。

Answer 2

Sub tt()

Cells(1, 1).Select
Selection.AutoFilter Field:=1, Criteria1:="5"
Range("a2:a100").SpecialCells(xlCellTypeVisible).Select
Selection.Delete
End Sub
把SpecialCells(xlCellTypeVisible这里前面的range不要把表头写进去 比如我这里就把A1其实就是第一行排除在外了 你看看这样可以么？追问

谢谢提供思路，我尽快试试，感激不尽

追答

你看看可以不可以 呵呵

本回答被提问者采纳

Answer 3

当你筛选完之后输入运行以下宏，前提是A列是没有断点的，就是说没有空值。
如果你觉得还OK就给我分吧，哈哈！！祝你工作顺利！！
Sub Macro1()
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
End Sub