一、数组

1.1. 初始值数组

这种数组在创建的同时就需要把元素填充好，比较适合元素内容不多、已知、固定时使用，其语
法为: 变量 = Array(元素1, 元素2, 元素n)，然后通过元素坐标来访问数组中的元素，坐标从 0 开始计算，
既第一个元素的坐标是 0 ，第二个元素坐标是 1，第三个元素坐标是2 ，以此类推

示例代码

Sub main()'定义初始值数组Dim itemsitems = Array(1, 2, 3, 4, 5)'访问数组中坐标为2的元素，既元素值3Debug.Print items(2)
End Sub

1.2. 静态数组

这种一般用在元素内容无法确定，需要后期填充，但元素数量确定的场景，有两种定义语法：

1. 通过 Dim 变量名(终点坐标) 定义，这种定义方式起始坐标默认是 0
2. 通过 Dim 变量名(起始坐标 To 终点坐标) 定义，这种定义方式自己指定起点和终点坐标

示例代码

Sub main()'起始坐标默认为0Dim items(5)items(0) = 1items(1) = 2items(2) = 3items(3) = 4items(4) = 5Debug.Print items(2)'自定义起始坐标Dim items2(1 To 5)items2(1) = 1items2(2) = 2items2(3) = 3items2(4) = 4items2(5) = 5Debug.Print items2(2)
End Sub

1.3. 动态数组

这种一般用在元素内容和元素长度都不确定的场景，先用 Dim 变量名() 声明数组，然后当数组长度确定时，在通过
ReDim 变量名(起始坐标 To 终点坐标) 来设置数组长度

示例代码

Sub main()Dim items()ReDim items(1 To 5)items(1) = 1items(2) = 2items(3) = 3items(4) = 4items(5) = 5Debug.Print items(2)
End Sub

1.4. 二维数组

二维数组对于学习 vba 来说非常重要，既然学习 vba 的目的是为了扩展 Excel 的功能，那么就肯定避免不了和
单元格打交道，而 vba 中，很多选取单元格的函数，都是以二维数组的形式返回的

二维数组非常好理解，其本质就是数组的元素仍是数组，一般习惯将第一维中的每个元素称作行，第二维中的每个
元素称作列，一个三行三列的二维数组的结构大概如下图：

定义二维数组时要指定两个长度 ：

1. 第一维数组的长度，既数组有几行
2. 每个二维数组的长度，既每行中有几列

其定义语法为： Dim 变更名( 一维数组起始坐标 To 一维数组终点坐标， 二维数组起始坐标 To 二维数组终点坐标)

示例代码

一个两行三列的数组，注意：二维数组在填充和取值时，要定位到列的坐标：

Sub main()'定义两行三列的二维数组Dim items(1 To 2, 1 To 3)'为二维数组赋值For x = 1 To 2For y = 1 To 3items(x, y) = x + yNext yNext x'二维数组取值, 第一行第一列的值Debug.Print items(1, 1)
End Sub

1.4.1. 单元格与二维数组

选取 Excel 中的单元格并赋值给二维数组，或将二维数组赋值到单元格都是 vba 开发中常见的操作

例1：选取三行三列的单元格到二维数组中

代码：

Sub main()Dim itemsitems = Range("a1:c3")
End Sub

设置断点并运行，在本地窗口中验证 items 是否为三行三列的数组：

例2：将二维数组设置到单元格中

Sub main()'设置二维数组Dim items(1 To 2, 1 To 2)items(1, 1) = "a1"items(1, 2) = "b1"items(2, 1) = "a2"items(2, 2) = "b2"'将二维数组设置到单元格中Sheet1.Range("a1:b2") = items
End Sub

1.4.2. 一维数组导入单元格

将一维数组导入单元格的时候，需要用 Application.Transpose 将数组转换一下

Sub main()'设置一维数组Dim items(1 To 2)items(1) = 1items(2) = 2'将一维数组设置到单元格中Sheet1.Range("a1:a2") = Application.Transpose(items)
End Sub

