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

Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程序视觉化的Basic Script。 1994年发行的Excel 5.0版本中，即具备了VBA的宏功能。

VBA是Excel，Word，PowerPoint等办公应用程序理解的语言。

VBA是一种功能强大的内置编程语言，允许您在Excel电子表格中编写自己的函数或命令。

VBA是经典Visual Basic的最后一个前哨，它非常适合快速轻松地完成工作。不擅长的是构建大而复杂的应用程序。

具有控制作用的函数

IIf(条件式,表达式1,表达式2)Switch(条件式1,表达式1,[条件式2,表达式2[,...,条件式n,表达式n]])Choose(索引式,选项1[,选项2,...[,选项n]]) '这是基于1的索引

VBA和VB的区别对比

本文讲的不是开发语言VB，而是excel的编程语言。区别包括如下几个方面:

1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化

2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.

3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的”父”应用程序,例如EXCEL.

VBA的优点

如果不是专业搞开发的，学习VBA以后。绝大多数企业和你所在的部门都会用到excel，都需要处理数据。你绝对是你们公司或者部门的宝贝。VBA的优势如下：

开发环境搭建简单，只需要打开装机自带的Office，然后按下Alt+F11就自动进入编程和执行环境；上手简单，学习曲线很平缓，甚至可以更简单的通过录制宏来解决写程序的问题，只需要在简单的代码基础上修修补补就可以执行。与办公环境完美兼容，在Excel/Word/Powerpoint/Outlook/Access之间随便穿梭，比胶水语言还要简单易用分享性和移植性很强，几乎所有测试通过的程序放到别的机器上也可轻易执行。

本文参考

9ima

i-programmer

wikipedia

zhihu

Excel就像一把天山寒铁淬炼而成的杀猪刀，本身已经很厉害，但具体有多厉害取决于用它的人。

Excel最牛逼的地方在于它不是小李飞刀也不是轩辕剑——需要练个10年8年才能用，它只是一把菜刀，老百姓可以用来切菜，高手可以用来刮胡子，绝世高手拿着直接从南天门一直砍刀蓬莱东路。

表格是什么？表格就是数据容器，对于非IT人士来说，这辈子可能都不会用数据库，但是！Excel让每个人都可以管理数据库了！其提供的基本功能足以完成大部分数据管理统计工作。

打个比方，同事拿到全国资料开始挨个数每个省有多少个客户数了半个小时，而你只是点了两下鼠标就完成了工作。没错，在同事眼里你就是那个百年难得一见的练武奇才（以后就可以承担更多工作了，可喜可贺）！

要你命2000：数据处理（函数）

别人向你扔屎，你可以躲。客户扔给你屎，你只能接住！比如这种屎：

这种乱七八糟表格是没有任何数据意义的，如果只有三坨，动手处理一下就好了，如果有100坨，怎么办？不要紧张，我们只需要处理一行，其余99行交给excel即可。。。

首先，数据-分列：

然后，直接查找替换，将没用的天字去掉：

最后这个毛比较难以处理，动用函数：先找出具体数字，如果里面有“毛”字，直接将结果乘以0.1，一个规范的表格就诞生了：

（如无特殊需要，最后带汉字的D列可以用E列覆盖掉）

Excel也可以为自己所用，再来举一个例子：

时间管理。与一般时间管理App不同，因为我们可以自己设计研发，做出最适合自己的版本！Go！

首先写两行：

拖动一下右下角的小圆点：

同理增加横轴：

填写数据，编写公式。这样计算当天任务量：

=COUNTA(B2:P2)

这样计算完成量

这样计算完成度

=Q3/Q2

最后完成度那里设置单元格格式-数字-百分比。最后填写数据。最终效果图（点击看大图）：

只要三个函数，每天的工作生活一览无遗！

P.s还可以拓展一些功能，比如当天完成度到达xx就有奖励/惩罚之类

总结：掌握了函数，只要是和数据相关的工作，就可以考虑用Excel来处理。

要你命3000：控制一切

