简介一份面向Excel VBA初学者的数组入门教程合集系统讲解数组的基本概念、维数、声明方式、一维与二维数组操作以及把单元格数据批量搬入内存的高效技巧。教程从最简单的Dim声明讲起逐步深入到动态数组的ReDim重声明、Array函数创建常量数组、二维数组的行列下标读取、使用UBound/LBound获取上下界、内存数组的取值与转置回填工作表等实用场景每个知识点都配有可直接运行的VBA代码示例并附有总结性说明便于边看边练、快速上手。全部内容压缩为一个PDF文件包体仅14KB左右轻便易存适合碎片时间阅读。目前已有481人学习下载对希望提升Excel数据处理效率、想摆脱逐格循环的办公人员和VBA入门者都很有参考价值。1. Excel VBA 数组入门卡住的从来不是语法而是数据方向处理一份 5 万行的订单表逐行读、逐行判断、逐行填色跑起来要等半分钟换成先把整张表装进变量再处理几乎瞬间出结果。这个差距的根源就是 Excel VBA 数组它把单元格区域当成一块内存搬进 VBA把几十万次界面交互压缩成几次批量读写。兰色幻想ExcelVBA数组入门教程集合资料.pdf 是 vba入门 阶段常被收藏的集合资料它命名的三个关键词——数组、入门、集合——正好指向初学者最容易卡的三个点定长与动态怎么写、下标怎么数、二维数组和单元格的方向怎么对齐。下面按这套顺序把数组声明、数据交换、字典配合和排错方法完整过一遍适合写了几段 VBA、循环里频繁读单元格卡顿以及被二维数组绕晕的读者。2. 定长数组与动态数组声明前先把下标上下界看清楚2.1 声明的基本形态1 To 10 与 0 To 9 不是同一回事多数入门写法是Dim weekDays(1 To 7) As String 下标 1 到 7共 7 个元素 Dim scores(0 To 9) As Long 下标 0 到 9共 10 个元素 Dim singleNum(10) As Long 默认下界为 0实际得到 0 到 10 共 11 个元素第一行声明了一个下标从 1 到 7 的字符串数组第二行是 0 到 9 共 10 个元素第三行在未设置 Option Base 的情况下实际得到的是 11 个元素。新手最容易从这一行推错数组大小括号里的数字写的是上界不是元素个数。声明后数值型数组自动初始化为 0字符串自动初始化为空字符串Boolean 自动为 False所以“先声明后赋值”的阶段拿它做数据容器是安全的不需要额外做数组初始化。Option Base 1 可以改变默认下界但它只作用于当前模块而且只对“没有显式写 1 To / 0 To 的声明”生效。常有人把它当成全局设置实际换个模块就不认账。我一般不在工程里打开它因为一旦模块里混着两种写法人工判断边界反而更费劲入门阶段直接把边界写清楚最可靠。写法实际下标范围元素个数适用场景Dim a(1 To 5)1 到 55业务序号从 1 开始Dim a(0 To 5)0 到 56与第三方组件索引对齐Dim a(5)0 到 56未写上下界的默认声明容易误判Dim a()无0待 ReDim 的动态数组2.2 ReDim 与 Preserve动态扩容是按最后一维进行的定长数组声明后不能再改维度数据行数不固定时要用动态数组。动态数组先写空括号之后用 ReDim 设定第一段容量Dim list() As Long ReDim list(1 To 1000) 数据超过 1000 时扩容 ReDim Preserve list(1 To 2000) Preserve 保留原有值Preserve 的作用是重新分配内存时保留旧值是数组增加场景下的标准写法。VBA 里 ReDim Preserve 只能调整最后一维二维数组要么第一维固定、来回调整第二维要么先算出最终行数一次性分配。每次 Preserve 都会触发一次内存复制放到循环里反复调用会明显变慢。我处理十万行表时通常先统计行数再分配一次到位ReDim matrix(1 To rowCount, 1 To 4) rowCount 由数据真实行数确定提示ReDim Preserve 只能改最后一维多维数组扩容报“下标越界”时先检查是不是动到了第一维。2.3 二维数组与区域的映射第一维是行第二维是列VBA 数组可以直接承接单元格的值区域不需要手动嵌套循环填充这是一行完成的数组初始化Dim data As Variant data Range(A1:D100).Value 一次性读入得到 100 行 4 列的二维数组 Debug.Print LBound(data, 1) - UBound(data, 1) 显示 1-100 Debug.Print LBound(data, 2) - UBound(data, 2) 显示 1-4data 的下界从 1 开始第一维对应行第二维对应列data(1,1) 是 A1data(2,3) 是 C2。行列方向最容易混从别的语言转过来的人习惯把列放前面于是读出来的数据与表格对不上。典型症状是改一个元素写回后整列串位。处理这种问题先拿 4 行 3 列的小区域试联合 Locals 窗口展开数组逐个对照元素方向关系立刻清楚别在大范围数据上靠猜。3. 把整片数据搬进数组Value 与 Value2 参数的取舍3.1 用变体数组承接区域类型交给 VBA 判断读区域时我一般写Dim sheetData As Variant sheetData Sheet1.Range(A1:D lastRow).Value把变量声明为 Variant数组维度由 Excel 自动生成不需要提前声明。区域超过一个单元格时它返回的是二维数组下标从 1 开始如果区域只有一个单元格返回的则是标量后面对 sheetData(1, 1) 的访问会报“下标越界”。单格与多格的行为差异是入门阶段最容易被忽略的边界之一写通用函数时务必在取值前先用 TypeName(sheetData) 判断。这种读法的核心收益是批量交互。VBA 与 Excel 之间的调用走 COM 接口单次调用有固定开销逐格读写五万行至少触发十万次跨进程调用而数组方案无论多少行都压缩成一次读、一次写。入门阶段写出的 VBA 慢通常不是语法问题而是把 Excel 当成了循环里的字典在用。3.2 三个取值属性怎么选Value、Value2、Text 结果类型不同属性返回内容典型坑.Value按单元格格式返回日期是 Date 类型日期比较时要关注时区和格式.Value2底层数据日期返回序列号直接展示会看到一串数字.Text单元格显示文本参与数值计算会类型不匹配做数据清洗时我默认用 .Value2报表展示时再用 .Value 或 .Text。日期比较大小是个常踩的点用 .Value 读入日期数组元素是 Date 类型直接和 DateValue 比较用 .Value2 读入就是序列数值必须先把目标日期转换成序列号再比较。一行属性选错后面的 IsDate、Format 判断全会跟着偏调试成本比改属性本身高得多。3.3 改完再一次性写回读改写三步的标准动作Dim arr As Variant Dim lastRow As Long Dim i As Long lastRow ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row arr Range(A1:C lastRow).Value For i 1 To UBound(arr, 1) If IsNumeric(arr(i, 3)) And arr(i, 3) 100 Then arr(i, 2) 达标 修改的是内存副本 End If Next i Range(A1:C lastRow).Value arr 必须整体写回三个关键动作定位最后一行、读入数组、写回数组。数组里的修改不会实时同步到工作表漏掉最后的写回运行结果就是“什么都没发生”。Cells(Rows.Count, 1).End(xlUp).Row 返回 A 列最后有数据的行号写回范围也要用同一变量对齐否则会报错。这个“读入-修改-写回”的循环体是数组入门的标准骨架几乎所有 VBA 批量任务都能套进去。注意数组元素不会随赋值自动同步回单元格改完数组必须显式写回。3.4 剪贴板不参与批量写回绕开粘贴异常日常办公里常见“Excel 无法粘贴数据”的提示原因可能是剪贴板被其他程序占用、复制区域过大或是连续粘贴时中断。数组方案不会碰到这类问题因为数据进出走的是内存不经过剪贴板。在处理大表时把中间态直接放在数组里省去反复复制粘贴既减少交互出错点也降低了对系统剪贴板的依赖。这是数组方案除了性能之外的另一层稳定价值。4. 数组与 VBA 字典的配合去重、计数与数组转字符串4.1 计数先上字典O(1) 查找替代线性扫描数组擅长按位置读写不擅长回答“某个值出现几次”这类查询因为逐个比较是线性扫描几万行时耗时明显。标准做法是 vba字典 与数组配合字典存索引数组当数据源Dim d As Object Set d CreateObject(Scripting.Dictionary) Dim arr As Variant Dim i As Long arr Range(A1:A100000).Value For i 1 To UBound(arr, 1) If d.Exists(arr(i, 1)) Then d(arr(i, 1)) d(arr(i, 1)) 1 Else d.Add arr(i, 1), 1 End If Next i字典的键是去重后的唯一值条目是出现次数。d(arr(i, 1)) 这种写法在条目已存在时取值加 1新值时直接添加计数逻辑在四行内完成。字典内部是哈希表单条查找接近常数时间与数组下标访问配合十万行数据的去重统计能压到秒级。统计完成后d.Keys 返回的正是去重清单可以直接写回区域。4.2 数组转字符串Join 的一维限制与 TextJoin 的补位把数组拼成字符串是收尾常见的动作。在数组的方法列表里最容易误用的就是 Join 的维度限制。直接 Join(arr, ,) 时如果 arr 是二维数组会直接报“类型不匹配”这是数组转字符串这个需求里最经典的坑。解决方案是先把二维数组里需要拼接的那列抽进一维临时数组Dim temp() As String ReDim temp(1 To UBound(arr, 1)) For i 1 To UBound(arr, 1) temp(i) arr(i, 1) 抽出一列 Next i Debug.Print Join(temp, ,) 一维数组才能 Join拼接方式维度限制失败表现适用规模Join(arr, ,)仅一维类型不匹配一列数据的快速拼接循环 拼接任意无但大文本慢少量字段的流水拼装Application.TextJoin区域可按行拼接跨多行需循环Excel 2016 之后可用TextJoin 能接受分隔符和忽略空值参数适合把行内多个字段拼成一个字符串列的场景但它的“按行拼接”语义对跨多行的二维数组并不生效仍需循环实现行间汇总。4.3 用二维数组承载统计结果整体写回新区域统计类任务的输出也放数组最后一次性写出是更稳的姿势Dim result() As String ReDim result(1 To d.Count, 1 To 2) Dim idx As Long Dim key As Variant idx 0 For Each key In d.Keys idx idx 1 result(idx, 1) key 第一列唯一值 result(idx, 2) d(key) 第二列出现次数 Next key Range(E1).Resize(d.Count, 2).Value resultresult 的行数由字典条数决定、列数固定为 2在内存里先组装好输出矩阵再由 Resize 指定落表区域。这一步的关键是对齐Resize 的行列数要和数组上下界一致否则超出区域会报错。需要多条件汇总时可以把字典的键按固定分隔符合成拆出来就是多个维度二维数组的列数也随之增加。5. 数组调试三件套上下界检查、转置上限与最小验证模板5.1 立即窗口先打印 LBound/UBound排查数组方向问题时第一步是在赋值后立刻打印边界。第 2 章里的 Debug.Print 写法就是标准动作断点模式下打开 Locals 窗口展开变量能看到每个元素的当前值。Debug.Print 给结构信息Locals 窗口给内容信息两者结合能在三十秒内确认“是不是行列写反”。5.2 Application.Transpose 有 65536 行上限数组写回前偶尔需要转置VBA 里的 Application.Transpose 对超过 65536 行的数组会报错或截断这是数组操作里最容易踩的隐蔽边界。超过规模时自己写循环交换两个下标维度或者按数据块分次转置、再串起来。Excel 把一些工作表函数包装成 VBA 方法后限制通常不会写进函数提示里只能靠文档和经验兜底。5.3 五行的最小验证模板沉淀成可复用函数拿一个 5×3 的小区域写入固定数据读入数组、改两个元素、写回人工核对两个单元格的结果。这个步骤能在几十秒内定位行列方向、读回类型、写回区域这三个易错点而不是先跑到 10 万行才发现结果串位。验证通过后把边界打印抽成单独的过程Sub ShowArrayInfo(arr As Variant, Optional tag As String ) Debug.Print tag LBound(arr, 1) - UBound(arr, 1) _ | LBound(arr, 2) - UBound(arr, 2) End Sub把 ShowArrayInfo 放进个人宏工作簿后续每读完一块区域就调用一次配合第 3 章的整体写回套路数组入门的两个主要障碍——方向错位和漏写回——在代码层面就多了两道即时检查。本文还有配套的精品资源点击获取