求助：怎样读取excel中的一列数，并求这一列数的方差。下面是自己编的输数的的程序。

Question

Dim n As Integer
Dim data() As Single
Dim i As Integer
Dim even As Single
Dim ConV As Single
n = CInt(Val(InputBox("请输入你要计算的数据的个数:")))
even = 0
ConV = 0
If n >= 1 Then
ReDim data(n) As Single
For i = 1 To n
data(i) = Val(InputBox("请输入第" & i & "个数据（共" & n & "个):"))
even = even + data(i)
ConV = ConV + data(i) ^ 2
Nexteven = even / n
ConV = ConV / n
ConV = ConV - even ^ 2
If Mid(ConV, 1, 1) = "." Then
MsgBox "这" & n & "个数的方差为：0" & ConV
Else
MsgBox "这" & n & "个数的方差为：" & ConV
End If
Else
MsgBox "输入的个数有误，请正确输入在计算！"
End
End If
End Sub

Answer 1

引用excel对象,
    Set ex = CreateObject("Excel.Application")  '建立Excel对象
    Set wb = ex.Workbooks.Open(App.Path & "\aa.xls")   '打开Excel文件
    Set sh = wb.Sheets(1)                       
如读取第3列
For i = 1 To lieNum
   s(i) = sh.Cells(i, 3)
Next