简介面向Excel VBA初学者的数组专题教程集合由“兰色幻想”整理主要帮助读者系统理解VBA数组的核心概念与日常应用解决数据处理时反复读写单元格导致运行缓慢、代码效率偏低的问题。内容涵盖数组的基本概念、一维与二维数组的差别、固定与动态数组的声明方式、利用Range对象将单元格区域批量搬入内存、通过索引读取和修改数组元素、Array函数创建常量数组以及UBound、LBound边界检测等知识点并配有大量可直接运行的VBA代码示例与简要说明便于边看边练。整份资料共1个PDF文档打包后仅14KB移动端或电脑上都能随时打开查阅。目前已有481人学习下载适合希望提升Excel自动化数据处理效率的入门及中级用户也适合需要在报表统计、数据清洗等场景中快速上手数组的办公人员学完可掌握用数组批量处理数据的核心思路和常用写法。1. 数组不是玄学先搞清楚它到底存在哪很多人学了一段 VBA一听到数组就觉得难其实它只是把一组数据在内存里连续摆开给每格编个号仅此而已。之所以重要是因为处理上万行数据时逐个读单元格和一次性把区域装进数组耗时会差一个量级——循环读单元格本质是反复跟 Excel 界面层做数据交换而数组读写发生在内存里毫秒级完成。这份兰色幻想整理的 VBA 数组入门教程正好把这些被讲复杂的概念重新讲回人话。适合刚过录制宏阶段、开始写真正数据处理代码的 Excel 用户也适合想优化旧宏运行速度的 Office 开发者。看下去之前先记住结论数组不是高深数据结构它就是一组按编号排列的格子难点只在于怎么把数据搬进去、搬出来。2. 从单元格到内存数组装载与写回的正确姿势2.1 为什么固定数组不能直接接住单元格区域先看一个很多人踩过的写法Dim arr(1 To 10, 1 To 2) 想用固定大小数组接单元格 arr Range(A1:B10) 运行时直接报错原因在于Range.Value返回的是一个二维 Variant 数组它的行列边界由区域本身决定而Dim arr(1 To 10, 1 To 2)已经写死了数组的维度和边界VBA 不允许用一组新数据整体覆盖一个已经定型的固定数组。正确做法是下面两种Dim arr As Variant 声明为 Variant接收区域返回值 arr Range(A1:C7) Dim brr() 声明动态数组让系统按区域自动扩展 brr Range(A1:C7)这里arr和brr接收后就自动成为二维数组第一维是行、第二维是列。教程里特别强调不能声明成 Integer、String 等具体类型因为区域里可能混着数值、文本、日期甚至错误值只有 Variant 或未定类型的动态数组才能原样吞下。读数据时按arr(行号, 列号)直接取MsgBox arr(3, 2)就是取第 3 行第 2 列的值。2.2 一维数组写回时的横放与竖放数组装进内存后最终还是要还回工作表。一维数组的写回方向是个经典细节Sub test1() Dim arr(1 To 5) As Long, x As Long For x 1 To 5 arr(x) x * 2 Next x Range(A1:E1) arr 横着放A1:E1 依次为 2、4、6、8、10 Range(A3:A7) Application.Transpose(arr) 竖着放必须转置 End SubRange(A1:E1)是 1 行 5 列一维数组默认按横向对齐可以直接等号赋值。而Range(A3:A7)是 5 行 1 列需要用Application.Transpose把一维数组转成 1 列多行的结构才能对齐。写反了不会报错但你会看到第一格里是整个数组、后面全是 Empty这种隐含错误比报错更难排查。2.3 区域整体计算后再写回比起边算边改单元格更快的路子是在数组里完成全部计算再一次写回Sub test() Dim arr, x As Long arr Range(a2:d5) 把 a2:d5 共 4 行 4 列搬进 arr For x 1 To 4 arr(x, 4) arr(x, 3) * arr(x, 2) 金额列 数量列 * 单价列 Next x Range(a2:d5) arr 一次性写回循环里没有触碰单元格 End Sub提示arr(x, 4) arr(x, 3) * arr(x, 2)改的是内存里的副本不会半路影响工作表显示这也是它比逐格读写快得多的根本原因。用这个模式处理几万行数据时优势非常明显这才是数组在 Excel 自动化里的核心价值。表 1 整理了区域与数组互转时的几种对应写法使用场景推荐写法写回方式接收单元格区域Dim arr或Dim arr()直接区域 数组固定大小一维数组Dim arr(1 To 5)横向区域直接等号赋值固定大小二维数组Dim arr(1 To 10, 1 To 3)区域等号赋值行列对应一维数组竖排写回Application.Transpose(arr)赋值给单列区域3. 动态数组与下标边界ReDim、UBound、LBound 实战3.1 先算出数量再 ReDim 装数据动态数组最大的用途是不知道最终要装多少数据时先声明一个空壳等条件统计出数量后再确定大小。教程里筛选大于 10 的数的例子是典型用法Sub darr() Dim arr(), k As Long, m As Long, x As Long k Application.WorksheetFunction.CountIf(Range(a2:a6), 10) ReDim arr(1 To k) For x 2 To 6 If Cells(x, 1) 10 Then m m 1 arr(m) Cells(x, 1) End If Next x MsgBox arr(2) End Sub逻辑说明先用工作表函数CountIf统计出符合条件的个数 kReDim arr(1 To k)把这个动态数组精确撑到 k 个位置再用变量 m 作为递进下标填入数据。这里有个容易被忽略的点——Dim arr()只声明了以后是数组真正分配内存发生在ReDim那次。如果对性能敏感这种两段式写法比在循环里反复ReDim Preserve合理得多后者每次都会复制整个数组数据一多就慢。3.2 下标不从 1 开始的数组VBA 允许自定义数组下界Dim arr(-19 To 8)表示编号从 -19 到 8共 28 个元素。乍看没什么用但处理周次、季度编号这类业务语义时直接拿实际含义当下标比每次做实际值 偏移量的换算直观得多。关键是配合UBound和LBound用别把边界搞错Sub t2() Dim arr(-19 To 8, 2 To 5) MsgBox UBound(arr) 第1 维(行)最大下标返回 8 MsgBox LBound(arr) 第1 维(行)最小下标返回 -19 MsgBox UBound(arr, 2) 第2 维(列)最大下标返回 5 MsgBox LBound(arr, 2) 第2 维(列)最小下标返回 2 End SubUBound(arr)不带第二个参数时返回第一维上界带, 2才返回第二维。很多人在二维数组上只写UBound(arr)拿到行数就当总长度用一旦数组是多行两列结构统计列就会算错。编程里有一句话叫永远不要硬编码数组边界用LBound和UBound做循环起止是避免下标越界的通用做法。3.3 用 UBound 反推区域大小因为数组是动态的想知道到底装了多少行多少列直接问UBound最稳。教程用UsedRange演示了这种通用做法Sub t3() Dim arr arr Sheets(1).UsedRange MsgBox UBound(arr, 1) 这个区域有多少行 MsgBox UBound(arr, 2) 这个区域有多少列 End Sub原理上区域赋给数组后数组边界和单元格边界一一对应所以即使不知道表里实际有多少数据也能通过UBound立即得知。常见坑是如果区域只有一个单元格Range.Value返回的是标量而非数组此时调用UBound会直接报下标越界。常用的防护方式是先判断Cells.Count是否大于 1或把区域用Range(A1:A1)这种形式显式声明成多格区域再赋给数组。初学 VBA 数组时容易把数组声明和数组初始化混淆刻意练几道 ReDim 配 UBound 的小程序能少踩很多坑。4. Split、Join 与 Filter一维数组上的字符串三板斧4.1 拆分与合并的互逆操作日常从系统导出的数据经常是 A-REW-E-RWC-2-RWC 这种用分隔符拼起来的长串。想拆开用Split想拼回去用Join一对函数互为逆操作Sub t1() Dim arr, myst As String myst A-REW-E-RWC-2-RWC arr Split(myst, -) 按 - 拆成 6 个元素 MsgBox arr(0) 显示第一个元素 A MsgBox Join(arr, ,) 重新拼成 A,REW,E,RWC,2,RWC End Sub参数含义Split(字符串, 分隔符)返回数组下界固定是 0Join(数组, 分隔符)只能操作一维数组。初学者最容易犯的错是拿arr(1)取第一个元素以为下标从 1 开始结果取到第二个。同样Array函数创建的数组下界受Option Base影响默认也是 0。写代码时统一用LBound(arr)取起点才能避开下界不一致的坑。结合 VBA 字典一起看你会发现在处理键集合、去重列表时一维数组的边界规则无处不在。4.2 单元格区域怎么进 JoinSplit和Join只吃一维数组而单元格区域赋给数组后天然是二维的哪怕只有一列也是多行一列的二维结构。直接Join(arr, -)会报类型不匹配教程给出的解法是先转一维Sub t2() Dim ARR ARR Application.Transpose(Range(a1:a3)) 单列区域转成一维数组 MsgBox Join(ARR, -) End SubTranspose在这里做了关键的类型转换把3 行 1 列的二维数组转成真正的一维数组。但要注意Transpose转置多列二维数组时结果仍是二维只是行列互换。因此它只适合处理单列区域转一维的场景。如果想一键把多行多列的内容拼成字符串常见做法是先用循环把二维数组捋成一维或者用WorksheetFunction配合辅助列没必要硬塞给Join。4.3 Filter 的模糊筛选及其边界对一维数组做条件筛选VBA 自带Filter函数Sub DD() Dim arr, arr1, arr2 arr Array(ABC, A, D, CA, ER) arr1 VBA.Filter(arr, A, True) 筛选所有含 A 的元素 arr2 VBA.Filter(arr, A, False) 筛选所有不含 A 的元素 MsgBox Join(arr2, ,) 返回 D,ER End SubFilter(源数组, 匹配文本, 是否包含)的第三个参数是布尔值True 表示保留包含匹配结果的元素False 表示排除。它的匹配是模糊的只要有子串命中就保留不能做精确匹配也没有按列筛选的能力。如果业务要求精确等于某个值就得自己写 For 循环配合StrComp或者直接判断。理解了Filter的模糊边界就明白为什么教程里说只能进行模糊筛选不能精确匹配。表 2 汇总了这四个数组常用函数的适用维度函数适用数组行为特点典型场景Split字符串拆分结果下界为 0解析导入文本Join一维数组合并成字符串拼报表、数组转字符串Filter一维数组包含匹配模糊筛选列表Array常量快速初始化建小字典、枚举值5. 借用工作表函数给数组开外挂Max、Match、Index 与两次 Transpose5.1 把工作表函数当数组计算器VBA 内置函数数量有限但 Excel 工作表函数对数组普遍适用。教程里最值、统计、查询这几类都可以直接调用速查如下工作表函数用途对数组的写法Max/Min最大 / 最小值Application.Max(arr)Large/Small第 N 大 / 第 N 小Application.Large(arr, 2)Sum求和Application.Sum(arr)Count/CountA数字个数 / 非空个数Application.Count(arr)Match查询值的位置Application.Match(4, arr, 0)Index按列拆数组Application.Index(arr, , 2)Transpose行列互转Application.Transpose(arr)使用方法很直接凡是工作表里能对区域直接计算的函数基本都能把区域换成 VBA 数组。例如Application.Match(4, arr, 0)返回数字 4 在数组中的位置Application.Index(arr2, , 2)可以跳过循环把多列数组的某一列拆成一个新数组。这等于给数组操作开了外挂用一条语句顶掉十几行循环。5.2 Transpose 两次一维数组的横竖变形教程结尾有个经典思考题arr Range(A1:C1)之后为什么需要Join(Application.Transpose(Application.Transpose(arr)), -)才能把三个单元格用分隔符连起来拆开看Range(A1:C1)赋给数组后是 1 行 3 列的二维数组而Join只接受一维所以必须先降维。第一次Transpose把它转成 3 行 1 列的二维数组此时仍是二维于是必须再做第二次Transpose。关键点在这里一维数组转置后得到 1 行 N 列的二维结果而1 行 N 列的二维数组再转置恰好变回一维。两次转置不是原地绕圈而是完成了二维横向 → 二维纵向 → 一维的降维过程。理解了这一点再看从多列区域里抽一列并转成一维的代码就顺理成章了Sub t2() Dim arr2, arr3 arr2 Range(A1:B4) arr3 Application.Transpose(Application.Index(arr2, , 2)) 取第2列再转一维 MsgBox arr3(2) End SubIndex(arr2, , 2)第二个参数留空表示省略行参数返回的是整列子数组默认仍是二维形态。包一层Transpose变成一维才能用arr3(2)这种一维下标读取也能丢给Join拼接。这套组合拳在处理数据一维化、拼接字符串、透传参数给字典等场景里很实用是 VBA 数组从入门走向进阶的明显标志。折腾数组遇到下标越界或类型不匹配报错时优先检查当前数组到底是几维再决定是转置还是改用Index按列抽取。本文还有配套的精品资源点击获取