1.5. 数组最大最小下标

一维数组

获取数组最小下标

Sub main()Dim items(5 To 10)Debug.Print LBound(items)
End Sub

获取数组最大下标

Sub main()Dim items(5 To 10)Debug.Print UBound(items)
End Sub

二维数组

获取数组第一维度最大下标

Sub main()Dim items(5 To 10, 4 To 15)Debug.Print UBound(items, 1)
End Sub

获取数组第二维度最大下标

Sub main()Dim items(5 To 10, 4 To 15)Debug.Print UBound(items, 2)
End Sub

1.6. 数组扩容

数组扩容需要先定义一个动态数组，然后通过 ReDim 和 Preserve 关键字对该动态数组进行扩容，扩容后会
保留数组内原来的数据

Sub main()'定义动态数组Dim items()'对数组进行第一次扩容ReDim Preserve items(1 To 2)items(1) = 1items(2) = 2'对数组进行第二次扩容ReDim Preserve items(1 To 3)items(3) = 3
End Sub

1.7. 数组相关常用的函数

1.7.1. 清空数组

使用 Erase 关键字可以清空数组内的元素

Sub main()'定义数组Dim items(1 To 1)items(1) = 1Debug.Print items(1)'清空数组Erase itemsDebug.Print items(1)
End Sub

1.7.2. 数组最大值

使用 Application.Max 函数，可以找到数组中值最大的元素

Sub main()'定义数组Dim items(1 To 5)items(1) = 5items(2) = 3items(3) = 1items(4) = 2items(5) = 4'数组内最大值Debug.Print Application.Max(items)
End Sub

1.7.3. 数组最小值

使用 Application.Min 函数，可以找到数组中值最小的元素

Sub main()'定义数组Dim items(1 To 5)items(1) = 5items(2) = 3items(3) = 1items(4) = 2items(5) = 4'数组内最小值Debug.Print Application.Min(items)
End Sub

1.7.4. 数组中第 N 大的值

使用 Application.Large 函数，可以找到数组中值第 N 大的元素

Sub main()'定义数组Dim items(1 To 5)items(1) = 50items(2) = 30items(3) = 10items(4) = 20items(5) = 40'数组内第二大的值Debug.Print Application.Large(items, 2)
End Sub

1.7.5. 数组中第 N 小的值

使用 Application.Small 函数，可以找到数组中值第 N 小的元素

Sub main()'定义数组Dim items(1 To 5)items(1) = 50items(2) = 30items(3) = 10items(4) = 20items(5) = 40'数组内第二小的值Debug.Print Application.Small(items, 2)
End Sub

1.7.6. 数组内容求和

使用 Application.Sum 函数，可以对数组中的所有元素进行求和

Sub main()'定义数组Dim items(1 To 5)items(1) = 50items(2) = 30items(3) = 10items(4) = 20items(5) = 40'数组求和Debug.Print Application.Sum(items)
End Sub

1.7.7. 数组中查找

使用 Application.WorksheetFunction.Count 函数，可以统计出数组内数值型元素的数量

Sub main()'定义数组Dim items(1 To 5)items(1) = "字符串"items(2) = 30items(3) = 10items(4) = 20items(5) = 40'数组内数值型元素的数量为4个Debug.Print Application.WorksheetFunction.Count(items)
End Sub

1.7.8. 统计数量

使用 Application.WorksheetFunction.CountA 函数，可以统计出数组内数值型和字符串型元素的总数量

Sub main()'定义数组Dim items(1 To 5)items(1) = "字符串"items(2) = 30items(3) = 10items(4) = 20items(5) = 40'数组内数值型和字符型元素的数量为5个Debug.Print Application.WorksheetFunction.CountA(items)
End Sub

1.7.10. 数组中查找

使用 Application.Match 函数，可以返回指定值在数组内对应的下标，第三个参数为返回第 N 次匹配的下标 ( 0：第一
次匹配的下标，1：第二次匹配的下标)

