今天再分享下汇总指定文件夹下每个工作簿中工作表名称包含某个指定关键词的小代码（当不指定关键词时，则默认汇总所有工作表数据）。

举个栗子。假设有一文件夹，内有十几个工作簿，每个工作簿又各有多个不等数量的工作表，现在我们只想汇总每个工作簿中工作表名称包含“看见星光”的数据，那就可以使用我们今天分享的小代码了。

如果是想把所有工作表的数据一股脑全部汇总呢？不管它什么“看见星光”还是“看见月光”的——也可以使用今天的代码，程序运行中弹出的输入关键词对话框什么都不填直接确定就可以了。

小贴士：

1、（重复说明）如果需要汇总所有工作表的数据，关键词对话框什么都不填直接确定就可以了、另外关键词不区分字母大小写。

2、如果需要汇总的工作表含有多个不同的关键词……也是可以的，由于代码汇总后的数据后增加一个“来源工作表”的字段，表亲们可以先把所有工作表的数据汇总，然后根据“来源工作表”字段对数据明细进行筛选删除操作。

代码如下：

Sub Collectwks()

Dim Sht As Worksheet, rng As Range, Sh As Worksheet

Dim Trow&, k&, arr, brr, i&, j&, book&, a&

Dim p$, f$, Headr, Keystr

'

With Application.FileDialog(msoFileDialogFolderPicker)

'取得用户选择的文件夹路径

.AllowMultiSelect = False

If .Show Then p = .SelectedItems(1) Else Exit Sub

End With

If Right(p, 1) <> "\" Then p = p & "\"

'

Keystr = InputBox("请输入需要合并的工作表所包含的关键词：", "提醒")

If StrPtr(Keystr) = 0 Then Exit Sub

'如果点击了inputbox的取消或者关闭按钮，则退出程序

Trow = Val(InputBox("请输入标题的行数", "提醒"))

If Trow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub

Set Sht = ActiveSheet

Application.ScreenUpdating = False '关闭屏幕更新

Cells.ClearContents

Cells.NumberFormat = "@"

'清空当前表数据并设置为文本格式

ReDim brr(1 To 200000, 1 To 2)

'定义装汇总结果的数组brr，最大行数为20万行，2列是临时的

'

f = Dir(p & "*.xls*") '开始遍历工作簿

Do While f <>""

If f <> ThisWorkbook.Name Then '避免同名文件重复打开出错

With GetObject(p & f)

'以'只读'形式读取文件时，使用getobject方法会比workbooks.open稍快

For Each Sh In .Worksheets '遍历表

If InStr(1, Sh.Name, Keystr, vbTextCompare) Then

'如果表中包含关键词则进行汇总(不区分关键词字母大小写）

Set rng = Sh.UsedRange

If rng.Count > 1 Then

'如果rng的单元格数量大于1……

book = book + 1 '标记一下是否首个Sheet,如果首个sheet，BOOK=1

a = IIf(book = 1, 1, Trow + 1) '遍历读取arr数组时是否扣掉标题行

arr = rng.Value '数据区域读入数组arr

If UBound(arr, 2) + 2 > UBound(brr, 2) Then

'动态调整结果数组brr的最大列数，避免明细表列数不一的情况。

ReDim Preserve brr(1 To 200000, 1 To UBound(arr, 2) + 2)

End If

For i = a To UBound(arr) '遍历行

k = k + 1 '累加记录条数

brr(k, 1) = f '数组第一列放工作簿名称

brr(k, 2) = Sh.Name '数组第二列放工作表名称

For j = 1 To UBound(arr, 2) '遍历列

brr(k, j + 2) = arr(i, j)

Next

Next

End If

End If

Next

.Close False '关闭工作簿

End With

End If

f = Dir '下一个表格

Loop

If k > 0 Then

Sht.Select

[a1].Offset(IIf(Trow = 0, 1, 0)).Resize(k, UBound(brr, 2)) = brr '放数据区域

[a1].Resize(1, 2) = [{"来源工作簿名称","来源工作表名"}]

MsgBox "汇总完成。"

End If

Application.ScreenUpdating = True '恢复屏幕更新

End Sub

这两天的宏教程都提到了高级筛选这个功能，不过只是用到最基本的用法。高级筛选其实是一个很好用的功能，今天卢子来全面讲解。

1.按关键词筛选

高级筛选最重要的就是条件区域，资产名称四门书柜，日期2017/1/1，都是写得非常标准。

这里只做一个高级筛选的演示动画，其他的案例不做动画演示。在高级筛选的时候，最最重要的是确认三个区域有没写错。

