《VBA信息获取与处理》教程(版权10178984)是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

【分享成果，随喜正能量】得失随缘，心无增减。生活，不论如何都会过去，不会永远甜，也不会永远苦，用一颗随遇而安的心态去生活，该吃饭吃饭，该睡觉睡觉，醒来便是重生。。

这个专题，我们讲解工作表数据的处理的问题，对于VBA而言，我给予的定位是“实现个人小型数据自动化处理的利器”，对于大多数朋友而言，利用VBA是与EXCEL相关联的，很多的代码也是用于处理EXCEL内或者相关的各种数据，工作表更是作为和用户的交互对象而存在，那么对于工作表的数据如何进行查找，以及如何读取就是一个十分关键的课题，我们这讲就来主要讲解这个问题。

在上一节中我们讲了实现工作表数据与VBA代码间传输的几种方法，这讲我将我们将着重讲解如何将工作表的数据写入数组。

在VBA中，可以直接读取工作表上的范围并将其放入数组，这种方法非常简单。例如，

Dim Arr() As Variant

Arr = Range("A1:C5")

上述代码中首先声明一个变体型可变数组变量，然后将这个变量指向指定的区域，如果我们不能确定这个区域的大小，或者这个区域是可变的，我们可以利用下面的语句；

① myarr = Sheets("41").UsedRange

② myarr = Sheets("40").[a1].CurrentRegion

③ myarr = Range("a2:c" & Range("c2").End(xlDown).row)

④ myarr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).row)

⑤ myarr = Range("a2:f" & [a65536].End(xlUp).Row)

⑥ myarr1 = Range([A2], [A65536].End(xlUp))

上面的各种写法均是我的第三套教程《VBA数组与字典解决方案》中的一些实际写法，第一种表示整个工作表的使用区域，第二种是以“A1”单元格为起点的矩形区域，第三种是表示A2到C列最后一个不为空的单元格的矩形区域，第四种是表示A列的使用区域（含空格），第五种是A2到F列的最后使用单元格的区域（适用于低版本的excel）,第六种是A列第二个单元格之下的使用区域（含空单元格）

利用上述方案将工作表中的数据引入VBA数组后，我们要注意该数组始终是二维的。第一个维度是行，第二个维度是列。因此，下面的例子：

Dim Arr() As Variant

Arr = Range("A1:C5")

Arr被隐式地调整为Arr（1 to 5，1 to 3），其中5是行数，3是列数。即使工作表数据位于一行或一列（例如，Arr（1 to 10，1 to 1））中，也会创建二维数组。加载工作表数据的数组始终具有等于1的下限（LBound），而不管模块中可能具有什么选项基指令。你不能改变这种行为。例如:

Dim Arr() As Variant

Arr = Range("A1:A10")

这里，Arr由VBA自动标注为Arr（1 to 10，1 to 1）。您可以使用如下代码在工作表值数组中循环：

Sub MYNZC()

Dim Arr() As Variant

Arr = Range("A1:B10")

Dim R As Long

Dim C As Long

For R = 1 To UBound(Arr, 1) ' 数组第一维表示行.

For C = 1 To UBound(Arr, 2) '数组第二维表示列

Debug.Print Arr(R, C)

Next

Next

End Sub

代码截图：

代码的运行：

代码的运行：

上面的代码成功的避免了这种错误。大家在利用这种数组赋值时避免这类错误的发生。

本节知识点回向：读取指定范围的数据到数组有哪些方法可以利用？读取后的数组是几维数组？如何避免指定范围只有一个单元格的情况？

本专题参考程序文件：004工作表.XLSM

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：