特定条件赋值条件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"