可是在实际工作中，很多时候都是用简称的，比如书柜。这样一来就没办法筛选，怎么按关键词筛选呢？

*代表通配符，这个我们经常在公式中使用，其实也可以用在高级筛选这里。资产名称*书柜，意思前面包含某些词的书柜，这样就可以将符合条件的内容筛选出来。

资产名称*柜，意思前面包含某些词的柜，这样就可以将符合条件的内容筛选出来，非常方便。

2.按日期区间筛选

实际工作上，有的时候并不是按某一天筛选的，而是按某个区间筛选的，比如日期>2017/1/1。

直接在单元格写上>、<等符号即可，比较符号经常会有人写错，需要特别注意。输入法切换到英文状态，按圈住的这两个符号。

3.按年份筛选

按年份筛选比较特殊，属于冷门的知识点。在H1必须把标题去掉，跟常规的高级筛选完全相反，还有在H2输入公式，这个公式只针对第一行的日期，不管单元格是TRUE，还是FALSE，都对结果没任何影响。

=YEAR(E2)=2017

同理，可以对日期按月份筛选，在H2输入公式。

=MONTH(E2)=1

当然，高级筛选还有很多用法，这个留给下回再讲。

在使用Excel处理大数据过程中，为了让数据分析起来更加的有条理，我们通常会通过筛选命令来实现对数据进行分类，这样有利于排除掉那些于我们不相干的信息，减少我们的工作强度。对于大多数的朋友来说，要找到筛选命令不难，但是如何需要经常使用到该命令的话，个人建议：掌握本篇有关筛选命令的内容，会让你的办公效率提升提升一截。为了便于理解，教程以Excel2013为例，教程采用含有多个合并单元格标题表格为例来介绍筛选命令。

1、选择筛选标题行：对于具有多行标题且含有合并单元格的表格来说，需要选择指定的筛选标题行才行，教程以筛选第二行标题为例，首先单击第二行的行标题，即可选择第二行整行。

2、使用筛选命令：单击菜单栏中的数据，在排序和筛选功能区找到筛选命令，单击该命令即可实现筛选功能。此时第二行标题每个单元格右侧都会增加一个筛选命令按钮。注：筛选命令快捷键Ctrl+Shift+L，重复使用此快捷键可以激活/取消筛选功能。

3、筛选功能分类：筛选命令提供了多种筛选方式，其中保存升降，颜色，文本，还有常用的自己勾选指定，当然如果自己对需要筛选的内容不是很清楚，只有一个模糊概念，也可以使用搜索关键词来实现筛选操作。

感兴趣的朋友，记得收藏或分享一下再走哟，您的支持是我不懈努力的动力，谢谢！（*O*）

梦里寻她千百度，蓦然回首，那人尽在灯火阑珊处！

作为数据加班狗的你，在面临一大波数据时，是否经常会有这样的感慨：如何快速获取我要的数据？

常规的做法当然是采用Excel的筛选功能。这种方法没有问题，但是这种模式是在对原始数据进行筛选，未被筛选的结果会被隐藏，倘若这些数据还被其他Sheet引用，可想而知，会出现一个什么样的结果？

So，引入今天的主题，高级筛选

例1：筛选符合条件的记录[单条件]，如：获取重庆区域订单的所有信息

说明：这种操作方式，将原始符合条件的记录全部展示出来（即所有列）

例2：筛选符合条件的部分记录[单条件]，如：获取重庆区域订单的时间，类别，销售额等信息

说明：这种操作方式，需要在例1的基础上，制定出需要获取的列（注意列名的一致性）

例3：筛选符合条件的记录[多条件]，如：获取重庆区域并且类别为产成品的订单的所有信息

说明：典型的多条件，并且关系的查询，此时需要注意的是，条件的书写规范，需要在同一行，即：如果是并且的关系，则条件的书写应该在同一行

比如：获取重庆区域并且类别为产成品或代工的订单的所有信息

例4：筛选只要符合多条件中任意一个即可，如：获取所有类别为代工的或者销售额大于1500的订单信息

说明：当涉及到多条件【或】的查询时，其条件的书写格式是错行分开的，即不在一行，与例3恰好对应

例5：精确匹配筛选查询，如：获取重庆区域，类别为半成品的订单信息

说明：此时你会发现，当条件为半成品时，半成品[外协]也会被筛选出来，因为Excel高级筛选，在这部分是模糊查询，当条件词汇从左开始，只要包含了这个条件词汇，其都会筛选出来，类模糊查询，那如果要精确查询，该如何处理呢？

