BA通过Application.WorksheetFunction对象调用Excel内置工作表函数，几乎支持所有Excel函数（如SUM、VLOOKUP、IF、COUNTIF等），可结合工作表数据调用实现运算，核心分为基础用法、带参数函数调用、错误处理三大场景。
核心语法
1.基础格式：Application.WorksheetFunction.函数名(参数)，参数需与Excel函数参数格式一致（如单元格区域、数值、文本等）。
2.简化写法（部分场景可用）：WorksheetFunction.函数名(参数)，省略Application，但推荐保留以提高可读性。
3.变量接收结果：将函数返回值赋值给变量，便于后续处理，语法：变量名 = Application.WorksheetFunction.函数名(参数)。
分场景实例演示
实例1：调用基础运算函数（SUM、AVERAGE）
需求：计算“数据源”工作表A1:A10的总和、平均值，分别写入“汇总页”的B2、B3单元格，沿用前文数据场景。
vba
Sub 调用运算函数()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim sumResult As Double '接收总和结果
Dim avgResult As Double '接收平均值结果
Set wsSource = ThisWorkbook.Worksheets("数据源")
Set wsTarget = ThisWorkbook.Worksheets("汇总页")
'调用SUM函数计算总和
sumResult = Application.WorksheetFunction.Sum(wsSource.Range("A1:A10"))
'调用AVERAGE函数计算平均值
avgResult = Application.WorksheetFunction.Average(wsSource.Range("A1:A10"))
'写入结果
wsTarget.Range("B2").Value = sumResult
wsTarget.Range("B3").Value = Round(avgResult, 2) 'Round函数保留2位小数
MsgBox "函数运算完成！"
End Sub |
实例2：调用条件函数（VLOOKUP、COUNTIF）
需求：通过VLOOKUP从“数据源”A列（序号）匹配B列（数值），返回序号为3对应的数值；用COUNTIF统计A列大于50的数值个数，结果写入“汇总页”。
vba
Sub 调用条件函数()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim vlookupResult As Variant 'VLOOKUP可能返回错误值，用Variant类型
Dim countifResult As Integer
Set wsSource = ThisWorkbook.Worksheets("数据源")
Set wsTarget = ThisWorkbook.Worksheets("汇总页")
'调用VLOOKUP函数（参数：查找值、查找区域、返回列号、精确匹配）
vlookupResult = Application.WorksheetFunction.VLookup(3, wsSource.Range("A1:B10"), 2, False)
'调用COUNTIF函数（参数：统计区域、条件）
countifResult = Application.WorksheetFunction.CountIf(wsSource.Range("A1:A10"), ">50")
'写入结果
wsTarget.Range("E1").Value = IIf(IsError(vlookupResult), "无匹配值", vlookupResult)
wsTarget.Range("E2").Value = countifResult
MsgBox "条件函数调用完成！"
End Sub |
实例3：调用文本函数（CONCAT、LEN）
需求：合并“数据源”A1（序号）和B1（数值）为文本，统计合并后文本长度，写入“汇总页”。
vba
Sub 调用文本函数()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim concatText As String
Dim textLen As Integer
Set wsSource = ThisWorkbook.Worksheets("数据源")
Set wsTarget = ThisWorkbook.Worksheets("汇总页")
'调用CONCAT函数合并文本
concatText = Application.WorksheetFunction.Concat("序号：", wsSource.Range("A1").Value, "，数值：", wsSource.Range("B1").Value)
'调用LEN函数统计长度
textLen = Application.WorksheetFunction.Len(concatText)
wsTarget.Range("F1").Value = concatText
wsTarget.Range("F2").Value = "文本长度：" & textLen
MsgBox "文本函数调用完成！"
End Sub |
关键注意事项（函数调用专属）
1.参数匹配：严格遵循Excel函数的参数顺序和类型，如VLOOKUP的“返回列号”需为正整数，COUNTIF的条件需用文本格式（如">50"）。
2.错误处理：当函数可能返回错误值（如VLOOKUP无匹配、DIV/0!），需用IsError或On Error Resume Next捕获错误，避免代码中断。
3.函数兼容性：部分Excel新版本函数（如CONCAT、XLOOKUP）在旧版本中不可用，需确认文件保存格式及运行环境。
4.对象关联：调用函数时，单元格区域需明确关联工作表对象（如wsSource.Range("A1:A10")），避免默认引用当前激活工作表导致错误。
四、关键注意事项（避免报错核心）
1.工作表名称准确性：引用时需严格匹配工作表名称（含空格、特殊字符），如“数据表”不能写成“数据表”，否则会报“下标越界”错误。
2.工作簿对象区分：ThisWorkbook代表代码所在工作簿，ActiveWorkbook代表当前激活的工作簿，跨文件调用时避免混淆，推荐用ThisWorkbook锁定代码所在文件。
3.文件路径格式：跨文件调用时，路径需为绝对路径（如D:\文档\文件.xlsm），若文件在当前工作簿同目录，可简化为相对路径（需额外处理路径逻辑）。
4.宏启用与文件格式：若目标文件为.xlsm（含宏），打开时需允许宏运行；若为.xlsx（无宏），不可写入含宏代码，否则会报错。
5.数据类型匹配：读取数据后需确保目标单元格格式支持（如文本型数据写入数值型单元格，可能出现格式异常），可通过TypeName(数据)判断数据类型。
6.资源释放：跨文件调用后，需及时关闭目标工作簿（wbSource.Close），并释放对象变量（Set wbSource = Nothing），避免占用内存。
五、进阶技巧：批量遍历多个工作表数据
若需调用同一工作簿内多个工作表的同类数据（如各部门工作表的A1数值汇总），可通过循环遍历工作表实现，示例如下：
vba
Sub 遍历多个工作表调用数据()
Dim ws As Worksheet
Dim total As Double '汇总数值
Dim targetRow As Integer '目标写入行
targetRow = 1 '从第1行开始写入
total = 0
'遍历当前工作簿所有工作表
For Each ws In ThisWorkbook.Worksheets
'跳过不需要遍历的工作表（如“汇总页”）
If ws.Name <> "汇总页" Then
'读取每个工作表A1数值，写入汇总页B列
ThisWorkbook.Worksheets("汇总页").Range("B" & targetRow).Value = ws.Range("A1").Value
'汇总所有A1数值（调用SUM函数累加，也可直接运算）
total = total + ws.Range("A1").Value
targetRow = targetRow + 1 '行号递增
End If
Next ws
'写入汇总结果
ThisWorkbook.Worksheets("汇总页").Range("B" & targetRow).Value = total
MsgBox "批量遍历及汇总完成！"
End Sub |