著名篮球员赤木刚宪曾经说过，掌握代码就等于掌握了整个Excel，此言非虚。Excel自带编程功能，只有想不到，没有做不到！接下来就用解决吃饭问题做一个简单例子展示一下：

对于有选择困难症的人，让上天来决定吃啥是最好了，我们先填一点数据，如图：

然后选择开发工具-VisualBasic（为了做例子专门下了一个office365，我也是拼了= =），然后什么都不管，直接粘贴代码：

Dim a As Integer '定义公共变量Sub随机Dim x As IntegerDim y As Integera = 0Randomize '初始化reselect:x = Rnd * (3 - 1) + 1 '生成2至7的随机数，代表列数y = Rnd * (4 - 1) + 1 '生成2至6的随机数，代表行数Range("a1:d3").Interior.ColorIndex = xlNone '去掉填充色Cells(x, y).Interior.ColorIndex = 3 '填充为红色a = a + 1If a = 300 Then Exit SubGoTo reselectEnd Sub

然后保存回到excel，选择开发工具-插入-表单-按钮，画一个按钮在excel上，命名为“吃啥好”

在按钮上点右键，指定宏，选择我们刚才做的函数，然后点确定：

Excel制作的半即时战斗模拟（原文地址Excel潜能系列——Excel游戏（2v2战斗~5v5战斗模拟器）【更新V1.5】 Einsphoton_Einsphoton_新浪博客）

超牛的EXCEL版《超级玛丽》总结：掌握了代码，理论上可以用它来做任何小型项目！

用来做动画：

[Excel]Bad Apple!!

推荐书籍：

你早该这么玩Excel（数据管理、工作用）

Excel2013高级VBA编程宝典（装逼、开发用）

另外光有技巧是不够的，表格美化也很重要。（做人也一样，牛逼不够，还得帅。。。）

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

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

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

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

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

很多基层员工，使用EXCEL会很多，尤其是一些经常需要制作表格、录入表格和汇总表格的岗位，表格无穷多，工作量很大，有时不小心出错了，还得重新改，弄不好还得挨骂和受处罚，有没有办法让咱们这些EXCEL表哥表妹工作轻松一些、效率更高一些，身心愉快一些呢？

今天给大家分享一个工具和用法，让咱们企业的EXCEL报表处理工作变得更轻松简单一些。

让EXCEL表单数据处理工作更高效的其中一个方法就是减少重复工作提高录入效率和减少数据出错。仅仅靠EXCEL本身来解决这个问题不是太好办。那今天这个工具就能轻松做到。

云表，也许大家接触还不多，但这个工具长像和EXCEL差不多，但是功能可比EXCEL强很多，我们今天先分享一下云表的快捷录入的做法。

自动录入

举个例子来说：销售部或生产部的订单员，每天都会录入很多订单，而客户是相对固定的，就是那么些家，但是每次录订单的时候这些客户信息都要重复输入，很麻烦，如果用云表来做的话，可以实现只要输入客户的名称，其他相关信息如，电话，收货地址、账号、联系人等各种基本信息都自动录入了，就样就能节约很多时间。

自动生成编号

而且订单日期，可以直接选择，点点鼠标即可，不能手动录入，订单编号也可以自定义编号规则，自动生成编号，系统自动生成，不会重复也不会出错。

自动校验数据

你可以自定义单元格数据的类型和格式，如果填写错误，系统会直接报错提示。

自动汇总生成分析报表

所有表单填写完成后，设计个分析报表模板会自动汇总各种分析图片。

自动计算

这个EXCEL也可以，但是云表可以做到正算和反算，不会出现像EXCEL那种死循环。比如，通过单价和数量算总金额，也可以通过总金额反算出单价或者数量。

导入导出EXCEL文档

如果需要把EXCEL文档导入到云表，或者把云表的表单导出EXCEL表单，都可以分分钟完成。

以上操作，很简单，最基层工作人员，不需要技术能力，照着云表的教程设置 一下就好了。个人使用或者小公司，大企业的某个部门使用都是可以不花钱的。给大家一个注册地址，也是云表网站，注册好后，上面也有教程。

