分别遍历I列的单元格，并判断单元格的值，如果值小于1401(就是下午两点以前），则从本单元格向左选取至列A,再填充指定颜色。

请兄弟们帮忙VBA看看怎么写，感谢！
1，遍历I列的单元格，并判断单元格的值，如果值小于1401(本质就是下午两点以前的意思），则从本单元格向左选取至列A,并填充指定颜色。
2，遍历O列的单元格，并判断单元格的值，如果值小于1401(本质就是下午两点以前的意思），则从本单元格向左选取至列J,并填充指定颜色。
3，遍历I列的单元格，并判断单元格的值，如果值大于1400(本质就是下午两点以后的意思），则从本单元格向左选取至列A,并填充指定颜色。
2，遍历O列的单元格，并判断单元格的值，如果值大于1400(本质就是下午两点以后的意思），则从本单元格向左选取至列J,并填充指定颜色。
不是我懒，我搜好几天，搜了很多小例，没有找到合适的，没有解决问题，再次感谢！

咱这里不允许上传xlsx文件
......附件怎么传

[此贴子已经被作者于2021-3-29 16:34编辑过]