需要对条件加“=”符号。即：“=半成品”

例6：使用公式作为筛选条件，如：获取销售业绩大于平均值的订单信息

说明：这里注意采用绝对引用的方式，并且条件栏位的上方不需要带列名（因为不存在该列）

例7：筛选的结果放到新的工作页签

当希望将筛选的数据结果放在另外一个新的Excel页签的时候，会提示如下信息：

此时，根据提示，需要对操作做如下的处理：

说明：需要在新的页签下开始做高级筛选即可

胖斯基| 说

高级筛选，知晓这7种常规应用模式即可。一般在做数据处理的时候，经常会使用到，如：将原始数据进行筛选再加工，注意：此时的筛选并非对源数据做处理，还是在源数据的基础上，进行新一轮的处理，从而保障原始数据的完整性和独立性！

如需获取源文件，请私信，回复关键词：高级筛选 即可获取源文件

同样也依旧欢迎爱学习的你，欢迎转发，并留下你的看法和观点！

欢迎关注天善智能，我们是专注于商业智能BI，大数据，数据分析领域的垂直社区，学习，问答、求职一站式搞定！

每周2-3场免费数据领域公开课，每月线下活动，欢迎关注！

一、简介：

大家好，我是一言，只做实操分享。师从零一老师，用师父的一句话与大家分享：“自律而后自驱，自驱而后自信，自信方能沉稳！”

今天给大家带来的仍旧是一款能解放运营双手的小工具——筛选标题包含的关键词

二、说明：

1.建议安装Excel2016使用此工具，否则会运行时候会报错

2.本文以内裤为案例作为说明，文中涉及工具：Excel2016、生意参谋

3.工具获取方式，请参阅文章底部

三、解决问题

1.如何快速过滤掉和标题不相关的关键词？

2.如何快速过滤掉支付转化率为0的关键词？

——跟着学，你能解答上面的问题

四、使用说明

1.打开筛选工具→把宝贝标题复制到A1位置

备注“输入自己的宝贝的全标题到A1位置”

2.打开生意参谋→市场→搜索词查询→输入“丁字裤女”→搜索

备注“输入自己宝贝的关键词到搜索框，可以输入多个，根据自己的需求来”

3.相关搜索词→勾选指标→把所有的相关搜索词全部下载下来

4.把下载下来的关键词，复制粘贴到筛选工具

5.点击“筛选”按钮→确定

筛选出来的关键词，都是标题所包含的，并且支付转化率>0

至于这个工具具体能干嘛，请各位小伙伴自行脑补！

——好了，今天就到这里，你学会了吗？

我们在工作当中，表格的排序是职场人的必须面对的一样工作。排序作为表格中的基础操作之一，不仅仅是我们所熟悉的升序和降序两种，它可比我们想象的功能要厉害的多。小编今天就带大家一起来学习，表格中如何进行多种条件的筛选？

切换到【开始】选项卡中，在【编辑】组中，我们点击【排序和筛选】的下拉列表。有以下三种功能：升序、降序、自定义排序。

一、多个条件进行排序

点击【自定义排序】功能键，弹出【排序】对话框。在【主要关键字】处选择排序条件，然后再点击左上角的【添加条件】，此时主要关键字下方添加了【次要关键字】，在此处选择排序条件。点击【确定】后，我们就完成了多条件排序。

注意：如果表格中没有表头，本应该参与排序的内容，却并没有被排进去。在【排序】对话框的右上角，取消勾选【数据包含标题】的选项，就可以啦。

二、自定义序列

我们会遇到需要以职位职务进行排序，这种特定的顺序排序，首先我们需要确定职务有哪些种类和排序顺序。在【排序】对话框中，最后一项的【次序】中点击【自定义序列】，弹出【自定义序列】对话框，我们在对话框中输入职务的排序方式，并点击【添加】。我们就可以在左侧列表中看到我添加的排序方式，选中后点击【确定】就可以啦。

以上。

希望大家在阅读之余，多加练习办公软件Office的使用，提高我们的工作效率，成为职场高效率的一员。我将在每周都进行内容更新，大家一起学习，共同进步。

Office小技巧-Excel快速选中单元格

Office小技巧-Excel打印工作表技巧

Office小技巧-精挑细选的EXCEL常用快捷键

小小排序隐藏技巧还真不少，除了默认最常用的在列方向按照常规的字母顺序进行排序外，还可以按照按笔划、单元格填充色、字体颜色和单元格图标排序，甚至是多个关键字进行排序，最后小编要说，除了列，Excel是可以按行排序的哟！

