如果您已经掌握了Excel VBA的基本概念和简单语法，需要快速提高技术水平，以便可以早日完成各种简化工作的小程序，甚至能够编制功能强大的报表系统。

于是，但凡有教程自称为“秘籍”或“宝典”的，都会引发大家的无限遐想。因为在各种武侠小说中，某人物因为一本（甚至只是几页）武学秘籍而改变命运、屌丝逆袭的经典桥段实在太多了，让人无限向往。但是，如果冷静分析一下前后情节，您就可以了解到这样的三个事实。

对应这三条，我们来看看Excel VBA这门武功如何。

如果要对Sheet1的A1:A100单元格区域进行汇总，按组合键就可以了，手快只需要0.1秒。如果每天要对1000个工作簿的Sheet1的A1:A100单元格区域进行汇总，那么只会自动求和的绝顶高手就想跳楼了。可是对于学习过VBA的人来说，几行代码就可以解决问题。

在信息时代，技能学习信息只有过剩没有限制。即对于多数学科、技能，只要你想学习，教材是永远不缺的，老师也非常容易找。以前都是“收徒弟”，现在基本上是“收师傅”了。

想学有所成，时间和精力是必需的，从古至今皆如此。当然，我很期待有一天能像《骇客帝国》里那样学习技能——直接下载到大脑里就行了。

这么一分析，我刚才说的“快速提高”岂非奢望而已？那也未见得。首先，教材虽多，却有良莠之分，有适合之分，选择适合自己的优秀教材，那么就能快人一步。其次，注重学习方法，循序渐进，将有限的学习时间投入到最有价值的学习环节中，学习过程中少走弯路，那么又能快人一步。有了这两个基础，再辅以必要的学习时间，那么必能事半功倍，获得“快速提高”了。

谈到循序渐进，在Excel VBA学习之路上具体应该怎么做呢？下图内容是值得参考的阶段性指标和学习重点。

“拿来主义”很流行，也很有效，而且绝不丢人。所以，看懂别人的代码，然后修改之，变为自己的代码，这是一种能力。先啃小段的代码，再研究完整的程序，逐步提高。顶尖的编程高手通常都有自己的代码库，几乎所有的新程序都是从代码库中调取所需的模块修改后搭建而成的，而绝不是从头一行一行写出来的。高手们平时很重要的工作就是维护好自己的代码库。

本书一个很重要的使命就是成为学习者的代码库，所有的代码都可以拿来即用。对于学习者来说，花时间去多读、读懂代码，是实现快速提高水平的保障。

当然，我们鼓励“拿来主义”，可不是在教您如何“抄袭软件”。我们只能学习他人分享的代码，或者是教材上的代码。您不可以打着学习的幌子，破解别人的软件，而且还把作者写成您自己。

最后，祝大家学习愉快。

我们很多时候在用Excel VBA去实现某一个功能的时候，也许会用到很多行的代码去实现我们最终要的结果。

可是有时候你殊不知，有些代码是经过录制宏产生的，或者语句繁琐，变量不正确从而造成你所写的程序运行的时间非常久，或者造成计算机的CPU使用率达到100%，严重可导致系统崩溃发生。

但是这样的结果显而易见，并不是我们想要的结果。我们想要的是一个可靠的，高效率的，简化操作的，提高劳工效率，减少错误率的，适应性强的程序。

所以我们不得不寻求更好的方法去改善，去优化代码，以寻求高效率完成我们的工作。

下面我们重点和大家分享一下，怎么去优化我们的代码：

1.关闭屏幕刷新，速度可以提升30%的速度。所以大家在写完代码的时候，不妨在我们程序最开始加上这句话，当然在程序执行完之前，也就是最后一句话的时候，你要记得将屏幕刷新打开。

Sub test()

Application.DisplayAlerts = False

Cells(1, 1) = 1

Application.DisplayAlerts = True

End Sub

2. 使用工作表函数，这句话的意思就是说我们某些时候，可以优先考虑Excel自带的函数去实现这个，而不是我们自己去写代码。当然效果都是一样的，但是时间可能就不是一样。

Sub ShtFunctions()

a.使用循环进行数据累加计算

For i = 1 To 40000

MySum = MySum + Cells(i, 1)

Next

b.直接使用工作表进行求和

Cells(1, 1) = Application.Sum(Range("A1:A40000"))

End Sub

3. 使用With-End With语句，减少引用对象的寻找速度，提高程序的效率。当然这样还有一个优点，就是我们要改变引用对象的时候，只需改变一个位置即可，这样也便于后期的维护和修改。

Sub test()

With Range("E5").Font

.Color = -16776961

.Font.Bold = True

.Name = "宋体"

.Size = 9

.Name = "Arial Unicode MS"

.Size = 9

End With

End Sub

