Excel筛选数据，用这个方法，快准狠！

哈喽，大家好~

Excel里的筛选，大家都用过吧！

打开筛选按钮，去掉全选，从下拉中勾选要筛选的内容。

这个功能看着好，用起来却很不方便。

而且Excel自带的筛选，只能筛选行内容，不能筛选列！

今天来教大家一个超级炫的操作：你只需要单击一下，就能立马实现列、行的自动筛选，来看看效果：

这样的效果是如何实现的呢？

一、 准备数据

输入数据，点击“插入→图表→柱形图”，完成图表设计。

二、 插入形状

在B1单元格，点击“插入→形状→矩形”。插入一个矩形后，调整大小，图形的高度和单元格一致，宽度则比B1单元格略小，添上文字。

然后向右填充到G1单元格，再选中B~G列，调整列宽到和插入的形状一致，使得插入的图形可以完全覆盖下方的单元格。

之后，用相同的方法在A2、A3、A4插入形状，修改对应文字。

小提示：

如果需要改变形状颜色，可单击任意形状，再按Ctrl+A全选并设置填充颜色。

三、 添加代码

1. B列隐藏代码设计

按下Alt+F11打开VB编辑窗口，点击“插入→模块”，然后输入下列的代码，制作一个名为“一月”的宏：

Sub 一月()For i = 2 To 7If Cells(1, i) = "1月" Then Cells(1, i).EntireColumn.Hidden = TrueNextEnd Sub

代码解释：

先设置一个变量i（表示列号的变量），然后从第2列遍历到第7列（即B~G列）。如果其中第一行的单元格数值等于“1月”，那么就将该单元格所在的列“Hidden”（隐藏）属性设置为TRUE（表示将其隐藏）。

2.其他列代码设计

操作同上，继续制作其他月份的隐藏代码，更改宏的名称为“二月”、“三月”……、 “If Cells(1, i) =”后的代码也更改为对应月份，完成列隐藏代码的设置。

3.行隐藏和复原代码设计

操作同上，设置一个变量j，行隐藏属性代码为“Cells(j, 1).EntireRow.Hidden = True”）。最后再设置一个“取消隐藏”代码（添加i、j两个变量，并将行列属性设置为“False”），至此完成所有代码的设置。

四、关联宏

返回Excel窗口，右击B2单元格插入的形状选择“指定宏”，接着在弹出的宏列表选择“一月”，点击“确定”完成关联。这样点击插入的“一月”形状，B列就会变自动隐藏了。

再依次点击其他形状，分别关联到对应的宏名。

五、举一反三

我们还可以通过设置不同的代码来实现更多筛选效果。

比如：各产品的月销售额小于50万，那么就是不合格，现需要筛选出合格的月份数据。

操作步骤：可以选中B2:G4区域，点击“开始→条件格式→小于”，设置数据小于50的单元格填充红色。

接着同上输入下列的代码生成“筛选”宏：

Sub 筛选()For i = 2 To 7For j = 2 To 4If Cells(j, i) < 50 Then Cells(j, i).EntireColumn.Hidden = TrueNextNextEnd Sub

代码解释：

先设置两个列、行的变量，然后在指定区域遍历，如果某个单元格的数值小于50，那么就将单元格所在的列属性设置为隐藏。

最后，插入一个名为“筛选”的形状并关联到“筛选”宏。

这样，当我们点击“筛选”就可以完成数据的筛选操作了。

好的，以上就是今天的所有内容啦！