给满足某个条件的单元格赋值解决思路

给满足某个条件的单元格赋值
环境:EXCEL 2003
问题:在一个表里,如果某行第四列的单元格等于砂岩,并且该行第9列的单元格含有字符强风化,就在该行第2列的单元格赋值231
问:用VBA如何实现这种操作
谢谢

------解决方案--------------------------------------------------------
If Cells(irow, 4) = "砂岩" And Cells(irow, 9) Like "*强风化*" Then
Cells(irow, 2) = "231"
End If
其中irow为变量。