01

课题

对常见的排序做个深入的了解。

02

简单排序

对数据进行排序是数据分析不可缺少的组成部分,通过排序，可以使我们方便地找到要查找的值。在要排序的列中选择一个单元格，本例中选择C2单元格，在“开始”选项卡上的“排序和筛选”组中，执行升序操作，升序排序时，文本会按照“从 A 到 Z 排序”，数字按从小到大进行排序，降序则与之相反。

03

按多个关键字排序

除了单纯地按日期排序，还可以添加一个排序条件，按照地区做降序排序，工具栏数据-排序，在弹出的排序对话框中，依次添加主要关键字和次要关键字如图中所示，完成排序。

04

按笔画排序

除了按字母排序，Excel其实还可以按笔画排序。首先仍然是选择排序区域所在的任一单元格，只不过这次小编excel小课堂要从“数据”选项卡执行排序操作了，工具栏数据-排序，打开排序对话框。在弹出的对话框中，单击“选项”按钮，将默认的方法选项“字母排序”修改为“笔画排序”，点击确定按钮。设置排序主要关键字为“姓名”，排序依据“数值”，次序“升序”，点击确定按钮，就可以了。关和曲同样都是6画，这顺序该咋定呢，先按笔画数由少到多排序，相同笔画数的按汉字书写时笔画顺序（先横后竖、先撇后捺、从上到下、从左到右......)排序。

05

按字体颜色排序

工具栏数据-排序，在弹出的排序对话框中，设置排序关键字“产品名称”，排序依据“字体颜色”，根据需要设置颜色，点击“复制条件”新增次要排序条件，依次添加三种颜色，完成顶端排序操作，如需在低端显示，设置“在底端”

06

按单元格图标排序

设置了条件格式，是否可以考虑按照图标来排序呢？方法同上，只是排序依据由单元格颜色调整为“单元格图标”

07

按单元格填充色排序

类似于字体颜色排序，选取排序列的任一单元格，工具栏数据-排序，在弹出的排序对话框中，主要关键字“部门”，排序依据设置为“单元格颜色”，设置深色在最顶端，这样就可以保证对应单元格颜色的行排在顶端，添加条件，设置次要关键字为“部门”，这次设置浅色，点击确定按钮，排序完成。

我们平时会使用百度后台的关键词规划师又或者其它工具搜出非常多的关键词，动不动就破了千，这还是做一些专业类的小网站。那这么多的词肯定要涉及到分类，那么我们应该怎么分类呢？

今天就以我实际操作的耐高温漆以及相关词为例，来用图表的方式介绍一下关键词采集和Excel表工具分类。

关键词采集

使用百度推广后台的关键词规划师，在后台里关键词搜索页面输入“耐高温漆”。

这时候您应该看明白了怎么操作吧。其实第8个步骤分类是最关键的，但是前提要建立在自己对关键词和行业的把握上面，这个功夫还是要下一下的！

今天就讲到这里了，希望对您有帮助。明天见!

1.以下图这个为例，点击数据菜单栏内的筛选。

2.在第一行标题栏内，点击标题右侧的三角符——文件筛选——自定义筛选。

3.看到自定义筛选界面的显示行下面框内有很多选项供选择。

4.选择包含，在后面方框内输入“阳”。

5.点击确定，那么就完成了以“阳”为关键字的筛选。

（本文内容由百度知道网友茗童贡献）

在Excel中多关键字排序就是对工作表中的数据按两个或两个以上的关键字进行排序，今天我们来讲解一下如何针对多个关键词进行排序。

如果对多个关键字进行排序时，在主要关键字完全相同的情况下，会根据指定的次要关键字进行排序；在次要关键字完全相同的情况下，会根据指定的下一个次要关键字进行排序，依次类推。具体操作如下。

步骤 1 单击要进行排序操作工作表中的任意非空单元格，然后单击“数据”选项卡上“排序和筛选”组中的“排序”按钮。

步骤 2 在打开的“排序”对话框中设臵“主要关键字”条件，然后单击“添加条件”按钮，添加一个次要条件，再设臵“次要关键字”条件，如图1左图所示。用户可添加多个次要关键字，设臵完毕，单击“确定”按钮即可，效果下图所示。

在Excel中多关键字排序时，选中“排序”对话框的“数据包含标题”复选框，表示选定区域的第一行作为标题，不参加排序，始终放在原来的行位臵；取消该复选框，表示将选定区域第一行作为普通数据看待，参与排序。