excel 判断一个字符在单元格里是否存在 用vba怎么写?

如图,abcd列判断是否存在“12” 如果存在为1 ,最后e列为abcd列的存在的相加,用vba要怎么写?

Sub qqq()

For i = 1 To 4

    If InStr(Cells(1, i), "12") Then x = x & 1 & "+"

Next

[e1] = Left(x, Len(x) - 1)

End Sub

温馨提示:答案为网友推荐,仅供参考
相似回答