当然了，云表，是可以按这个方法设计各种管理软件，不用编程。一般像进销存，简易仓库管理，生产管理，BOM等小型的管理软件，都是可以照 着教程做出来的，当然如果复杂的软件像ERP，或者MES，WMS等软件，是需要对企业业务多些了解，对云表技术了解更多一些，也可以不用编程来实现。

如果觉得云表实用，那就收藏并转发给你的同事吧。

关注我，获取更多实用工具和教程。

云表还有官方学习群，有专业老师实时在线指导学习哦，要加入，请在下方评论留言

关于云表免代码通过画表格方式开发软件的具体介绍

请参见本头条号其他文章分享。

本次分享：用云表设计置组织架构和用户权限以及表单模板的设计方法。

从图表中，我们可以发现，云表界面与EXCEL其实很像，但大家不要误以为就是EXCEL,云表功能可比EXCEL强大多了，能真正设计出企业管理中实用的软件，而不仅仅是数据表格。

组织结构与权限

云表的组织机构管理采用部门与子部门的方式来建立这种树形的管理结构，每个部门有三个最重要的属性：部门编号、部门名称、上级部门。

部门编号：为了计算机管理的需要，为每个部门指定的代号，在整个组织机构树中必须保持唯一；

部门名称：在同一个上级部门下的部门名称不能相同，但如果属于不同的上级部门，名称允许相同，例如两个不同的子公司中都有销售部。

上级部门：指定该部门的上级部门。

分支机构：用来标示该部门是作为一个独立的机构存在，例如子公司，分公司等。之所以要区分是分支机构还是部门，是因为在表单的访问策略中对部门和分支机构的处理方式不同，详情请参见【表单访问策略】。

通过工具栏的【添加部门】、【添加子部门】、【编辑部门】和【删除部门】即可实现对部门的增、删、改。

【添加部门】用于添加同级部门，【添加子部门】用于添加下级部门。

表单模板

下面以建立一个客户档案的业务表单模板为例介绍在云表平台是如何新建表单模板的。

第1步：在对应的管理文件夹中点击【新建模板】菜单按纽，系统自动弹出一个云表表格软件；

新建软件模板

在对应的管理文件夹中建立业务表单模板

第2步：在这个表格软件上可直接绘制表单样式，也可以通过导入样式的办法把借用或参考的样式导入，下图介绍导入时的操作；

可以将客户现有的表格样式直接或略加修改后导入到系统中。

第3步：绘制或导入样式后，再通过定义数据项，也就是设定哪些需要输入数据空白单元格，一个或若干数据项目就构成一个表单模板，定义数据项的步骤（内容）如下：

确定数据项位置;要填入数据的单元格位置；

数据项的名称;表明要填入数据的名称，通常在空白的数据项左侧或上方，也可以是其它位置，也可以没有名称显示；

数据类型;表明只能填写什么类型的数据，例如是文本、小数、日期或是图片，如果你填写的数据与指定的类型不匹配，系统会报错并且不允许保存；

扩展类型;这是专门针对文本而设计的一种特殊用法，如条形码或富文本等；

必填;是否允许为空。例如上面的客户名称应该是必须填写的，而QQ就可有可无了；

填写规范;用作决定该数据项的值如何产生，例如;客户编号;必须自动产生;客户等级;必须从下拉列表中选择等。针对规范还有其它几个额外的选择；

宽度;决定在总表显示时的默认宽度；

顺序;决定在总表显示时的默认排序；

主键;决定是否允许重复：当被选作主键的是基本数据项时，则全局唯一，不允许重复；若多个基本数据项共同被选作主键时，则为组合唯一；

隐藏;决定是否在总表中显示；

同值合并;这是用于明细表数据项在显示时合并的特殊用法。

本节：重点要搞清楚，什么是模板，什么是主键。在实际软件设计过程中， 经常会有同学在设计表单时，忘记设置主键而导致保存时报错信息出现。

下一期，我们重点讲什么是总表。请关注收看。

