VBA数组计算标准差问题，求助大神

神奇的VBA

1. 
   

复制代码

1. Option Explicit '强制变量声明
   
2. Option Base 1
   
3. 
   
4. Sub com()
   
5. 
   
6. Dim arr(1000, 14) As Variant
   
7. Dim tmp As String
   
8. Dim i As Long
   
9. Dim j As Long
   
10. Dim p As Double
    
11. 
    
12. Open "C:\Users\YMX\Desktop\试验X.txt" For Input As #1
    
13. Do While p <= 1.6
    
14.     Line Input #1, tmp
    
15.     i = i + 1
    
16.     For j = 1 To 12
    
17.         arr(i, j) = Split(tmp, ",")(j - 1)
    
18.     Next
    
19.     If i >= 2 Then
    
20.         p = arr(i, 1) + arr(i, 2) / 1000
    
21.     End If
    
22. Loop
    
23. MsgBox tmp '已导入数据到二维数组arr
    
24. 
    
25. Dim m As Long
    
26. Dim br()
    
27. 
    
28. ReDim br(i)
    
29. 
    
30. For m = 1 To i
    
31.     br(m) = arr(m, 1) '将二维数组数据导入一维数组br
    
32. Next
    
33. Debug.Print Application.StDev(br) '为什么计算不了br数组的标准差
    
34. 
    
35. MsgBox br(200)
    
36. MsgBox arr(1, 2)
    
37. 
    
38. End Sub
    

复制代码

请问大神，为什么无法计算br的标准差？或者说我把数据导入arr数组（二维），怎么计算其中某列的标准差，求助

神奇的VBA

@蓝桥玄霜 求助

phsu

這樣做可以。
Sub test()
    Dim Arr
    Arr = Range("A1:A5")
    MsgBox Application.StDev(Arr)
End Sub

神奇的VBA

phsu 发表于 2018-6-9 08:10
這樣做可以。
Sub test()
    Dim Arr

没明白我的意思，这样肯定可以，但我这段代码就不行。感谢您的帮助

phsu

Sub test()
    Dim Arr
    Dim Brr(1, 1)
    Dim Crr(1)
    Dim i As Integer
    Brr(0, 0) = 1
    Brr(0, 1) = 2
    Brr(1, 0) = 3
    Brr(1, 1) = 4
    For i = 0 To 1
        Crr(i) = Brr(i, 0)
    Next i
    Arr = Array(Crr)
    MsgBox Application.StDev(Arr)
End Sub

神奇的VBA

phsu 发表于 2018-6-9 08:36
Sub test()
    Dim Arr
    Dim Brr(1, 1)

您可以下载我的附件看看，其实类似您这种我也试过，都可以。唯独我上面那段不行，从逻辑上我也没找出太多问题。

vbee

文本需要转数字

vbee

其实已经算出来了，只是第一列全是1，所以STDEV结果为0

vbee

1. Option Explicit '强制变量声明
   
2. Option Base 1
   
3. 
   
4. Sub com()
   
5. 
   
6. Dim arr(1000, 14) As Variant
   
7. Dim tmp As String
   
8. Dim i As Long
   
9. Dim j As Long
   
10. Dim p As Double
    
11. 
    
12. Open ThisWorkbook.Path & "\试验X.txt" For Input As #1
    
13. Do While p <= 1.6
    
14.   Line Input #1, tmp
    
15.   i = i + 1
    
16.   For j = 1 To 12
    
17.   arr(i, j) = Split(tmp, ",")(j - 1)
    
18.   Next
    
19.   If i >= 2 Then
    
20.   p = arr(i, 1) + arr(i, 2) / 1000
    
21.   End If
    
22. Loop
    
23. 'MsgBox tmp '已导入数据到二维数组arr
    
24. 
    
25. Dim m As Long
    
26. Dim br()
    
27. 
    
28. ReDim br(i)
    
29. 
    
30. For m = 1 To i
    
31.   br(m) = Val(arr(m, 2)) '将二维数组数据导入一维数组br
    
32. Next
    
33. MsgBox Application.StDev(br) '为什么计算不了br数组的标准差
    
34. 
    
35. Close #1
    
36. 
    
37. End Sub
    

复制代码

神奇的VBA

vbee 发表于 2018-6-9 09:00

我通过count函数也找到了这个问题，我把数组定义为数值格式也可以了，非常感谢