如图,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
For i = 1 To 4
If InStr(Cells(1, i), "12") Then x = x & 1 & "+"
Next
[e1] = Left(x, Len(x) - 1)
End Sub
温馨提示:答案为网友推荐,仅供参考