14、VBA代码+excel内置函数，实现高效数据处理(零基础入门)

moboyou 2025-10-19 09:17 6 浏览

1、学习VBA的主要目的是数据处理，VBA在数据处理上展现出强大的计算实力。它不仅完美继承EXCEl内置函数的功能，还能通过编程语法实现更灵活的应用。无论是基础的加减乘除，还是复杂的统计分析、逻辑判断，都能通过worksheetfunction轻松调用。再配合循环、条件语句，可构建自动化计算流程，大幅提升数据处理效率与精确度。

2、VBA的运算符
'1）赋值运算符 :=
'2）数学运算符: &(字符连接符)、+(加)、-（减）、Mod（取余）、\（整除）、*（乘）、/（除）、-（负号）、^（指数）
'3）逻辑运算符:Not（非）、And（与）、Or(或)、Xor(异或)、Eqv(相等)、Imp(隐含)
'4）关系运算符: = （相同）、<>（不等）、>（大于）、<（小于）、>=（不小于）、<=（不大于）

3、郭靖背着中了铁砂掌的黄蓉，闯入黑龙潭，瑛姑脾气古怪，见二人闯入，岂肯轻易放行。她提出若能解开难题便放他们走，还要指引能救黄蓉性命之人。说罢出题：如下图（解题代码如下）

Sub 瑛姑的题()
Dim x, n
n = 1
For x = 1 To 100
If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 2 Then
MsgBox x
End If
Next
End Sub

上面的判断语句就充分使用了逻辑符、关系运算符

4、内置函数语法列举：

求最大值---worksheetfunction.max
求最小值---worksheetfunction.min
求和---worksheetfunction.sum
平均值
---worksheetfunction.average
中位数
---worksheetfunction.median
标准差
---worksheetfunction.stdev_s
随机数
---worksheetfunction.randbetween()
平板除（求余）--mod()
绝对值--ABS()
int\fix 取整
四舍五入运算
---WorksheetFunction.Round(a, 1)

5、写一个抽奖小程序，A列是参与人员序号，B列是人名。人数不限。奖项放在E列，奖品放在G列。启动抽奖按钮获奖人员写到F列对应奖项和奖品。（效果如下，代码怎么写？）

Sub 抽奖程序()
Dim r%, n%, num%, m%, x%
Range("f3:f10").ClearContents
‘清除f列数据
r = Cells(999, 1).End(xlUp).Row
‘查找A列从下往上的非空单元格
For n = 1 To 8
'奖项总数8个，需要循环抽取8次
0
num=WorksheetFunction.RandBetween(1, r)
'记录一个（1 到 r）的随机数
For m = 3 To 10
If Cells(num, 2).Value = Cells(m, 6).Value Then
'说明该人员已中奖，重复再抽一次
GoTo 0 '返回0位置再生产一个随机数
End If
Next
Cells(10 + x, 6) = Cells(num, 2).Value
'将中奖名单记录到表格
x = x - 1
Next
End Sub

（本章完）有任何批评或疑问，可以在评论区讨论，谢谢！！

不论你是求知若渴的在校学生，还是在职场摸爬滚打多年的上班族，只要怀揣着提升自我的决心，别犹豫，快点赞、关注、收藏！我会始终站在零基础小白的视角，循序渐进，带你一步步踏入VBA的奇妙世界。

excel函数视频在线教程全集观看

上一篇：word和excel零基础学习免费视频教程，赶紧收藏，作者将转付费课
下一篇：Excel多对多查询函数新手教程:从案例到实操

14、VBA代码+excel内置函数，实现高效数据处理(零基础入门)

相关推荐

Linux环境中查看Oracle错误和警告日志信息

絮语----工作四年的碎碎念

SQL 中的 (+)用法

oracle常见问题处理

MYSQL经典面试题汇总

医院信息系统突发应急演练记录

Windows 11:已知问题和已解决问题列表(更新时间:2022年1月)

最全面的IBMS系统集成系统技术规格书，赶紧收藏起来!

苹果停止更新Windows版QuickTime!

Linux下开源BI工具Metabase本地化安装及配置详解