求助，不规律隔行求值，vba怎么实现啊~~

SHFN

如图所示，每到绿色的单元格就要重新开始计算

qy1219no2

1. =E9*B$8/E$8

复制代码

下拉公式，是这个效果？

SHFN

qy1219no2 发表于 2014-11-22 15:46
下拉公式，是这个效果？

下拉不行,到绿色单元格，就不是$8了。要从f2开始计算，表里只给了运算结果，一共几万个数据~表中关键词对应的搜索词个数不确定，有多有少

lsdlyhz

判断A列是否位空格，
做个变量记录A列和 B列 最后一个不是空格的数值作为基准值 ；
C列不为空格的地方才去计算F列；
------------------------------
这样可以吗？

lsdlyhz

类似这样的，你把逻辑完善就可以了
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BbE As Double
    Dim i As Integer
    Dim j As Integer
    Dim EventsBAK
    Dim CalculBAK
    If ((Target.Cells.Column = 2 Or Target.Cells.Column = 5) And Cells(Target.Cells.Row, 1) <> "" And Cells(Target.Cells.Row, 5) <> "") Then '修改单位制体系
        EventsBAK = Application.EnableEvents
        CalculBAK = Application.Calculation
        Application.EnableEvents = False
        Application.Calculation = xlManual
        BbE = Cells(Target.Cells.Row, 2) / Cells(Target.Cells.Row, 5)
        For i = Target.Cells.Row + 1 To 40
            If (Cells(i, 1) <> "" Or Cells(i, 5) = "") Then
                 Exit For
            End If
            If (BbE > 0) Then
               Cells(i, 6) = BbE * Cells(i, 5)
            Else
               Cells(i, 6) = “”
            End If
        Next i
        Application.Calculation = CalculBAK
        Application.EnableEvents = EventsBAK
    ElseIf (Target.Cells.Column = 5 And Cells(Target.Cells.Row, 1) = "" And Cells(Target.Cells.Row, 5) <> "") Then
        EventsBAK = Application.EnableEvents
        CalculBAK = Application.Calculation
        Application.EnableEvents = False
        Application.Calculation = xlManual
        BbE = 0
        For i = 1 To 40
            If (Cells(Target.Cells.Row - i, 1) <> "") Then
                BbE = Cells(Target.Cells.Row - i, 2) / Cells(Target.Cells.Row - i, 5)
                Exit For
            End If
        Next i
        If (BbE > 0) Then
            Cells(Target.Cells.Row, 6) = BbE * Cells(Target.Cells.Row, 5)
        Else
            Cells(Target.Cells.Row, 6) = ""
        End If
        Application.Calculation = CalculBAK
        Application.EnableEvents = EventsBAK
    End If
End Sub

lisai66111

Sub 练习()
Dim i, j As Integer
For i = 2 To [a65536].End(xlUp).Row
If Range("a" & i).Interior.ColorIndex = 35 Then
a = Range("b" & i)

b = Range("e" & (i + 1))
c = Range("e" & i)
Range("g" & (i + 1)).Value = a * b / c
End If

Next
End Sub