[已解决]当前偏度

mmc998

Book当前偏度.zip (8.13 KB, 下载次数: 6)

2015-1-1 08:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-1 11:18

1. Sub Macro1()
   
2. Dim arr, brr, crr, x, y
   
3. arr = [b6:g6]
   
4. brr = [a8:f18]
   
5. ReDim crr(1 To UBound(brr), 1 To 1)
   
6. ReDim x(1 To UBound(brr, 2))
   
7. ReDim y(1 To UBound(brr, 2))
   
8. For i2 = 1 To UBound(brr)
   
9.     For i = 1 To UBound(arr, 2)
   
10.         For j = 1 To UBound(brr, 2)
    
11.             x(j) =abs( arr(1, i) - brr(i2, j))
    
12.         Next
    
13.         y(i) = Application.Min(x)
    
14.     Next
    
15.     crr(i2, 1) = Application.Max(y)
    
16. Next
    
17. Range("j8").Resize(UBound(crr)) = crr
    
18. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, x, y
   
3. arr = [b6:g6]
   
4. brr = [a8:f18]
   
5. ReDim crr(1 To UBound(brr), 1 To 1)
   
6. ReDim x(1 To UBound(brr, 2))
   
7. ReDim y(1 To UBound(brr, 2))
   
8. For i2 = 1 To UBound(brr)
   
9.     For i = 1 To UBound(arr, 2)
   
10.         For j = 1 To UBound(brr, 2)
    
11.             x(j) =abs( arr(1, i) - brr(i2, j))
    
12.         Next
    
13.         y(i) = Application.Min(x)
    
14.     Next
    
15.     crr(i2, 1) = Application.Max(y)
    
16. Next
    
17. Range("j8").Resize(UBound(crr)) = crr
    
18. End Sub

复制代码