(vba入门到精通80讲)(vba编程从入门到精通)

VBA是操控OFFICE各应用程序（Word、Excel、PPT等）的一门语言，WPS Office办公软件套装和Microsoft Office办公软件套装均支持VBA语言的运行。适用于完成重复的、有规律的、工作量较大的任务，我们可以把快捷键、鼠标点按拖拽、函数等操作称为常规操作，VBA是当之无愧的另类操作，它通过代码可以实现所有的常规操作。
用常规操作就可以轻松完成的工作任务,是没必要使用VBA的。VBA适合完成常规操作实现起来费时、费力的工作，是用来提高工作效率的。建议使用Office办公软件感觉有些累的小伙伴都来接触一下VBA，掌握有一定的VBA基础知识的时候，可以大量搜集整理可以实现各种功能的代码，实现能够看懂代码，并对其进行优化调整，积累自己的功能代码库，在实际工作需要时，即时调用，这时候肯定会觉得VBA真香。下面我们就一起来用VBA实现一个常规操作：

A1：C5单元区域输入“8888”

一、启动VBA编辑器（VBE ）

1、快捷键：Alt+F11

2、通过开发工具——VB编辑器

二、写入VBA代码

1、插入——模块——写入代码插入（或双击）模块后，右侧的空白位置就是编写代码的地方。

2、写入代码

Sub 输入数字()

Range("A1:C5") = "8888"

End Sub

Range("A1:C5") = "8888" 表示单元格区域A1到C5的值等于8888 Range("A1:C5")表示单元格区域，也可以表示某一个单元格，如： Range("A1") ，等于后面的值为数字时可以不加引号，若是字符需加英语标点符号" "。

三、测试运行

直接点击“运行”按钮或按快捷键F5

四、工作簿中的所有工作表批量导出单独的文件

Sub 工作表批量导出为工作簿()
Application.ScreenUpdating = False '屏幕不更新
Dim i As Integer '定义i的数据类型为整型（整数）
Dim j As Integer '定义j的数据类型为整型（整数）
Dim str As String '定义str的数据类型为字符型（文本）
j = Worksheets.Count 'j=工作簿中工作表的总数
For i = j To 1 Step -1
Worksheets(i).Copy '复制工作表
str = ActiveWorkbook.Sheets(1).Name '定义工作簿名称为当前工作表名称
ActiveWorkbook.SaveAs Filename:="D:\AA\" & str & ".xlsx" '导出到指定路径，可以修改，必须是当前存在的路径，str为文件名
ActiveWorkbook.Close savechanges:=True '保存并关闭工作簿，
Next
Application.ScreenUpdating = True '允许屏幕更新
End Sub

'后面的文字为注释，复制到编辑器中可以直接使用。