求助，哪个老师给解决一下，谢谢

wjt_1221

数据只有a和b两列数据，有时候会有30多行，一个一个拉公式比较慢，哪位老师写一个vba代码，我直接把数据放A列和B列，直接计算出结果就行

lushang2018

代码仅供参考

1. Sub 测试()  ''答题专用套路--by:学习使我快乐
   
2.     Dim i, j, k, m, n, 累计时间, 累计结果
   
3.     Sheet1.Activate
   
4.     n = Cells(Rows.Count, "A").End(xlUp).Row
   
5.     For i = 2 To n
   
6.         If i = n Then
   
7.             Cells(i, 3) = (Cells(i, 1) - Cells(i - 1, 1)) * 24
   
8.         End If
   
9.         If i > 2 And i < n Then
   
10.             Cells(i, 3) = (Cells(i + 1, 1) - Cells(i - 1, 1)) * 24
    
11.         ElseIf i = 2 Then
    
12.             Cells(i, 3) = (Cells(i + 1, 1) - Cells(i, 1)) * 24
    
13.         End If
    
14.         Cells(i, 4) = Cells(i, 3) * Cells(i, 2)
    
15.         累计时间 = 累计时间 + Cells(i, 3)
    
16.         累计结果 = 累计结果 + Cells(i, 4)
    
17.     Next
    
18.     Cells(n + 1, 3) = "结果"
    
19.     Cells(n + 1, 4) = 累计结果 / 累计时间 * 累计时间 / 2 * 0.36 / 10000
    
20. End Sub
    

复制代码

lushang2018

代码仅供参考，没太明白你最后结果的算法逻辑，只是按照你的公式计算得出

wjt_1221

谢谢，万分感谢，一下提升好多效率。

ykcbf1100

用数组写一个，就速度而言，数组会快一些。

另外，结果公式可以象我这样简化一下的。

wjt_1221

ykcbf1100 发表于 2023-2-7 10:41
用数组写一个，就速度而言，数组会快一些。

另外，结果公式可以象我这样简化一下的。

感谢回答问题，我下载看一下。