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

已于 2022-07-05 19:13:39 修改
阅读量8.5k 收藏 138
点赞数 19
分类专栏： VBA-Excel 文章标签： vba
于 2022-07-05 19:12:57 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ares5kong/article/details/125442127
版权

文章目录

一、数组


1.1. 初始值数组


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

示例代码

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

1.2. 静态数组


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

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

示例代码

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

1.3. 动态数组


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

示例代码

Sub main()
  Dim items()
  ReDim items(1 To 5)
  items(1) = 1
  items(2) = 2
  items(3) = 3
  items(4) = 4
  items(5) = 5
  Debug.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 2
    For y = 1 To 3
      items(x, y) = x + y
    Next y
  Next x
  '二维数组取值, 第一行第一列的值
  Debug.Print items(1, 1)
End Sub

1.4.1. 单元格与二维数组


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

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

单元格导入二维数组
代码：

Sub main()
  Dim items
  items = 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) = 1
  items(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) = 1
  items(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) = 1
  Debug.Print items(1)
  '清空数组
  Erase items
  Debug.Print items(1)
End Sub

1.7.2. 数组最大值


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

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

1.7.3. 数组最小值


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

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

1.7.6. 数组内容求和


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

Sub main()
  '定义数组
  Dim items(1 To 5)
  items(1) = 50
  items(2) = 30
  items(3) = 10
  items(4) = 20
  items(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) = 30
  items(3) = 10
  items(4) = 20
  items(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) = 30
  items(3) = 10
  items(4) = 20
  items(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) = 30
  items(3) = 10
  items(4) = 20
  items(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 items
   Debug.Print Item
 Next Item
End Sub

二、字典


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

2.1. 创建字典和填入数据


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

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

2.2. 字典取值


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

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

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

Sub main()
  '声明字典
  Dim dic
  Set dic = CreateObject("scripting.dictionary")
  '向字典内添加数据
  dic.Add "数据1", "这是数据1的值"
  dic.Add "数据2", "这是数据2的值"
  
  '取得字典中全部的 key
  Dim items
  items = dic.items
  For Each Item In items
    Debug.Print Item
  Next Item
End Sub

2.3. 修改字典内容


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

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

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


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

Sub main()
  '声明字典
  Dim dic
  Set 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 dic
  Set 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 dic
  Set dic = CreateObject("scripting.dictionary")
  '向字典内添加数据
  dic.Add "数据1", "这是数据1的值"
  dic.Add "数据2", "这是数据2的值"
  Debug.Print dic.exists("数据1")
  '清空字典
  dic.RemoveAll
  Debug.Print dic.exists("数据1")
End Sub

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


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

Sub main()
  '声明字典
  Dim dic
  Set dic = CreateObject("scripting.dictionary")
  '让字典忽略 key 的大小写
  dic.CompareMode = vbTextCompare
  '向字典内添加数据
  dic.Add "a", "值"
  Debug.Print dic.exists("A")
End Sub
「已注销」
关注
  • 19
    点赞
  • 踩
  • 138
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
字典添加数据_Excel VBA解读（159）： 数据结构—字典对象的基本操作
weixin_30954879的博客
01-11 2140
学习Excel技术，关注微信公众号：excelperfect本文详细讲解Dictionary对象的一些基本操作。添加字典元素使用Add方法，添加字典元素项。其语法为：字典对象.Add Key, ItemAdd方法有两个参数。参数Key指定字典元素项的键值，参数Item指定字典元素项的值。如下面的代码：Sub testAddItem() Dim dict As Object S...
Excel+VBA+之快速上手
热门推荐
随风佳苑
12-31 1万+
第一章  VBA语言基础  第一节 标识符  一．定义  标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常 量、过程、函数、类等的引用。   二．命名规则  1） 字母打头，由字母、数字和下划线组成，如  A987b_23Abc  2） 字符长度小于 40，（Excel2002以上中文版等，可以用汉字且长度可达 254个字符）  3） 不能与 VB保留关键字
Excel VBA字典与数组范例精讲
05-21
Excel VBA字典与数组精讲，供Excel高级开发者和爱好者学习使用。
Excel之VBA操作
最新发布
csren11的博客
06-27 1408
但是 Excel 在打开包含 VBA 代码的工作簿时，在编辑栏上方，显示安全警告，并且可以选择启用代码运行或不启用。如果选择启用，下次打开相同的工作簿，不会出现警告。设置方法：在开发工具选项卡，点击「宏安全性」按钮，弹出信任中心窗口，在左侧列表中，选择「受信任位置」。把一个文件夹添加到 Excel 受信任的位置后，该文件夹下的包含 VBA 代码的工作簿打开时，不会提示安全警告，也无需每次手动开启代码。Excel 提供 4 种宏安全性选项，在开发工具选项卡，点击「宏安全性」按钮，打开信任中心。
VBA学习笔记四：数组
gogoel的博客
05-04 1779
第4部分 数组；介绍了数组的基本概念，在VBA中声明数组的方法、如何写入数组以及数组常用的功能，包括数组元素的处理、清空数组、数组之间的转置和结合工作表函数使用的方法。最后延伸到了数组中元素的排序，冒泡排序、选择排序、插入排序、快速排序和归并排序，这些排序的方法可以帮助我们更深入理解算法的原理和执行过程
VBA数组与字典笔记
cxx0515的博客
08-15 866
'.resize(行数,列数),ubound(crr,1)为整个数组的行数,ubound(crr,2)为整个数组的列数，该语句相当于将整个数组复制到以K1为起点的区域。内容为：关键字：及时雨" & vbcrlf & “条 目：” & .Item(“及时雨”)标题为：.Add “及时雨”, “宋江”，vbOKOnly是添加弹窗标题的。可以使用“Exists”方法判断一个键是否存在于字典中。9、'利用keys方法和Items方法输出所有关键字和所有条目。5、字典的keys和items直接给数组。
Excel VBA（04）数组和字典
stanwuc的博客
04-01 7717
数组 字典
VBA数组和字典
weixin_30363981的博客
04-24 761
转载自：http://www.cnblogs.com/wuzhiblog/p/vba_two.html 转载于:https://www.cnblogs.com/lybstudy/p/10762467.html
关于excel的vba数组
ysds20211402的博客
04-10 1590
转自：微点阅读https://www.weidianyuedu.com 什么是vba数组?先让我们从字面来看一下它的意思：“数：数据；组：组合”。从字面很直观地看出，数组就是N个数据的组合，如果某个变量只包含一个数据，就不是数组，只能是一个普通的变量。 有人把数组比喻为一串用线穿起来的辣椒，也有人比喻为班级里一群学生。 如果你当过兵，每天训练前肯定会先做队伍集合，如果这个队伍是一个班，班长肯定会叫全体士兵先排队点名，每个士兵会从头至尾进行报数，1、2、3。。。这样最后一名士兵所报的数就是当前这..
ExcelVBA之数组
soga235的博客
06-06 802
因为数组也是变量，所以，你必须用声明其它变量的类似方法声明数组——使用Dim语句。当你声明一个数组时，你便设定了该数组储存数据所需要的内存空间。数组声明的例子： Dim cities(6) As String Dim daysOfWeek(7) As String Dim lotto(6) As Integer Dim exchange(5, 3) As Varian 注意，变量名称后面带有括号以及括号里有数字。一维数组要求括号里带一个数字，这个数字决定了这个数组能够储存的最大成员数。二维数组后面总是
Excel中VBA操作相关数组和字典
u010719791的专栏
09-08 2305
VBA操作Excel中数组分类汇总： Sub VBA数组分类汇总() Dim arr1() arr = [a2:c13] For i = 1 To UBound(arr) ReDim Preserve arr1(1 To 2, 1 To n + 1) For j = 1 To UBound(arr1, 2) If arr1(1, j) = arr(i, 1) Then arr1(2, j) = arr1(2, j) + arr(i, 3)
在Excel VBA中使用字典
m0_73209313的博客
10-13 2836
在EXCEL VBA中调用字典，提取唯一值
Excel-VBA实用技巧范例-数组.zip
03-18
在Excel中，VBA（Visual Basic for ...通过学习和实践这些VBA数组技巧，你可以编写更高效、更复杂的Excel自动化脚本，解决实际工作中遇到的各种数据处理问题。记得在实践中不断探索，你会发现VBA数组的强大之处。
Excel-VBA宏编程实例源代码-快速输入月份名称的自定义数组函数.zip
12-14
本实例“Excel-VBA宏编程实例源代码-快速输入月份名称的自定义数组函数.zip”着重展示了如何利用VBA编写自定义数组函数来快速输入月份名称。以下是对这个主题的详细讲解： 1. **VBA宏基础**： VBA是Microsoft ...
EXCEL-VBA编程_EXCEL-VBA编程_
09-28
Excel VBA（Visual Basic for Applications）编程是一种强大的工具，它允许用户通过自定义代码来扩展Excel的功能，实现自动化任务和创建复杂的程序。本教程将深入探讨如何在Excel中利用VBA进行编程，尤其是如何制作...
Excel-VBA教程完全版.pdf
04-29
#### 学习微软EXCEL2002VBA编程和XML，ASP技术 - **电子表格自动化简介和了解宏命令**：概述Excel自动化的基本原理，并详细介绍宏命令的应用。 - **VBA第一步**：从基础入手，教授如何开始编写VBA程序，包括指令、...
Excel-VBA-编程教程(完整版).pdf
09-30
Excel-VBA 编程教程是 Excel 中的编程语言，用于自动化 Excel 操作、创建自定义工具栏和菜单、生成报表和图表等。VBA 语言是基于 Visual Basic 语言的扩展，提供了强大的编程功能。 VBA 语言基础 VBA 语言是基于 ...
数组和字典
Hzengda的博客
12-21 928
初始化方法 NSArray *name = [[NSArray alloc]initWithObjects:@”one”,@”two”,@”three”, nil];便利构造器 NSArray *array = [NSArray arrayWithObjects:@”h”,@”he”,@”heh”,@”hehe”,nil];字面量 NSArray *name1 = @[@"q",@"
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值