4.数据类型的正确选用，这个也是非常关键的。这个就好像你去打水喝，正确的应该是拿杯子过去，但是你拿着一个很大的桶去接水喝，当然都可以完成喝水这个动作，但是明显就可以看出拿桶的那个人选择就有问题。其实在我的Excel中处理数据的能力也是不一样的，处理速度最快的是long>integer>byte>Single>Double>Currency。需要注意的是，如果我们不定义变量，那么系统默认为Variant类型，当我定义合适，速度就会有提升，所以每次我们千万记得要选择最合适自己的啦！

5.使用数组，数组和字典是VBA的核心功能，所有在可以使用数组的时候，千万记得使用数组。在某些时候，在使用数组和不使用数组对比下，速度可能相差100倍。尽量减少变量的使用，增加数组和字典的配套使用。还有就是多使用动态的数据，少使用静态的数据，数组的Redim和Preserve要常记得。

6.多清除对象的缓存，比如 Set d = Nothing，这句话的意思就是卸除对象的引用。这样也可以稍微加快一点执行的速度。另外我们可以通过减少循环的次数，减少类模块的使用，减少模块的使用，减少我们语句中的激活的次数，或者寻找更优质效率更高的代码。

以上就是自己在学习VBA的时候，自己的一点点优化代码的一点点方法，可能还有其他的更好的优化只能慢慢去了解去学习，慢慢积累。虽然Excel VBA并不万能的，但是能帮助我们提高工作效率，就已经足够让你我欣慰。与君共勉之！

PS:学习的苦难需要我们主动面对,生活的苦难你躺着它自己主动就过来啦!与君共勉!!!

以上就是今天要和大家分享的技巧，希望对大家有所帮助，祝各位一天好心情！

唯有不断学习，才能不被淘汰！

Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？

1、新建EXCEL2007空白表格。xlsx格式的,将VBA工具栏调出。如图1.1

2、点击“开发工具”然后单击插入，在下拉的菜单的表单控件里面选择“按钮”，如图2.1

3、画个方框，会弹出一个对话框“指定宏”，单击"新建"按钮，这样就会进入后台的程序书写界面，进入以后，程序的头和尾已经帮你写好了，如图3.1,你只需要在中间写入一句程序“ MsgBox("hello world") ”。

4、为了保证宏正常运行，要在EXCEL的设置中进行启用宏操作。在“开发工具-宏安全性-宏设置：启用所有宏和勾选信任对VBA工程对象模型的访问”。如图4.1

5、最后点击另存为“启用宏的工作簿”的xlsm文件，然后退出程序界面。

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窗口。

做为办公室人员，白领一簇，如果说不会使用OFFICE办公软件那真的是一个不合格的办公白簇呀，而办公软件的微软套件中，以word和Excel最为常用，PPT最为专注而称，对于Word来说，专注于文字处理，这个可以说都知道会用就行了，如果想把Word做的非常好，也只是美化的一些问题了，技术性还不是很强的，而其中的PPT就是演示软件，多为专注软件，也是美化而有特点为专。这么说过来。Excel最为有技术性，也是使用最多的一个软件了。它的强大可以说成为公司必备的一个软件。如果能把它使用好，可以达到一个系统级工具。是不是不太相信呢？

Excel是一个称做为电子表格的软件，它有很强大的数据处理能力，特别在当代这个电子商务时代，大数据是所有公司都非常看重的，而Excel就有这相强大的功能，而简单的处理数据就显的它还不是更强大的，其它加上VBA的使用，它可以达到一个系统级的工具，包括什么进销存的统计，收银系统，仓储管理系统等等都可以使用它来做出来，就是的，使用Excel可以直接做出来的。是不是不敢想象呀。而它真的能胜任，并且可以做的非常的好。并且操作简单。

做为一个非常成功的办公办件，Excel真的是强大的让人信服，对于一些技术控来说，利用VBA可以把Excel的功能充分的挖出来，让它成为一个公司的系统工具，可以积成一般小公司的财务，仓储，考勤，以及工资的发放，员工福利的制作等等。只给你想得到，它都可以做得到，当然了，它是以数据为基础的，文字性的东西，还是交给Word来处理吧。通过充分利用Excel的功能开发，可以让公司的一切数据集大成于一个文件，以方便以后的统计，又可以简单工作量，这是非常极好的事情哟。

拓学工程这里只是给大家一个提醒，一般公司绝对不需要一些很专业的考勤软件，以及财务软件，这些东东大大消费了一个小微公司应该注重的节约成本的理念。更多的钱应该发放给员工，激发员工的斗志，是不是这个样子的呢？希望对大家有所提醒和帮助。更多的Excel的VBA教程，喜欢的朋友可以到网上相关论坛进行学习。如8楼网等，今天就分享到这里吧。学习无涯，拓学工程。2017年11月2日。

拓学工程网授权忒萌网发布百家号平台、原文地址：http://cnldc/2994.html 欢迎向忒萌网投稿。

转载自百家号作者：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中插入一个模块，将代码写入进去，插入一个按纽，绑定代码，即可实现，绑定代码的操作过程如下所示：

好，你学会了吗？

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

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

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

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

