朋友，如果您喜欢，想第一时间得到我的有用信息，请务必关注我。

关注我的理由：

第一时间收到我的有用知识，各种特技随时可得，受益终生。

尤其是VBA代码类的文章，别的地方是找不到的，原创不容错过。

一切文章均属原创，宇宙情怀欢迎您的关注收藏评论点赞哦。

在小学的时候从1加到100求和是多少，那么我们使用VBA代码通过EXCEL如何快速的求和呢？

1.启用宏内容，安全性低，启用所有宏。

2.在代码编辑器内插入模块插入计算的代码，使用到的是FOR NEXT语句。

3.插入表单控件，并指定到求和的宏。

4.点击控件运行代码就可以在单元格内看到最终的计算结果了，很快的。

5.工作簿保存为XLSM启用宏的工作簿即可。

分享代码如下：

Sub 求和1到100()

Dim i As Integer

Dim j As Integer

i = 0

For j = 1 To 100

i = i + j

Next

Range("F1") = i

End Sub

有时需要从某个网站获（爬）取一些数据，并且能够时时更新，这是后就需要爬虫了，不会敲代码怎么办，其实用 Excel 就可以简单实现这个功能，步骤也很简单，可别小瞧了Excel！

动图演示：

基本步骤：1. 双击图标，打开 Excel2. 依次点击，数据 >>从网站(自网站)

3. 在弹出的对话框中，输入目标网址，Games sales，点击转到，go

4.等待网页加载，点击你需要的数据区域，点击导入，import

5，然后会弹出一个数据存放区域的对话框，随便找个地方，点击 ok

6.等待数据加载(本次无需点击)

7. 大约等待 10 秒钟，可以看到了，大概爬取了 600 行的数据

利用Excle自动获取网页数据，譬如从网页中自动获取基金净值数据，取得所关注基金的净值，列出当日涨幅最高的基金。其他用处还有很多，看你怎么解放双手了。你可能会喜欢

Excel表格中 符号 大全 汇总

一、公式中常用符号

： 表示一个单元格区域，如A1:B10+ - * / 加减乘除运算符> 大于号>= 大于等于号< 小于号<= 小于等于号<>不等于号，如=IF(A1<>"销售部",,)^数字 乘方运算，如2^3结果8。^(1/数字) 开方运算 8^(1/3)结果为2& 文本连续符，如 "A"& 1 结果为 A1* 通配符 表示任意字符多个字符? 通配符，表示单个任意字符{数字} 常量数组{公式} 数组公式标志，在公式后按Ctrl + shift + Enter后在公式两端自动添加的。$ 绝对引用符号，可以在复制公式时防止行号或列标发生变动，如A&1公式向下复制时，1不会变成2,3..如果不加$则会变化！ 工作表和单元格的隶属关于，如表格sheet1的单元格A1,表示为 Sheet1!A1

二、自定义格式中的符号

0 单个数字占位符，如果0的位数大于数字个数，会用0补齐，如123设置格式00000, 会显示成 00123# 单个数字占位符，和0区别是不会补位! 强制显示它后面的字符\ 作用同 ![ ] 设置条件，如 [>100][红色] 大于100的数字显示红色yyyy 4位年d 日m 月aaa 星期代码，只显示大写数字aaaa 星期代码，显示星期+大写数字ddd 星期代码，英文简写dddd 星期代码，英文全称mmm 英文短月份mmmm 英文月份完整单词h 小时[h] 显示大于24小时的数字m 分种s 秒* 用*后的字符补齐位置，让字符长度填满单元格_ 添加一个空格和_后的字符宽度相等@ 文本占位符，可以显示单元格的文本内容，如爱你 设置@@后可以显示为爱你爱你

Excel解释说明：想整理Excel中常用符号的想法来由来以久，由于lan一直没动手，可左等右等几还不见网上有动静，所以必须要动手了，同学们收藏备用吧。

我们很多时候在用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中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？

可能很多朋友不知道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 表格偶尔会遇到数据量比较多的时候，这时候为了方便查看底部的数据我们常常使用“冻结窗格”功能将标题冻结起来以使得下方数据与标题更好的对照。然而如果数据量挺大的时候，我们滚动到了数据底部又想要滚回最上面一行，这时候就会十分尴尬地需要再次滚动鼠标滑轮或拖动右侧滚动条滚回去。其实要想快速滚回到首行（或指定行），仅需一行代码即可。

目前由于微信限制，演示GIF无法上传，下面直接奉上实现代码：

' Excel~一行代码实现回到指定单元格Sub BackToCell() ActiveSheet.Range("C5").SelectEnd Sub其实就是选中激活工作表的指定单元格ヽ(￣▽￣)。只需将代码中的“C5”改为自己需要返回到的单元格就可以了。

代码怎么用？开发工具 / 查看代码 / 新建模块 / 粘贴代码 / 将代码与按钮关联起来。

凑够300字；凑够300字；凑够300字；凑够300字；凑够300字。

“自定义格式”允许用户创建符合一定规则的数字格式，应用自定义格式的数字并不会改变数值本身，只改变数值的显示方式。

在需要自定义格式的区域单击右键（Ctrl+1），点击“自定义”，在类型下的代码窗口输入代码，见下图。

自定义的格式代码具有以下结构：

正数;负数;零值;文本（分号为英文符号）

以分号隔开的四个区域组成一个完整的自定义格式代码，在每个区域的代码对相应的数值产生作用。

同时也可以用运算符的方式表示条件值，如>0,<0表示正数和负数，>60,<60表示成绩的及格与否等。

EXCEL还可以用颜色代码编写自定义格式，使其显示不同的颜色。

可供选择的颜色代码有：[黑色]、[白色]、[蓝色]、[红色]、[黄色]、[绿色]、[洋红]，颜色的两边必须加上英文方括号。

还可以直接用：[颜色1]、[颜色2]等颜色代码，颜色数值范围为1～65。实例五与实例四两种代码的效果完全一样。

这样我们就可以对实例二、实例三改变颜色了，这样是不是更直观了？

如果大于60的显示红色，小于60的显示蓝色，可以加入“>”、“<”等条件代码，见实例六。

在实际代码应用中，只能在前两个区域中使用“>”、“<”等条件代码，第三个以除此外作为条件值，见实例六最后一列。

利用条件格式4个区域的定义，在分号间不输入代码，用户可以对各区域内容如：正数、负数、零值或文本进行隐藏，见实例七。

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

好，你学会了吗？

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

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

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

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

方法与步骤：

1.打开excel表，选中目标单元格，右键，然后点击“设置单元格格式”。

2.在弹出的窗口中选择“填充”选项卡，再单击“其他颜色”按钮，如图所示。

3.在“颜色”窗口中选择“自定义”，然后便可看到当前颜色的信息了，如图，颜色信息可表示为RGB(161,185,117)。

4.还可以选择不同的颜色模式下查看该背景色的属性信息。

（本文内容由百度知道网友雷筱轩33贡献）

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