EXCEL 数据检查VBA代码求助

shals

各位大神，初学VBA，学着写了点代码，一直运行不是很成功，请哪位大神帮忙完善一下，万分感谢！！！

xlj310

你代码里这个判断条件 我没搞懂是什么意思。
If cell.Column = 2 Or cell.Columns = Cells(12, 6) Then
Range("F12:BC12") 的列号是大于等于6的，你这等于2的条件是永远也不可能成立的。
Cells(12, 6)表示F12，我看了你各个表格，没看出F12有什么特别之处。
For Each cell In ws.Range("F12:BC12").Cells  这个写法也不提倡，遍历单元格效率太低了。
完全可以Data= ws.Range("F12:BC12").value  然后直接对这个数组去遍历，效率会高很多，处理方式其实是一样的。

shals

大神，这个F12是这组数据的第一个，能不能帮忙改改，目的就是要检查这组数据里面连续的6个有没有在上升或者下降，所以是遍历单元格的，谢谢！

shals

请哪位大神能帮助一下，万分感谢....