每个EXCEL、WPS达人和管理者，虽然不一定会编程，却都有一个编程梦，总希望把工作和管理进行批量化、智能化、协同处理，以提高效率，然而EXCEL功能是有限的，无论对EXCEL玩的多精通，软件的功能也很难实现。今天就给普通的你，分享一个类EXCEL平台的工具，可以像用EXCEL那样去搭建你想要的软件和APP。你也可以变成IT达人！

你想不想用excel做一个，功能强大又好用的管理软件？

用EXCEL的方式，搭建真正的软件系统，可行吗？

我们说的真正的软件，必须得具备智能录入、数据校验、工作流程、多用户协同、数据共享、用户权限控制，三方软件对接、手机APP应用、拍照上传、统计查询、附件上传、组织架构管理……。等等，传统代码编程开发软件具有的功能，它都得有。

那用EXCEL的方式可以做到么？肯定可以！但绝不是EXCEL和WPS，而是一款类EXCEL平台，云表！

可以兼容EXCEL用法，比如自定义表单样式，拖拉拽的操作方式、导入导出EXCEL……等等，也就是说你只要会用EXCEL或WPS就能用云表。

看一下上图：能不能发现，云表设计器界面与EXCEL界面有哪些差别？而且云表设计界面和EXCEL长得还挺像的，不过他们可没有血缘，顶多和WPS有点亲戚关系，云表开发团队源自金山系创业者，就是WPS团队出来的。而且，云表完全独立，不用安装WPS或EXCEL就能使用。

会画表格就能快速搭建管理软件，请看有多方便！

只需要用EXCEL的操作方式，把软件需要用的表单或界面样式画出来（只要你愿意，就能画得很漂亮），比如采购单、销售单、库存表、报表等基本表格样式，然后用中文公式（纯中文，会认字就能看懂）把表间关联配置好，设置好组织架构和用户并分配不同权限，还有设置好相应的业务流程和审批流程，再加上导航（也可以不要），那这个软件就完成，如果需要和已有软件比如财务软件等对接，也是可以的。

一键自动生成APP，手机上随时随地使用！

上面把软件功能搭建完成后，只需要在手机端安装云表APP并简单配置一下，另外在云表设计界面勾选适用手机APP，那这个功就可以在手机上使用了。是不是超级简单，整个过程，完全不用编程。

云表做的手机APP

说的可能比较笼统，可以到官网安装个软件做一遍就明白了。

首先，设计模板是一项非常繁琐的工作。不但要深入分析流程、业务等需求，还要深入挖掘其中关键、有价值数据来满足流程及业务的要求。有90%的用户不能深入分析流程、业务等需求，挖掘其中关键、有价值数据始终无法构建满足业务要求的系统。

其次，设计模板是一项非常专业的工作。要有不同行业不领域专业的管理知识，如：要设计MRP系统，设计者要非常清楚MRP逻辑运算关系，那些业务数据能满足MRP系统的要求，那些不能满足等。

第三，设计模板要有非常成熟丰富的经验。系统数据结构、各模块间逻辑关系、业务及业务组合、系统设计及实施推广等都需要非常老练的行业经验。有很多设计者因为在设计平台、业务逻辑、管理经验、需求分析、实施推广方面不是很有经验，边做边改，越改越乱，最后做不下去。

第四，设计模板要能在企业快速推广，创造价值。要快速的设计出符合业务需求的模板，并且在企业迅速推广开来。如果用户自已设计，要花很长的时间来学习设计平台，然后再花很长时间摸索出不同行业或领域的解决方案。企业的团队早已经对该系统失去信心，最终系统还是不能快速推广，创造价值。

为了更专业的服务好用户，率敏科技主要培训课程：

20年实战经验的辅导老师亲自主讲，传授20年的实际管理经验、模板设计经验；分享实战案例。

EXCEL协同平台方面：

1、ERP各模块功能设计的专业培训

2、EXCEL协同平台工程师认证培训

3、EXCEL协同平台生产管理中的应用

4、EXCEL协同平台财务管理中的应用

阿米巴经营实学方面：

1、阿米巴的构建与推行实践

2、[理念+EXCEL]经营实学·精英班

3、阿米巴经营核算软件实施。

