如果用VBA求出B列减去A列值的最大值？

jasson_luck

各位大侠：

请问如何用VBA求出B列减去A列值的最大值？
注意不是用公式，最好不新生成一列，直接求出最大值。

杨建营

Sub test()
Dim i&
Dim arr, brr, rng
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
     brr(i, 1) = arr(i, 2) - arr(i, 1)
Next
rng = Application.WorksheetFunction.Max(brr)
MsgBox "最大值是" & rng
Application.ScreenUpdating = True
End Sub

杨建营

请楼主参考。

jasson_luck

杨建营 发表于 2023-4-2 17:34
请楼主参考。

这个思路可以。谢谢！
如果第二行为空值呢？代码该如何调整？

杨建营

jasson_luck 发表于 2023-4-2 17:54
这个思路可以。谢谢！
如果第二行为空值呢？代码该如何调整？

Sub test()
Dim i&
Dim arr, rng
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
rng = Application.WorksheetFunction.Max(arr)
MsgBox "最大值是" & rng
Application.ScreenUpdating = True
End Sub

洋务德雷

一个SQL直接使用，一个是SQL+VBA,你自己选择使用吧

jasson_luck

洋务德雷 发表于 2023-4-2 22:29
一个SQL直接使用，一个是SQL+VBA,你自己选择使用吧

谢谢！只是用的是WPS，没安装ACCESS。