课程来源：王佩丰老师的《王佩丰学VBA视频教程》，如有侵权，请联系删除！

目录

1. 函数在哪找？

1.1 工作表函数（Application.WorksheetFunction.func）

1.2 VBA函数

2. 常用VBA变量

3. 函数应用

3.1 Vlookup + On Error Resume Next（若出现错误，则执行下一行语句）

3.2 文本函数 查询字符位置 Instr

3.3 文本函数 分割字符串 Split

---

1. 函数在哪找？

1.1 工作表函数（Application.WorksheetFunction.func）

Application.WorksheetFunction.func 'func代表工作表函数名

1.2 VBA函数

2. 常用VBA变量

3. 函数应用

3.1 Vlookup + On Error Resume Next（若出现错误，则执行下一行语句）

Sub Search()

On Error Resume Next ' 若出现错误，则执行下一行语句（避免VLookup函数出错导致程序异常）

Sheet1.Range("d14").ClearContents

For i = 2 To Sheets.Count

    Sheet1.Range("d14") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 5, 0)
    Sheet1.Range("d22") = Sheets(i).Name
    
    ' 找到则退出循环
    If Sheet1.Range("d14") <> "" Then
        Exit For
    End If
Next

End Sub

3.2 文本函数 查询字符位置 Instr

' Instr函数 优点 出错返回0
Sheet1.Range("b2") = Left(Sheet1.Range("a2"), InStr(Sheet1.Range("a2"), "@") - 1)

3.3 文本函数 分割字符串 Split

' Split函数 优点 分割返回数组，自由选择分割部分
    Sheet2.Range("b" & i) = _ 
Split(Sheet2.Range("a" & i), "-")(2) & "年 第" & Split(Sheet2.Range("a" & i), "-")(3) & "周"