VBA动态范围及数值计算

Question

你好，我有以下问题：

正如您在A列中看到的，我们有日期，在B列中，当一年从一年更改到下一年时，总是有一个"1“，我用黄色标记它。在H列中是不同的值，在I列中，我希望只有第一个值，它在一年内(在本例中)大于10% (因此在B列中从1到1的时间段)。在那之后，我想得到下一个第一个值，它在下一年大于10%，所以下一个周期在B列中从1到1，依此类推。

有谁可以帮我？

到目前为止，我编写了这个程序，但它显示了所有大于10%的值，但不是每个范围到每个范围的第一个值。

Sub ABC ()
With ThisWorkbook.Worksheets("Test")
rowCount = 2
    Do While .Cells(rowCount + 1, 8).Value <> ""

    If .Cells(rowCount, 2).Value = 0 And .Cells(rowCount, 8).Value >= 0.1 Then

       .Cells(rowCount, 9).Value = .Cells(rowCount, 7).Value * 0.1 / 1.1
    Else
       .Cells(rowCount, 9).Value = ""
    End If
    rowCount = rowCount + 1

Loop

End With
End Sub

​

​

Answer 1

好像手机地址上的代码有误

Sub ABC ()
With ThisWorkbook.Worksheets("Test")
rowCount = 2
    Do While .Cells(rowCount + 1, 8).Value <> ""

    If .Cells(rowCount, 2).Value = 0 And .Cells(rowCount, 8).Value >= 0.1 Then

       .Cells(rowCount, 9).Value = .Cells(rowCount, 8).Value * 0.1 / 1.1
    Else
       .Cells(rowCount, 9).Value = ""
    End If
    rowCount = rowCount + 1

Loop

End With
End Sub