办公人员每天都要跟电脑打交道，用的最多的软件是office。其中word用的最为广泛，公文打印必不可少，ppt会议演示用的最多，excel表格财务部门必备。

这里要说的是excel最常用的操作，筛选打印表格。

举个例子，根据姓名打印每个学生的成绩

正常的操作步骤是：

1、用excel打开表格，点击数据筛选，在姓名字段选择名字打印

excel实现批量筛选打印

2、根据不同姓名重复上面的筛选打印步骤。

对于上面的操作步骤，在姓名数量不多的情况下，是简洁快速的。如果学生数量达到成千上百，再用这种手工方式来筛选打印很费时费力。

这里介绍个小技巧，用excel自带的VBA来实现批量筛选打印，可以达到事半功倍的效果。

1、用excel打开表格，在G列把所有的姓名填好，注意不要有重复的。

excel实现批量筛选打印

2、按alt+F11打开VBA工程界面，在工程界面新建模块，然后在代码区域输入下面的代码：

excel vba实现批量筛选打印

保存后，按F5运行，注意在这之前要先把打印机设置好。

用excel实现批量筛选打印，有多种方法，这里介绍了一种用vba代码实现的方法，自由度比较高。

Visual Basic for Application（简称VBA）是一种必须依赖母系程序方能使用的程序，属于VB程序语言的一个子集。我们常用的Excel电子表格除了常规的可视化命令之外，还可以通过VBA代码来操控Excel实现一些较复杂的逻辑运算及统计分析等。我们不仅可以使用代码实现数据的统计运算，还能实现图表的自动生成于刷新，以及图形的旋转与移动。在网上我们可以找到有很多大牛基于Excel的VBA，开发了一些具有特定功能的代码，以及酷炫的游戏界面等。如果您对这方面感兴趣的话，那你必须掌握的第一步操作就是打开VBA界面来认实它。

闲话少聊，下面就重点介绍一下从Excel窗口切换到VBA界面的操作技巧。

方法一是通过功能区的选项卡来实现。首先在菜单栏中找到开发工具项，然后在代码功能模块中找到Visual Basic命令按钮，单击它即可快速切换到VBA界面。若菜单栏中没有开发工具这一项，需要设置自定义功能区下的主选项卡来调出该命令。

2.方法二是通过工作表标签来实现。首先在Excel界面左下角找到工作表标签区域，右键单击任一一个工作表标签，本教程以Sheet1工作表为例，在弹出的右键菜单中选择查看代码命令，随后即可激活VBA界面。

3.方法三是通过快捷键法实现。在Excel操作界面下，按下组合键Alt+F11即可快速切换到VBA界面；在VBA界面下按此组合键即可快速关闭VBA窗口。

在电子表格中，如下代码可建目录列表

注意

目录工作表中提取各工作表名称

其余工作表第一个单元格显示返回目录

所有工作标字体，列宽，视图比例大小设置

其中用到FOR NEXT语句，用到单元格链结，用到COPY方法。

代码如下：

Sub 生成目录链接()

Dim i As Long

For i = 1 To Sheets.Count

Sheets(i).Columns.Clear

Sheets(i).Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ActiveWorkbook.Name, SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

Next

For j = 1 To Sheets.Count - 1

Sheets(j).Cells(1, 1).Copy Sheets(j + 1).Cells(1, 1)

Sheets(j + 1).Cells(1, 1).Hyperlinks(1).TextToDisplay = "返回目录"

Range("A1").Font.Underline = xlUnderlineStyleNone

Range("A1").Activate

For k = 1 To Sheets.Count

With Sheets(k).Columns.Font

.Name = "宋体"

.FontStyle = "加粗"

.Size = 23

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorHyperlink

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With

Sheets(k).Select

ActiveWindow.Zoom = 100

Columns.EntireColumn.AutoFit

Sheets("目录").Activate

Cells(1, 1).Font.Color = 255

ThisWorkbook.Save

End Sub

