Excel VBA“如果”语句无法识别某些值

Question

我有一组看起来像这样的数据：

%Fl %R
0%  0%  //some more data
0%  3%
0%  5%
0%  8%
0%  10%
0%  -5%
3%  0%
3%  3%
3%  5%
3%  8%
3%  10%
3%  -5%

我想将取决于％F1和％R值的一些值转移到一个表中（每个％R值一个表），如下所示：

这是我的代码：     子Graphe_bis（）     昏暗的整数     Dim j作为整数     Dim pourcroute作为变体     变暗点心     Dim k作为整数

For i = 3 To 38

pourcroute = Sheets("Sensibilite").Range("A1:AA2000").Cells(i, 3).Value
pourcfleuve = Sheets("Sensibilite").Range("A1:AA2000").Cells(i, 2).Value
For j = 1 To 24
    If Sheets("Sensibilite").Range("A1:AAA2000").Cells(100, j + 1) = pourcroute Then
        For k = 1 To 18
            If Sheets("Sensibilite").Range("A1:AAA2000").Cells(100 + i - 3 + k, j) = pourcfleuve Then
                Sheets("Sensibilite").Range("A1:AAA2000").Cells(100 + i - 3 + k, j + 1) = Sheets("Sensibilite").Range("A1:AA2000").Cells(i, 5).Value
                Sheets("Sensibilite").Range("A1:AAA2000").Cells(100 + i - 3 + k + 1, j + 1) = 0.6
                Sheets("Sensibilite").Range("A1:AAA2000").Cells(100 + i - 3 + k + 2, j + 1) = 0.8

                Sheets("Sensibilite").Range("A1:AAA2000").Cells(100 + i - 3 + k, j + 2) = Sheets("Sensibilite").Range("A1:AA2000").Cells(i, 4).Value
                Sheets("Sensibilite").Range("A1:AAA2000").Cells(100 + i - 3 + k + 1, j + 2) = Sheets("Sensibilite").Range("A1:AA2000").Cells(i, 6).Value
                Sheets("Sensibilite").Range("A1:AAA2000").Cells(100 + i - 3 + k + 2, j + 2) = Sheets("Sensibilite").Range("A1:AA2000").Cells(i, 7).Value
                Exit For

            End If
        Next

    End If
Next
Next

End Sub

它在前4个％F1和％R值下都可以正常工作，但是当我达到％FL = 0％和％R = 10％时，它开始出现错误。它会识别正确的％R表，但不会将％Fl识别为要填充的第四行。％R = -5％时也会发生同样的情况。

我无法弄清楚问题出在哪里，因为％R = 0、2.5、5和7.5％可以正常工作。任何线索都是超级有帮助的！