什么是VBA

Visual Basic for Applications（VBA）是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。简单来说VBA是建立在Office中的一种应用程序开发工具，其实知道这也就够了。

第一个VBA程序

首先要把开发工具调出来，Excel默认情况下是不显示开发工具的

打开vb编辑器，新建模块，并写入代码

Sub test()Range("A1") = "Hello World" '在A1单元格中填写Hello WorldRange("A2") = "我的第一个VBA程序"End Sub

在Excel VBA中，Range对象可能是最常用的对象，Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。代码中 Range("A1") 就代表A1单元格。而“=”是一个赋值运算符，将右边的值传给左边的变量。

大家学会了吗，其实VBA还是比较简单的。小编准备写一个VBA入门的教程，现在有两种思路，一种是先讲解VB的基本知识，然后在从例子中不断加深理解，这样前期可能相对比较枯燥；另一种是每篇介绍一个例子，讲解一下如何用VBA来解决，从实战中学习，相对来说比较快一点。大家觉得那种更好一点呢，或者有更好的方法，欢迎在下方评论，小编一定会及时回复。。

1、 根据条件删除行

Sub deleteRows(strTable, condition1, condition2)

Dim i, j, iMax, jMax As Long

Dim iicondition1, iicondition2 As Integer

With Worksheets(strTable)

iMax = .UsedRange.Rows.Count

jMax = .UsedRange.Columns.Count

i = 2

Do While i < iMax + 1

iicondition1= .Cells(i, 1)

iicondition2 = .Cells(i, 2)

If (iicondition1= condition1And iicondition2 = condition2) Then

.Rows(i & ":" & i).Delete shift:=xlUp

iMax = iMax - 1

Else

i = i + 1

End If

Loop

End With

End Sub

2、 删除所以的使用range

Worksheets("sheetName").UsedRange.Delete shift:=xlUp

3、打开某指定路径的文件夹对话框

Function GetFileName(ByVal DialogType As MsoFileDialogType, ByVal defaultPath As String) As String

With Application.FileDialog(DialogType)

.Title = "XXXX:"

.AllowMultiSelect = False

.Filters.Clear

.Filters.Add "Excel Files", "*.xlsm"

.Filters.Add "All Files", "*.*"

.InitialFileName = defaultPath

If .Show = True Then

GetFolderName = .SelectedItems(1)

End If

End With

End Function

4、截取字符段

从右边开始，查找某字符，然后截取其后面的字符串。

xlsPath2 = Right(xlsPath, InStr(StrReverse(xlsPath), "\") - 1)

5、Sharepoint数据的刷新

Worksheets("Sharepoint对应的sheet").Range("A1").ListObject.QueryTable.Refresh BackgroundQuery:=False

6、当前使用的range的取得

.UsedRange ‘对应的range

.UsedRange.Rows.Count ‘对应的行号

.UsedRange.Columns.Count 对应的列号

7、在Excel内部打开另外一个Excel （不显示，隐藏）并读取其数据

Set xlsApp = New Excel.Application

xlsApp.Visible = False

xlsPath = ThisWorkbook.Path

Set xlsWB = xlsApp.Workbooks.Open(xlsPath, Null, ReadOnly)

‘读取/写入对应的sheet

X = xlsWB.worksheets(“xxxx”).cells(i,j)

xlsWB.worksheets(“xxxx”)..Cells(i, j).Formula = "=E” & i

8、计算处理

'如果你的表中有大量的计算单元格，那就需要关闭自动计算，否则慢的要死

‘在VBA开始，设置为手动

'Application.Calculation = xlCalculationManual

'Application.ScreenUpdating = False

‘在VBA开始，设置为自动

'Application.Calculation = xlCalculationAutomatic

'Application.ScreenUpdating = False

注意，还有一种方法是再打开本excel的时候，就设置为手动，对于需要计算的sheet，单独在其数据填充完毕后，执行计算操作。

例如： Worksheets("XXXXX”).Calculate ‘这是效率最高一种方法。当然，你也可以对某些range，单独进行range计算。

9、Range到range的只读拷贝、黏贴

Worksheets("srcSheet").Range(.Cells(1, 1), .Cells(x,y)).Copy

Worksheets("dstSheet").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

10、Cell内容的替换操作

Worksheets("CostTable").Cells.Replace What:="Original Content", Replacement:="replease Content", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

11、自动填充

Worksheets("xxxx")..Range("D8:F8").AutoFill Destination:=.Range(.Cells(8, 4), .Cells(rMax, 8)), Type:=xlFillDefault

12、获取pivot的使用区域、

Set pvt = Worksheets("xxxx").PivotTables("PivotTable_xxxx")

Set rngTable = pvt.TableRange1

13、刷新pivot

Worksheets("xxxx").PivotTables("PivotTable_xxxx").PivotCache.Refresh

可能很多朋友不知道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也没有想象的那么难？

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

前两天有两位朋友留言想收集一些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的知识，欢迎大家留言、讨论！