最近两周一直在讲解如何利用VBA，在EXCEL的多个工作表中进行大数据的查询。今天把两周的内容精炼总结一下，想利用这些程序的朋友，可以拷贝下面的代码，放在编译器中就可以直接使用啦。

1 Sub KK()

2 Sheets("SHEET1").Select

3 I = 2

4 Do WhileCells(I, 1) <>""

5 Cells(I,1).Select

6 TT =Cells(I, 1)

7 Cells(I, 2) = ""

8

9 SetFJX =Sheets("A").Range("A1:A"&Sheets("A").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

10 If NotFJXIs Nothing Then Cells(I, 2) = Sheets("A").Cells(FJX.Row, 2)

11

12 SetFJX =Sheets("B").Range("A1:A" &Sheets("B").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

13 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("B").Cells(FJX.Row, 2)

14

15 SetFJX =Sheets("C").Range("A1:A"&Sheets("C").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

16 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("C").Cells(FJX.Row, 2)

17

18 Set FJX=Sheets("D").Range("A1:A" &Sheets("D").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

19 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("D").Cells(FJX.Row, 2)

20 I = I + 1

21 Set FJX =Nothing

22 Loop

23End Sub

代码截图：

工作表截图：注意名称

下面对代码进行逐行讲解：

1 Sub KK() ’KK给出程序的名称

2 Sheets("SHEET1").Select ’指选择sheet1的工作表，并进行操作

3 I = 2 ’是对变量i赋初始值，一般要用Dim i as Integer 进行声明。这里可以仅用Dim i， 也可以再简单点，直接用也行。但这不是说Vba是动态语言，相反，这恰恰说明了VBA作为静态语言的灵活性。

4 Do While Cells(I, 1) <> "" ’DOWHILE是一个循环，是循环的标识，回调语句是loop，WHILE跟循环条件，是指第i行第一个单元格不为空建立一个循环。 变量是i，条件是直到i行的第一个单元格是空值。

5 Cells(I, 1).Select ’要对第I行一个单元格定位，这也是为了程序具有可视性。

6 TT = Cells(I, 1) ’然后把它的值value取出赋給TT，这也是为了以后操作简单。这里TT也是直接用的，略去了声明语句。

7 Cells(I, 2) ="" ’要把第2个单元格清空，两个半角双引号，中间什么也没有就是空值，和空格不同，空格是" "。

8

9Set FJX=Sheets("A").Range("A1:A"&Sheets("A").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

’SET是令FJX等于一个值，(这里也应先给FJX 事先声明此程序略去了)，

sheets（"A"）是指名称为A的那个工作表；

Range("A1:A"& Sheets("A").Range("A1").End(xlDown).Row)是指从A1单元格开始向下直到最后一个不为空的单元格区域；

Sheets("A").Range("A1:A"& Sheets("A").Range("A1").End(xlDown).Row)是指A的工作表中在A1到最后一个不为空的单元格区域；

Find(TT,AFTER:=[A1], LOOKAT:=xlWhole)要查找值为TT的单元格，在A1的after后开始查询，是完全匹配,把区域和之后的操作间隔一个。

这样就把查找的结果赋给了FJX。

10 If Not FJXIs Nothing Then Cells(I, 2) = Sheets("A").Cells(FJX.Row, 2)

’if then 语句, 如果...那么......。查询的结果放在FJX，FJX is Nothing就是说没有查到结果。给它一个逻辑否定，就是前面加个NOT，其意思就是FJX不为Nothing 就是查到了，查到了怎么办？fjx.Row是指查到数据的行号。Sheets("A").Cells(FJX.Row,2)就是在A工作表查到的行号的第2个单元格的值，Cells(I, 2) = Sheets("A")。Cells(FJX.Row, 2)即第i行第2个单元格的值将等于工作表A中查到的行号的第2个单元格的值 Cells(I, 2) 是哪个工作表呢？指Sheets("SHEET1")。

11

12 SetFJX =Sheets("B").Range("A1:A"&Sheets("A").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

13 If Not FJX Is Nothing Then Cells(I, 2)=Sheets("B").Cells(FJX.Row, 2)’这两行类似于第9第10行，是处理当在B工作表中继续查找的操作。当查到后会有第13行的操作，和第10行的操作一样，这里要注意：第一，xlwhole是指单元格完全匹配的查找。第二，连接字符串的符号是＆，不可用加号，当用到.cells时前面要用With，现在还没有用到，以后会有。

14

15 SetFJX =Sheets("C").Range("A1:A"&Sheets("C").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

16 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("C").Cells(FJX.Row, 2)

’15行和16 行是在工作表“C”中进行的查找，也就是说：首先在工作表“A”中查找，然后就在“B”中查找，再次在"C"中查找。一旦查找到就执行将此行的第二个单元格的VALUE赋给 Sheets("SHEET1")的工作表的I行第二个单元格值，这样就实现了在多个工作表中的查询。

17

18 Set FJX=Sheets("D").Range("A1:A" &Sheets("D").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

19If Not FJX Is Nothing Then Cells(I, 2)=Sheets("D").Cells(FJX.Row, 2)

’18行和19 行是执行工作表D的查找。回顾一下，从第9行开始直到第19行总共运行了4个工作表

20I = I + 1 ’I值增加1

2121 Set FJX = Nothing ’另FJX为空准备下轮的查找

22 Loop ’程序回调到第4行 DO WHILE

23 End Sub ’程序结束。

有兴趣的朋友可以试着使用一下，如果好用别忘了分享。如果有改进，别忘了晒晒代码。

分享成果，随喜正能量

转载自百家号作者：excel函数教程

工作簿中多表合并为一表，纯工具操作，不会写公式函数和VBA的同学们不用担心，看完之后就会了。操作版本为微软office2016，使用工具是Power Query，如果您的版本是excel2010或2013，可以在网上下载Power Query插件安装即可。

以下图为例，需要将工作簿中的三个工作表合并为一个工作表。（不管你工作表有多少个，都可以轻松合并）

选择数据选项卡-获取数据-至文件-从工作簿 ，然后选择电脑上要合并的工作簿点击导入即可

导入之后出现导航器对话框，选择工作簿文件，点击下方编辑

这时候进入查询编辑器对话框，然后点击Date列右边的扩展按钮，勾选展开，然后点击确定。

这时可以看到数据已经展开显示出来了。

但是因为每个工作表都有一行标题，所以标题也被合并进去了，这时候选择开始选项卡下的“将第一行用作标题”

然后筛选姓名这一列，将“姓名”取消勾选，点击确定。

之后将下面的滚动栏滚到最右边，可以发现有三列多余的数据，按住CTRL键选选择三列数据，点击开始选项卡下的删除列即可。

最后点击开始选项卡的“关闭并上载至”

就可以看到自动新建了一个合并后的工作表数据。

如果以后分别在其它三个工作表中有增加了新数据，可以直接点击数据选项卡下的“全部刷新”，数据就会同步到合并工作表中。

建立目录每个工作表都有，代码如下：

Sub 生成目录链接2()

Dim i As Long

For i = 1 To Sheets.Count

Sheets(i).Columns(1).Clear

Sheets(i).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

Next

For j = 1 To Sheets.Count - 1

Sheets(j).Columns(1).Copy Sheets(j + 1).Cells(1, 1)

For k = 1 To Sheets.Count

Sheets(k).Cells(1, 1).Font.Color = 255

ActiveWindow.Zoom = 100 '工作表串口视图100%，防止相同的字号大小看起来不一样大

Columns.AutoFit '每个工作表中的列根据输入的内容自动调整列宽

Rows.AutoFit '每个工作表中的列根据输入的内容自动调整行高

ThisWorkbook.Save

End Sub

可能很多朋友不知道Excel中VBA的用途。那什么是VBA呢？

一句话概括：在Excel中想实现什么功能，就可以用VBA语言编写一段程序去完成。

今天通过例子带大家了解Excel中的VBA！

软件说明：Excel 2010版本

场景再现：表格中点击按钮，向单元格E1中输入数字 “233”，并且能够实现清除！

第一步、打开编写VBA代码的窗口

在Excel表格中编写VBA的窗口叫VBE编辑器，有两种打开的方法。

在工作表标签上右键 - 查看代码按Alt+F11

第二步、创建写VBA代码的地方

有朋友肯定会问：“我没学会编程怎么办？”、“我都没见过代码能行吗？”；别急！我的回复是肯定的！

在哪编写代码呢？有好几种方式，今天先学最常用的：“插入” - “模块”。新建一个模块用来存放编写的代码；记住：修改模板的名称：我的VBA模板【如下图虚线标注】

第三步、开始写代码

新建模板后，在右侧的空白位置就是编写代码的地方。可以执行的VBA代码，结构是这样的：

Sub 程序名(参数)可以执行任务的代码End Sub

因为例子中我要进行输入与清除的操作，输入Sub 程序名()然后回车，End Sub就会自动输入；如下图：

在开始和结束语句之间输入代码，执行在单元格A1中输入数字"233"

Range("E1") = 123

备注：在VBA中，Range("单元格地址")来表示单元格。在单元格中输入值，直接用=值 即可(字符串两边要加双引用)，如果清空则 =""。

再编写一段清空代码：

第四步、测试运行代码

在编写代码时经常要测试是否正确。测试方式是把光标放在代码行的任意位置【下图中“测试按钮”的位置】，点击运行小按钮进行测试；同样清空代码也一样。

第五步、点击按钮执行VBA代码

在Excel中插入的图形、图片、按钮控件都可以执行VBA代码。让它们执行很简单，点击“插入” - “矩形” - “指定宏”

只需要右键菜单中点击指定宏 - 选取编写的宏名称，选择“输入”，添加输入按钮。

同样添加清除按钮：

当然自己可以调整字体的颜色、字体，让其变得更加美观！

此时，通过VBA设置的输入“233”，并可以点击清除！

第六步、保存VBA代码

此时的VBA代码应该是既有输入代码又有清空代码；最后需要保存为“启用宏的工作簿"类型【注意下图中虚线框标注】，VBA代码才能保存下来。

好了！今天的分享就到这里，是不是感觉VBA也没有想象的那么难？

赶快转发、关注吧，更多技巧尽在头条号中！

转载自百家号作者：Excel自学成才

一个工作簿中会有很多个相同格式，标题行内容和顺序都一样的工作表，我们想把这个工作表中的数据全部放至一个总表数据中。

图片上示例是3个工作表，实际工作中可能是几十个，如果一个一个复制粘贴至总表里面，耗费的时间很长，并且容易出错，今天教大家用一段通用的VBA代码来实现一键快速合并，效果如下所示：

只需要点击一下多表合并的按纽，后面所有工作表，会按顺序全部放至汇总表格中。

现在是每个工作表中的标题是4个项目，如果是更多项目，同样的可以进行合并，例如我们在英雄1表格中添加一列

用这个代码，同样的可以进行快速合并，只需要在汇总的表格中添加一个标题第五列，然后点击多表合并按纽即可

同样的，如果是再添加1个工作表，在英雄1后面插入了一个sheet2表格，里面输入一条同样的数据，如下所示：

同样的，只需要点击多表合并按纽便可完成，如下所示：

那么这个VBA代码是什么，如下所示：

Sub 多表合并()

Dim arr()

a = Range("a1").End(xlToRight).Column

For Each sh In Sheets

If sh.Name <> "汇总" Then

arr1 = sh.Range("a2").Resize(sh.UsedRange.Rows.Count - 1, a)

act = act + UBound(arr1)

ReDim Preserve arr(1 To a, 1 To act) '

For j = 1 To UBound(arr1)

n = n + 1

For i = 1 To a

arr(i, n) = arr1(j, i)

Next i

Next j

End If

Next

Sheets("汇总").[a2].Resize(n, a) = Application.Transpose(arr)

End Sub

这段代码直接保存即可，有了这段代码，我们在VBA中插入一个模块，将代码写入进去，插入一个按纽，绑定代码，即可实现，绑定代码的操作过程如下所示：

好，你学会了吗？

给自己持续学习的态度点个赞吧！

欢迎留言讨论，期待您的转发分享！

-------------------------------

谢谢关注，更多精彩内容持续更新中....

[ 01]增加工作表(Add方法)

Sub AddWorksheet()

MsgBox "在当前工作簿中添加一个工作表"

Worksheets.Add

MsgBox "在当前工作簿中的工作表sheet2之前添加一个工作表"

Worksheets.Add before:=Worksheets("sheet2")

MsgBox "在当前工作簿中的工作表sheet2之后添加一个工作表"

Worksheets.Add after:=Worksheets("sheet2")

MsgBox "在当前工作簿中添加3个工作表"

Worksheets.Add Count:=3

End Sub

示例说明：Add方法带有4个可选的参数，其中参数Before和参数After指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。

--------------------------------------------------------------------------------

[ 02]复制工作表(Copy方法)

Sub CopyWorksheet()

MsgBox "在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前"

Worksheets("sheet1").Copy Before:=Worksheets("sheet2")

MsgBox "在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后"

Worksheets("sheet2").Copy After:=Worksheets("sheet3")

示例说明：Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。

[ 03]移动工作表(Move方法)

Sub MoveWorksheet()

MsgBox "在当前工作簿中将工作表sheet3移至工作表sheet2之前"

Worksheets("sheet3").Move Before:=Worksheets("sheet2")

MsgBox "在当前工作簿中将工作表sheet1移至最后"

Worksheets("sheet1").Move After:=Worksheets(Worksheets.Count)

示例说明：Move方法与Copy方法的参数相同，作用也一样。

[ 04]隐藏和显示工作表(Visible属性)

[ 04-01]

Sub testHide()

MsgBox "第一次隐藏工作表sheet1"

Worksheets("sheet1").Visible = False

MsgBox "显示工作表sheet1"

Worksheets("sheet1").Visible = True

MsgBox "第二次隐藏工作表sheet1"

Worksheets("sheet1").Visible = xlSheetHidden

MsgBox "第三次隐藏工作表sheet1"

Worksheets("sheet1").Visible = xlSheetVisible

MsgBox "第四隐藏工作表sheet1"

Worksheets("sheet1").Visible = xlSheetVeryHidden

MsgBox "第五隐藏工作表sheet1"

示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。

[ 05]

Sub ShowAllSheets()

MsgBox "使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)"

Dim ws As Worksheet

For Each ws In Sheets

ws.Visible = True

Next ws

[ 06]获取工作表数(Count属性)

[ 05-01]

Sub WorksheetNum()

Dim i As Long

i = Worksheets.Count

MsgBox "当前工作簿的工作表数为：" & Chr(10) & i

前两天有两位朋友留言想收集一些VBA的常用代码，今天开始会陆续分享一些！

记得收藏好哦，因为今后你应用到稍大型Excel VBA程序时，这其中某些代码肯定会用到。

来看看都是哪些常用代码：

下面先举一个简单的例子：

场景再现：在当前的工作表中插入一张e盘中名为1.jpg的图片（长350、高300，距离Excel左侧90、上边框230）

操作方法：

第一步，打开vba代码区，输入通用格式【输入 sub 统计()回车即可】，并将名称改为“统计”；

第二步，输入控制语句（ActiveSheet.Shapes.AddPicture "e:.jpg", True, True, 90, 230, 350, 300）；

第三步，看看结果。

后面会分享更多关于Excel VBA的知识，欢迎大家留言、讨论！