本文目录一览：
eXceL中VBA？
这边写了2种供题主参考，如有帮助，还望采纳
'自定义公式-按ALT+F11-插入-模块
Function 提取1(a As String)
For i = 1 To Len(a)
If i = 1 Then
If Mid(a, i, 1) = Mid(a, i + 1, 1) And Mid(a, i + 1, 1) = Mid(a, i + 2, 1) And Mid(a, i + 2, 1) Mid(a, i + 3, 1) Then 提取1 = 提取1 "," Mid(a, i, 1) Mid(a, i, 1) Mid(a, i, 1)
Else
If Mid(a, i, 1) = Mid(a, i + 1, 1) And Mid(a, i + 1, 1) = Mid(a, i + 2, 1) And Mid(a, i + 2, 1) Mid(a, i + 3, 1) And Mid(a, i + 2, 1) Mid(a, i - 1, 1) Then 提取1 = 提取1 "," Mid(a, i, 1) Mid(a, i, 1) Mid(a, i, 1)
End If
Next
提取1 = Right(提取1, Len(提取1) - 1)
End Function
'自定义公式-按ALT+F11-插入-模块
Function 提取2(a As String, b As String)
For i = 1 To Len(a)
If i = 1 Then
If Mid(a, i, 1) = Mid(a, i + 1, 1) And Mid(a, i + 1, 1) = Mid(a, i + 2, 1) And Mid(a, i + 2, 1) Mid(a, i + 3, 1) Then 提取2 = 提取2 "," Mid(a, i, 1) Mid(a, i, 1) Mid(a, i, 1)
Else
If Mid(a, i, 1) = Mid(a, i + 1, 1) And Mid(a, i + 1, 1) = Mid(a, i + 2, 1) And Mid(a, i + 2, 1) Mid(a, i + 3, 1) And Mid(a, i + 2, 1) Mid(a, i - 1, 1) Then 提取2 = 提取2 "," Mid(a, i, 1) Mid(a, i, 1) Mid(a, i, 1)
End If
Next
c = Split(提取2, ",")
提取2 = c(b)
End Function
Excel vba是什么
故障分析：excel VBA其实就是大家代码编辑程序，有的人被人认为是宏，但是excel vba是包括宏程序的。下面还是一起来看看excel vba是什么?如何打开?
一、excel vba是什么?
excel VBA中的vba是Visual Basic For Application的缩写。一般用来实现简单或中等的办公自动化应用。因为易学并且能很好的被office系列应用程序支持，因此得到了很广泛的应用。
二、excel vba怎么打开?
先安装一个vba编辑器，在“Office共享功能”中有“Visual Basic for Application”，要安装。启动Excel后，选左上角的大点，Excel选项-》信任中心-》信任中心设置-》宏设置-》“禁用宏，并发出通知”。
提示：这时在打开有VBA的Excel，编辑栏在侧会有提示，一定要启用，否则无法编辑和使用VBA。
新手必知：打开Excel出现宏怎么解决?
需要进入VBA编辑器，就按住alt+F11即可打开就可以自己写代码了，也可以在这里阅读已有的代码。 如果是宏，可以直接Alt+F8 选择执行即可打开运行。
三、excel vba的用途：
简单地说，就是模拟人工操作，完成一些挺繁琐的事情。比如：从网上复制到Word的文章，格式很乱，你就可以自己写一个宏，来自动完成整理工作，而不是人工一点一点地改，那样太累了。主要功能用途如下：
1. 使重复的任务自动化
2. 自定义EXCEL工具栏,菜单和界面
3. 简化模板的使用
4. 自定义EXCEL,使其成为开发平台
5. 创建报表
6. 对数据进行复杂的操作和分析
以下就是Visual Basic for Application的一些部分代码用途案例：
1、本示例为设置密码窗口 (1)
If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行
Else: MsgBox "密码错误，即将退出!" '此行与第2行共同设置密码 End If
2、本示例为设置密码窗口 (1)
X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then Close
3、本示例为设置工作表密码
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码
ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码 '
4、本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容 。
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next w '每次打开工作簿时，
5、本示例都最大化 Microsoft Excel 窗口。 Application.WindowState = xlMaximized '
6、本示例显示活动工作表的名称。
MsgBox "The name of the active sheet is " ActiveSheet.Name '
7、本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs "C:TEMPXXXX.XLS"
总结：VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案。
比如有个工作表，经常需要更新数据，打开数据源，调整格式，添加运算公式，等等相对固定重复的工作，就可以使用Marco宏。
某天当你工作的时候，点工具-宏-录制，然后从头到尾做一次，VBA会将你的所有动作写成一个宏程序。这个宏程序有基本的语言常识都可以弄懂，但是也会有许多无用的语句。至少，以后运行宏可以节约你的重复工作时间。其次进一步，学习条件、循环、变量等高阶用法。多学多问多实践就能学好的。
excel2010打开vba的方法
在 Excel 中经常因为会需要利用到编程进行辅助统计，这个时候需要打开VBA，VBA在Excel的默认设置中是关闭的需要我们自行打开，下面是由我分享的excel2010打开vba的 方法 ，希望对你有用。
excel2010打开vba的方法：
打开VBA步骤1：点击“文件”按钮
打开VBA步骤2：点击“选项”按钮
打开VBA步骤3：出现“excel选项”对话框
打开VBA步骤4：点击“自定义功能区”
打开VBA步骤5：在“开发工具”前面打上对号，点击确定完成设置。
打开VBA步骤6：在功能区选择，“开发工具”-“Visual Basic”