循环条件求助

zollzhou

请教各位老师:

我有一系列数据，我想按照一定的条件把这些数据放入excel表格对应的格子，满足下面条件的放入每行第一列，不满足的放入第二列第三列，一直到
下一个满足该条件的数据出现，然后就把这个数据放入下一行第一列，以此类推。下面是程序：

可是结果总是不对。比如我的cells(450,20)=1.56,明显大于0.50，可是还是放在了第一列，苦思不得其解，请各位老师指教。

（不知道我表述完整清楚不…………）

n = 1
    t = 1

    For i = 15 To 1455

        If Cells(i, 20) < 0.5 And Cells(i, 20) = Application.WorksheetFunction.Min(Cells(i - 3, 20), Cells(i - 2, 20), Cells(i - 1, 20), Cells(i, 20), Cells(i + 1, 20)) And t > 4 Then
                n = n + 1
                t = 1
                Cells(n, t) = Cells(i, 20)
        Else
            t = t + 1
            Cells(n, t) = Cells(i, 20)

        End If


    Next i


End Sub

chenzyyysl

Cells(i, 20) < 0.5 And Cells(i, 20) = Application
这个地方要2个都是TRUE才按<0.5的处理

zollzhou

chenzyyysl 发表于 2013-4-19 14:17
Cells(i, 20) < 0.5 And Cells(i, 20) = Application
这个地方要2个都是TRUE才按

谢谢老师~~~

AND条件不是两个为真，才算真吗？

如果IF后面要加多个判断条件，只能用嵌套IF吗？
感觉嵌套IF很麻烦，逻辑性也不强啊。
用什么方法比较好呢？

谢谢

chenzyyysl

按F8单步执行，随时注意变量是不是你所想

zollzhou

chenzyyysl 发表于 2013-4-21 11:38
按F8单步执行，随时注意变量是不是你所想

谢谢~~~~
我再试试~~~