对于很多职场人士而言，Excel或者WPS表格就是他们每天最常用的办公软件了。

比如，HR用Excel来制作员工入职填写表单，设计好填写范例，需要填写姓名、性别、岗位、银行卡号、身份证号码等等，就如下图。

对于有经验、熟悉Excel操作的人事专员来说，制作这样的一张表单当然不是什么难题。可往往难题又出现在这样一张用Excel制作的表单中。

比如说员工填少或填多了身份证号码、银行卡号等，就会给后续工作带来麻烦，也就只能再一次找员工去核对了。

又或者员工在填写的时候不小心误操作，变动了格式，在汇总的时候麻烦多多。

可是如果这个表单可以自动核查甚至锁定格式、设置修改权限的话，自动提醒填多或填少、限制改格式，那就能大大减少这种情况带来的麻烦了。

机灵的人事专员可能马上行动，去查如何实现这种Excel自动核查、锁定填写格式、设定权限等功能了。

可一查，教程说的方法不是需要填很多的函数公式，就是要VBA编程。函数公式还好解决，但是VBA编程那一行行的代码就实际无法看懂了。

那怎么办？当然不是凉拌啦，我们可以使用无需编程的开发平台去制作一个人事管理软件，给这个软件设置权限、限定填写格式、自动核查，员工填写完成后不用再通过邮件发送给人事专员，而是在软件里自动接收到填写好的表单。

云表是一个无需编程就能开发管理软件的免费平台，以下就用云表简单说明怎样开发一个人事管理软件的。

云表的开发界面类似于Excel，操作起来像Excel一样简单，可以随意合并表格涂色等，能把表单设计得很漂亮。

可以设计一个员工入职填写表单，通过设置修改权限后，便只有人事专员能改动表单的格式。同时给每个填写框，比如填写银行卡号的框，设置成数字填写并固定多少个数字，就可以自动检查错误了。

除了这些小功能以外，还可以运用业务公式，也就是用工作上的业务逻辑去描述。比如汇总新入职的员工资料，只需要员工的姓名、岗位、联系方式。我们不再需要复制粘贴了，用云表的业务公式设定员工个人的资料表中这几项内容，点一个按钮就能自动填写到汇总表中去。这在常年招工的工厂人事管理中特别有用哦！

其实云表可以实现的功能还有很多，可以做出完整的ERP管理软件、仓库管理软件、电商进销存软件等。

以前流行的说法是：21世纪必备的三大技能，英语，电脑，驾驶。在本世纪开始的前20年内，已经是非常明显的体现了，慢慢会成为职场的标配。未来的社会，肯定是会越来越智能化的。以后写简单的代码，可能会成为工作和生活的标配。买一个机器人回来，陪自己好好聊聊天，但这个家伙脾气好像有点大哟，能不能自己写点简单的代码，把这个家伙的脾气改小一点呢？必须能啊。

学编程难吗？等同于写作难吗?如果你的目标不是成为职业作家，写作就是很轻松的事，想想我们从小学就开始写作了。同样地，学英语难吗？健身难吗？练字难吗？一旦开始，每天花点时间，什么都不难。如果你是上班族，学点程序对你的工作效率是会有大大提升的，加薪水啊，指日可待。给漂亮妹妹展示一把，哇，你好厉害哟，一个崇拜的眼神。

好啦，

今天就以一个非常简单的小程序开始，体验一下吧。我的目标是，人人都可以会。试试这个简单的程序，2分钟，轻松搞定。

第1步：打开excel

第2步：在键盘上按下：ALT+F11,进入到以下界面。

第3步：双击“ThisWorkBook”,显示空白的页面，如下所示。

把以下代码复制，粘贴到空白页。

Sub test()

For i=1 to 100

a=a+1

Next

MsgBox a

End Sub

第4步：点击运行程序

第5步：看到运行的结果。

5050就是运行结果，这个小程序的作用是从1~100相加，结果就是5050.

点击“确认”，又会回到程序窗口。你可以把100更改为其它数，结果就是从1加到多少。试试吧

你想不想知道，从2到100的偶数相加，怎么计算呢？

【完】