VBA入门到进阶常用知识代码总结23

最新推荐文章于 2023-10-10 22:46:17 发布

tiansdk320

最新推荐文章于 2023-10-10 22:46:17 发布

阅读量785

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/tiansdk320/article/details/104351253

版权

本文介绍了VBA中数组的各种操作，包括数组的最值、求和、统计个数、查找、Split与Join函数、Filter函数、Transpose、Index函数以及Vlookup、Sumif和Countif的应用。通过实例演示了如何高效地处理和分析数据。

摘要由CSDN通过智能技术生成

第23集 VBA数组-4：数组与函数
100、数组的最值
Application.Max(数组名)
Application.Min(数组名)
Application.Large(数组名,第几个)
Application.Small(数组名,第几个)
Sub s()
Dim arr1()
arr1 = Array(1, 12, 4, 5, 19)
MsgBox “1, 12, 4, 5, 19最大值” & Application.Max(arr1)
MsgBox “1, 12, 4, 5, 19最小值:” & Application.Min(arr1)
MsgBox “1, 12, 4, 5, 19第二大值：” & Application.Large(arr1, 2)
MsgBox “1, 12, 4, 5, 19第二小值：” & Application.Small(arr1, 2)
End Sub
101、数组求和
Application.Sum(数组名)
102、数组统计个数
'3 统计个数
CountA：统计数组的个数；
Count统计VBA数组的数字个数；
Sub s1()
Dim arr1, arr2(0 To 10), x
arr1 = Array(“a”, “3”, “”, 4, 6)
For x = 0 To 4
arr2(x) = arr1(x)
Next x
MsgBox “数组2的数字个数：” & Application.Count(arr2) ‘2
MsgBox “数组2的已填充数值的个数：” & Application.CountA(arr2) ‘11
End Sub