亲,开玩笑吧……41w行,用公式……累得手抽筋、电脑死机!
VBA编程解决!而且不光编程,还必须用数组。
打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。
Sub xc()
Dim i, r As Long: Dim BArr, IArr
r = Cells(Rows.Count, "B").End(xlUp).Row
Range("I2:I" & r - 1).ClearContents
BArr = Range("B2:B" & r): IArr = Range("I2:I" & r - 1)
For i = 1 To UBound(BArr) - 1
IArr(i, 1) = BArr(i + 1, 1) - BArr(i, 1)
Next
Range("I2:I" & r - 1) = IArr
End Sub