Sub main()'定义数组Dim items(1 To 5)items(1) = "字符串"items(2) = 30items(3) = 10items(4) = 20items(5) = 40'返回第一次匹配的元素下标 4 Debug.Print Application.Match(20, items, 0)
End Sub

1.7.11. 将字符串分割成数组

使用 VBA.Split 函数，可以按照分割符将字符串拆分成数组，下标从 0 开始

Sub main()Dim items'拆分成长度为3的数组，下标从 0 开始items = VBA.Split("第1段-第2段-第3段", "-")For Each Item In itemsDebug.Print ItemNext Item
End Sub

二、字典

数据字典类似于其他开发语言中的 Map 结构，属于 Key/Value 集合，集合中 Key 不能重复

2.1. 创建字典和填入数据

利用 CreateObject("scripting.dictionary") 来创建一个字典，然后通过字典对象的 Add 方法来添加数据

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"dic.Add "数据2", "这是数据2的值"
End Sub

2.2. 字典取值

根据 key 在字典中查找其对应的值

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"dic.Add "数据2", "这是数据2的值"'根据 key 在字典中取值Debug.Print dic("数据1")
End Sub

通过字典对象的 items 属性，取得字典中全部的 key

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"dic.Add "数据2", "这是数据2的值"'取得字典中全部的 keyDim itemsitems = dic.itemsFor Each Item In itemsDebug.Print ItemNext Item
End Sub

2.3. 修改字典内容

字典中不能添加重复的 key，但是可以对已有 key 对应的值进行修改

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"Debug.Print dic("数据1")'修改字典中的数据dic("数据1") = "这是修改后的数据"Debug.Print dic("数据1")
End Sub

2.4. 统计字典内容数量

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"dic.Add "数据2", "这是数据2的值"'统计字典内元素的数量Debug.Print dic.Count
End Sub

2.5. 判断键在字典内是否存在

根据 key 在字典内查找，结果为布尔类型

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"dic.Add "数据2", "这是数据2的值"'统计字典内元素的数量Debug.Print dic.Exists("数据1")
End Sub

2.6. 将内容从字典内删除

利用字典对象的 Remove 方法，可以根据 key 将元素从字典中删除

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"dic.Add "数据2", "这是数据2的值"Debug.Print dic.exists("数据1")'根据 key 将元素从字典中删除dic.Remove "数据1"Debug.Print dic.exists("数据1")
End Sub

利用字典对象的 RemoveAll 方法，可以清空字典

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'向字典内添加数据dic.Add "数据1", "这是数据1的值"dic.Add "数据2", "这是数据2的值"Debug.Print dic.exists("数据1")'清空字典dic.RemoveAllDebug.Print dic.exists("数据1")
End Sub

2.7. 设置字典不许分大小写

在字典操作中，默认情况下 key 是区分大小写的，可以通过设置字典对象的 CompareMode 属性，让字典忽略 Key
的大小写

Sub main()'声明字典Dim dicSet dic = CreateObject("scripting.dictionary")'让字典忽略 key 的大小写dic.CompareMode = vbTextCompare'向字典内添加数据dic.Add "a", "值"Debug.Print dic.exists("A")
End Sub

Excel-VBA 快速上手（三、数组和字典）相关推荐

