学习VBA,报表做到飞 第二章 数组 2.5 工作表函数
wptr33 2024-12-16 16:31 36 浏览
第二章 数组
2.5 工作表函数
在用VBA对数组进行操作时,引用合适的Excel工作表函数,会省去许多编程代码,提高运行效率,让你事半功倍。
下面我们就来介绍几个常用的Excel工作表函数在数组上的应用:
1、数组求和
Application.Sum (arr)
2、数组平均值
Application.Average (arr)
3、数组大小值
Application.Max (arr) '数组最大值
Application.Min (arr) '数组最小值
Application.Large (arr, 3) '数组第3最大值
Application.Small (arr, 3) '数组第3最小值
4、数组查询
Match(查找内容, 数组, 查找方式)
返回一个一维数组里要查找的内容所在的位置,查找不到返回空。查找方式一般填为0,查找等于查找内容的第一个数值。
例如:
Application.Match("查找值", brr, 0)
5、数组拆分
Index一个好好的查询函数,却干起了哈士奇的活(笑脸)
Index(数组,行, 列):返回一个一维数组里指定位置的值,或返回一个二维数组里指定行列的值。对二维数组进行操作时,如果省略行,则返回整列,如果省略列,则返回整行。VBA就是利用这个功能,从一个二维数组里任意拆分出一行或一列,形成一个新的数组。
卡片号 | 资产名称 | 建卡 | 原值 | 净值 |
0000793398 | 空调 | 2007-12-31 | 498720.00 | 14961.60 |
0000793400 | 台式电脑 | 2007-12-31 | 35670.00 | 1070.10 |
0001218983 | 音响设备 | 2007-12-31 | 12420.00 | 372.60 |
0001443995 | 音响设备 | 2008-06-11 | 6800.00 | 204.00 |
0001443996 | 音响设备 | 2008-06-11 | 6800.00 | 204.00 |
0001443997 | 音响设备 | 2008-06-11 | 6800.00 | 204.00 |
0003257991 | 台式微机 | 2010-12-29 | 6100.00 | 183.00 |
0003257992 | 台式微机 | 2010-12-29 | 6100.00 | 183.00 |
0003444159 | 电视机 | 2011-07-07 | 15600.00 | 468.00 |
0004715737 | 空调 | 2012-09-11 | 5700.00 | 171.00 |
0004715738 | 空调 | 2012-09-11 | 5700.00 | 171.00 |
0004966154 | 监控设备 | 2012-12-05 | 8000.00 | 240.00 |
0004966420 | 金库门 | 2012-12-05 | 76000.00 | 2280.00 |
0005925757 | 笔记本式微机 | 2012-12-30 | 5700.00 | 171.00 |
0006065400 | 监控设备 | 2012-12-30 | 24250.00 | 727.50 |
Sub 数组工作表函数()
arr = Range("a1").CurrentRegion
brr = Application.Index(arr, , 1)
'返回arr数组的第1列,形成一个二维数组
brr = Application.Transpose(brr)
'转换后得到一个一维数组
crr = Application.Index(arr, 2)
'返回arr数组的第2行,形成一个一维数组
End Sub
Excel还有许多函数可以应用于数组,大家可以自己动手试一下,这里就不再一一举例了。
往期精彩回顾:
学习VBA,报表做到飞 第二章 数组 2.4 Filter函数
学习VBA,报表做到飞 第二章 数组 2.3 Split与Join
学习VBA,报表做到飞 第二章 数组 2.2 数组的上界与下界
我是云飞扬,职场财会人员,愿与大家分享表格制作和数据统计分析的技巧与方法,希望大家的工作更便捷,更轻松!
相关推荐
- 开发者必看的八大Material Design开源项目
-
MaterialDesign是介于拟物和扁平之间的一种设计风格,自从它发布以来,便引起了很多开发者的关注,在这里小编介绍在Android开发者当中里最受青睐的八个MaterialDesign开源项...
- 另类插这么可爱,一定是…(另类t恤)
-
IT之家(www.ithome.com):另类插图:这么可爱,一定是…OSXMavericks和Yosemite打破了苹果对Mac操作系统传统的命名方式,使用加州的某些标志性景点来替换猫...
- Android常用ADB命令(安卓adb工具是什么)
-
杀死应用①根据包名获取APP的PIDadbshellps|grep应用包名②执行kill命令...
- 微软Mac版PowerPoint测试Reading Order Pane功能
-
IT之家5月20日消息,微软公司昨日(5月19日)发布博文,邀请Microsoft365Insiders成员,测试macOS新版PowerPoint演示文稿应用,重点引入...
- Visual Studio跨平台开发实战(4):Xamarin Android控制项介绍
-
前言不同于iOS,Xamarin在VisualStudio中针对Android,可以直接设计使用者界面.在本篇教学文章中,笔者会针对Android的专案目录结构以及基本控制项进行介绍,包...
- 用云存储30分钟快速搭建APP,你信吗?
-
背景不管你承认与否,移动互联的时代已经到来,这是一个移动互联的时代,手机已经是当今世界上引领潮流的趋势,大型的全球化企业和中小企业都把APP程序开发纳入到他们的企业发展策略当中。但随着手机APP上传的...
- 谷歌P图神器来了!不用学不用教,输入一句话,分分钟给结果
-
Pine发自凹非寺量子位|公众号QbitAI当你拍照片时,“模特不好好配合”怎么办?...
- iOS文本编辑控件UITextField和UITextVie
-
记录一个菜鸟的IOS学习之旅,如能帮助正在学习的你,亦枫不胜荣幸;如路过的大神如指教几句,亦枫感激涕淋!细心的朋友可能已经注意到了,IOS学习之旅系列教程在本篇公众号的文章中,封面已经换成美女图片了,...
- Android入门图文教程集锦(android 入门教程)
-
Android入门视频教程集锦AndroidStudio错误gradientandroid:endXattributenotfound...
- 如何使用Android自定义复合视图(如何使用android自定义复合视图)
-
在最近的一个客户应用中,我遇到了一个需求,根据选定的值来生成指定数量的编辑框字段,这样用户可以输入人物信息。最初我的想法是把这些逻辑放到Fragment中,只是根据选中值的变化来向线性布局容器中增加编...
- 原生安卓开发app的框架frida常用关键代码定位
-
前言有时候可能会对APP进行字符串加密等操作,这样的话你的变量名等一些都被混淆了,看代码就可能无从下手...
- 教程10 | 三分钟搞定一个智能输入法程序
-
一案例描述1、考核知识点网格布局线性布局样式和主题Toast2、练习目标掌握网格布局的使用掌握Toast的使用掌握线性布局的使用...
- (Android 8.1) 功能与新特性(android的功能)
-
和你一起终身学习,这里是程序员AndroidAndroid8.1(API级别27)为用户和开发人员引入了各种新特性和功能。本文档重点介绍了开发人员的新功能。通过本章阅读,您将获取到以下内容:Andr...
- 怎样设置EditText内部文字被锁定不可删除和修改
-
在做项目的时候,我曾经遇到过这样的要求,就是跟百度贴吧客户端上的一样,在回复帖子的时候,在EditText中显示回复人的名字,而且这个名字不可以修改和删除,说白了就是不可操作,只能在后面输入内容。在E...
- 如何阻止 Android 活动启动时 EditText 获得焦点
-
技术背景在Android开发中,当活动启动时,EditText有时会自动获得焦点并弹出虚拟键盘,这可能不是用户期望的行为。为了提升用户体验,我们需要阻止...
- 一周热门
-
-
C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)
-
因果推断Matching方式实现代码 因果推断模型
-
git pull命令使用实例 git pull--rebase
-
面试官:git pull是哪两个指令的组合?
-
git 执行pull错误如何撤销 git pull fail
-
git fetch 和git pull 的异同 git中fetch和pull的区别
-
git pull 和git fetch 命令分别有什么作用?二者有什么区别?
-
git pull 之后本地代码被覆盖 解决方案
-
还可以这样玩?Git基本原理及各种骚操作,涨知识了
-
git命令之pull git.pull
-
- 最近发表
-
- 开发者必看的八大Material Design开源项目
- 另类插这么可爱,一定是…(另类t恤)
- Android常用ADB命令(安卓adb工具是什么)
- 微软Mac版PowerPoint测试Reading Order Pane功能
- Visual Studio跨平台开发实战(4):Xamarin Android控制项介绍
- 用云存储30分钟快速搭建APP,你信吗?
- 谷歌P图神器来了!不用学不用教,输入一句话,分分钟给结果
- iOS文本编辑控件UITextField和UITextVie
- Android入门图文教程集锦(android 入门教程)
- 如何使用Android自定义复合视图(如何使用android自定义复合视图)
- 标签列表
-
- git pull (33)
- git fetch (35)
- mysql insert (35)
- mysql distinct (37)
- concat_ws (36)
- java continue (36)
- jenkins官网 (37)
- mysql 子查询 (37)
- python元组 (33)
- mybatis 分页 (35)
- vba split (37)
- redis watch (34)
- python list sort (37)
- nvarchar2 (34)
- mysql not null (36)
- hmset (35)
- python telnet (35)
- python readlines() 方法 (36)
- munmap (35)
- docker network create (35)
- redis 集合 (37)
- python sftp (37)
- setpriority (34)
- c语言 switch (34)
- git commit (34)