前言

今年刚入职，工作几乎都是要在黄光区做实验，用不太到电脑。
有些时候需要用到的EXCEL是前辈们做的，那个土法炼钢的程度自己是有点受不了，所以决定跳下去改的方便一点。
所以决定开始学VBA。

其实我需要的功能好像EXCEL内建的函数就能解决九成，但想说还是做个没几个同事看得懂的巨集，来增加一些自己的不可取代性(大概吧...)

而自己因为非常金鱼脑，工作的电脑又只能连内网，只好逼自己写笔记加深印象。本来要写在 Notion 上，可是打开後发现好像要写得好看还要学一些东西，发懒的我只好转写到这里了。

因为本人是工学院毕业的，很多用语应该非常不精确，见者见谅XD

开始使用

excel我的版本是2019，但应该跟2016差不多吧

• 总之先把开发人员的标签弄出来
  档案>选项>自订功能区
  把开发人员勾起来
  就会出现了

到该标签按下visual basic，开个模组就能开始用啦~~

开始写

写给自己看的，记录一些自己写错、容易忘记的东西

Sub FunctionName()
内容
End Sub

内容

cells里面的数字栏列我是用矩阵的m,n去想的，第一个数字是往下，第二个数字是往右

.

有变数就只能宣告他一下?
用九九乘法为例：

Sub MultiplicationTable()
    Dim i As Integer, j As Interger
    For i = 1 To 9
        For j = 1 TO 9
            Cells(i, j) = i* j
        Next j
    Next i
end Sub

回圈

• For~Next
  以删除空白列为例，得用倒序的方式去跑回圈，不然会删不完全。
  (123列都空白，1删了2会递补上去，但回圈跑到2了，就只会删到原本的3，就会留下一列空白)

Sub test1()
    For i = 13 To 1 Step -1
        If Cells(i, 1) = 0 Then
            Rows(i).Delete
        End If
    Next i
End Sub

• For Each~Next

Worksheets

• 吐多张分页写法

Sub testn()
Dim k As Integer
    For k = 1 To 3
        Worksheets.Add after:=Worksheets(Worksheets.Count)
    Next k
End Sub

我还不知道after:在干嘛的，猜是加在最後面吧