Excel VBA | 学习笔记（1）

其实很久之前我就有系统学习VBA的想法，也曾经买过书，看过一些视频，但无奈VBA从入门到入土，各种拖沓，各种原因，以至于不了了之。

这次趁疫情居家，给自己定了一个学习目标，学完B站孙兴华的VBA课程。

这里推荐B站的孙兴华老师，之前Power Query，Power BI等，我都有听他的课，感觉真是个宝藏老师。孙老师有很多课程，Excel系列，SQL，Access，Python等等，甚至线性代数，都是无偿分享的。如果你有兴趣可以去了解一下，当然如果你有好的学习资源，也欢迎一起分享呀。

这里记录自己的一些学习笔记，希望自己能学有所得，加油ヾ(◍°∇°◍)ﾉﾞ

01

For...Next 循环

语法：

For 循环变量 = 初值 To 终值 【Step 步长值】

       循环体（要循环执行的操作或计算）

Next 【循环变量】

【】括号内的代码可以省略。

步长值为1时可以省略。

例如新建5张工作表：

Sub 新建5张工作表()

    Dim i As Integer  

    For i = 1 To 5 

        Worksheets.Add

    Next  

End Sub

02

Do While...loop循环

语法：

Do While 条件

如果条件为True执行的代码

……..

loop

同样我们来看如何新建5张工作表：

Sub 新建5张工作表()

    Dim i As Integer  

    i = 1 

    Do While i<=5

        Worksheets.Add

        i=i+1

    Loop      

End Sub

大学里我学的唯一编程课程是VB，记得没错的话，这两个循环语句应该在VB里面学过。

03

For Each...Next 循环

For Each...Next 循环用于针对一个数组或一个集合中的每一个元素重复执行一组代码。

语法：

For Each <元素> in <集合>

循环体

Next 

元素是用来遍历集合中所有元素的变量。

例如我们提取工作表的名称：

Sub 提取工作表名()

    Dim i, j

     i = 1

     For Each j In Worksheets

     Range('A' & i) = j.Name

     i = i + 1

     Next

End Sub

04

工作表批量另存为多个PDF