条件1 第4列为砂岩
条件2 第5列含有字符全风化,但不含有字符 岩体破碎严重
如果满足上述两个条件,给第1列赋值 ABC
------解决方案--------------------------------------------------------
If Cells(irow, 4) = "砂岩" And InStr(Cells(irow, 5), "全风化") And InStr(Cells(irow, 5), "岩体破碎严重") = 0 Then Cells(irow, 1) = "ABC"