企业官网建设流程全解析

简介：一份面向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 的声明”生效。常有人把它当成全局设置，实际换个模块就不认账。我一般不在工程里打开它，因为一旦模块里混着两种写法，人工判断边界反而更费劲，入门阶段直接把边界写清楚最可靠。

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-4

data 的下界从 1 开始，第一维对应行，第二维对应列，data(1,1) 是 A1，data(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 结果类型不同

做数据清洗时我默认用 .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

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 = result

result 的行数由字典条数决定、列数固定为 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 章的整体写回套路，数组入门的两个主要障碍——方向错位和漏写回——在代码层面就多了两道即时检查。

本文还有配套的精品资源，点击获取