课程来源：王佩丰老师的《王佩丰学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").ClearContentsFor i = 2 To Sheets.CountSheet1.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") <> "" ThenExit ForEnd If
NextEnd 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) & "周"