1. Excel VBA（04）数组和字典

   数组 一.数组基本概念 一维.二维和三维数组 1.常量数组 array(1,2,3) array(array(1,2,3),array("1","2",&quo ...

2. excel vba真正的动态数组实例-按需定义数组大小

   excel vba真正的动态数组实例 一.动态数组的定义 动态数组的定义,一开始不需要给数组标明上界和下界.直接定义即可,如下面的代码: Dim MyStr() As String 这样,就定义了一个 ...

3. Excel.VBA 快速删除重复记录

   Excel.VBA 快速删除重复记录 日常工作中的工作表中经常会有重复记录,清除这些重复记录是一个繁琐的工作,即使在排序之后再进行手工筛选,也经常会出现遗漏,而使用VBA代码就可以快速准确地删除重复记 ...

4. 巧用Excel VBA 快速编排考场座位

   百度文库下载地址: 学校考试考场编排软件(单年级) http://wenku.baidu.com/view/464023029ec3d5bbfc0a740f.html 学校考试考场编排软件(多年级) ...

5. 用access做考场桌贴_巧用Excel VBA 快速编排考场座位

   百度文库下载地址: 学校考试考场编排软件(单年级) 学校考试考场编排软件(多年级) 学校考试考场编排软件(多年级,文理绲编),请联系作者索要. 更多考试管理系统下载 [摘要]科学的考场座位编排方法可以 ...

6. Excel Vba快速界面设计入门

   一.打开 开发工具->Visual Basic ,进入代码编辑区. 二.双击 ThisWorkbook ,从右侧上部选择 打开事件,并输入代码. Private Sub Workbook_Ope ...

7. Excel VBA 快速访问 Power Query 表格数据

   1.PowerQuery 可以方便获取外部数据,并进行数据清洗,最后将结果返回到工作表中.每次刷新数据后,工作表中返回的数据的行数不是固定的. 2.在VBA中如何方便地访问PowerQuery返回的表 ...

8. EXCEL VBA小白第三课：删除行，合并空白单元格

   本文首发于我的知乎和公众号info_star,转载请注明出处. 今天要说的这段代码呢,同样是因为同事妹子有需求而写的. 做数据透视表的时候,经常有一个组里面出现几个分支都有数值的情况,老板要求把数据透 ...

9. excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号

   Sub Macro3() Application.OnKey "^h", "sHide" '仅隐藏选择的行2013.3.15 by lijilin Applic ...

10. Golang单元测试快速上手(三) 高级技巧

    注:本文由linstring原创,博客地址:https://blog.csdn.net/lin_strong 转载请注明出处 第一部分链接: https://blog.csdn.net/lin_str ...

最新文章

1. 免费好用的Diff和Merge工具大总结
2. vector机器人 HOW TO CHARGE VECTOR 如何给矢量充电
3. Java的calendar类用法
4. Appointment在SPRO里的date profile配置
5. 使用ABAP代码返回S/4HANA Material上维护的Attachment明细
6. Swift--基本数据类型(一)
7. [转]phonegap 2.9 IOS Xcode 搭建环境
8. 打擦边球，涨粉1700万！中国最“不正经”的官媒，比杜蕾斯还会玩
9. Microsoft Office 2008 for Mac Service Pack 1 更新后无法启动程序问题解决方案
10. 面试硬核干货：纯CSS实现垂直居中，快来收藏吧
11. 微信小程序开发资源汇总 awesome-wechat-weapp
12. 互联网和大数据是什么意思_互联网包括大数据吗 大数据与互联网的关系是什么...
13. odi12配置mysql_Oracle数据库之Oracle ODI 12c之多表联合查询以及定时任务设置
14. 同样是VPS，为什么RAKsmart更受欢迎
15. 高德地图JSAPI测距功能优化
16. 应用宝新增大王卡购买渠道入口 下载、更新应用全免流量
17. JVM垃圾回收说为学日益，为道日损
18. 随机生成英文字母 php,PHP生成随机英文用户名
19. 用支持向量机解决蠓虫分类问题matlab,分类问题
20. Python科学计算库核心知识点总结_代码篇(ML/DL依赖语法)

热门文章

1. PHP LOL接口,电竞数据API接口|英雄联盟lol|联赛统计|API调用示例代码
2. Flutter动画Animation开发指南
3. 论文解读：记忆网络（Memory Network）
4. 传统蓝牙HCI(Bluetooth HCI)的概念介绍
5. 主机内存测试软件,检测内存条的软件有哪些？内存条查看工具介绍
6. [算法课]算法课全题目解答及各周链接
7. 行列式java_n阶行列式的全排列求解(Java)
8. CNN之Xception Keras实现模型训练
9. android 仿ios地址,Android 仿苹果通话界面源码
10. 虚拟示波器---匿名上位机