用VBA判断方向求值

zyl6078

恳请老师帮助，不胜感谢！！！

计算说明等详见附件。

山菊花

供参考。

zyl6078

谢谢老师！！！

清风竹-

请看附件。

zyl6078

清风竹- 发表于 2022-11-29 11:36
请看附件。

谢谢清风竹-老师！！！

zyl6078

山菊花 发表于 2022-11-29 10:29
供参考。

感谢山菊花老师！！！

笨鸟飞不高

Sub AwTest()
    Dim i&, eRow&, FxVal%, KsRow&, s, arr
    With Sheet1
        eRow = .Cells(Rows.Count, 1).End(3).Row
        arr = .Range("A3:B" & eRow)
        ReDim brr(1 To UBound(arr) + 1, 1 To 1)
        For i = 1 To UBound(arr)
            If arr(i, 2) Then
                If arr(i, 2) <> FxVal Then
                    FxVal = arr(i, 2)
                    If KsRow Then
                        brr(i, 1) = (arr(i, 1) - arr(KsRow, 1)) * arr(KsRow, 2)
                        s = s + brr(i, 1)
                    End If
                    KsRow = i
                End If
            End If
        Next
        brr(UBound(brr), 1) = s
        .[D3].Resize(UBound(brr)) = brr
    End With
End Sub

zyl6078

笨鸟飞不高 发表于 2022-11-30 11:04
Sub AwTest()
    Dim i&, eRow&, FxVal%, KsRow&, s, arr
    With Sheet1

@笨鸟飞不高   谢谢老师！！！