VB如何实现循环读取excel特定行列数据

Question

比如：
第一次，读取第A列第一行数据，并赋值给a1
第二次，读取第A列第二行数据，并赋值给a2
以此类推。
谢谢！

Answer 1

建一个CommandButton1，代码如下。
======================
Private Sub CommandButton1_Click()
Dim a(1 To 100) As String, i As Integer
For i = 1 To 100 '循环读取A1～A100
a(i) = Cells(i, 1).Text
Next
End Sub

Answer 2

A1=CELLS(1,1)
A2=CELLS(1,2)

Answer 3

A列第一行数据？恕我不能理解