vb读取excel单元格数据_小白学数组：怎么把Excel中的数据读取到数组中！

我的目标：让中国的大学生走出校门的那一刻就已经具备这些Office技能，让职场人士能高效使用Office为其服务。支持鹏哥，也为自己加油！

上一节课中我们初步了解了数组的概念以及声明方式，想要利用数组来解决问题，首要要知道怎么把数据读取到数组中！

本节课我们通过一个案例来学习下如何把Excel中的数据读取到数组中，如何利用数组中的元素。

案例如下：

要求：求销量大于500的人数有多少？

这个例子比较简单，没学数组也可以解决。

用For Each语句把C列中的销量单元格循环出来，若单元格中的值大于500，则计数，一直循环完毕，n的值就是我们想要的结果。

代码如下：

Sub 计数()Dim rng As Range, n%For Each rng In Range("c2", [c2].End(xlDown))  If rng.Value > 500 Then n = n + 1NextMsgBox "销量大于500的人数为" & n & "人"End Su