如何用excel函数或vba来判断单元格对、错或半对半错？

这个问题相对比较简单，按照图片的单元格，在C3中输入：
=LOOKUP(SUM(NOT(ISERR(FIND(B3,E3))),EXACT(B3,E3)*2),{0,1,3},{"×","tf","√"})
然后向下复制即可
注意：这个函数要求回答的答案和标准答案的字符都是大小写必须完全对应，否则需要考虑增加UPPER函数来进行调整

半对半错，这个比人还智能呢个

什么叫单元格对，错？请给一个清楚的描述。

你错选的还得分了，如2号题，错了应该是不得分吧
代码如下
Sub test()
Dim arr, brr, x&, y&, i&, k
arr = Range("A3:E" & Range("A65536").End(xlUp).Row)
ReDim brr(1 To UBound(arr), 1 To 2)
For x = 1 To UBound(arr)
i = 0
For y = 1 To Len(arr(x, 2))
If arr(x, 5) Like "*" & Mid(arr(x, 2), y, 1) & "*" Then
i = i + 1
Else
arr(x, 3) = "×"
arr(x, 4) = 0
GoTo aa
End If
Next y
If i = Len(arr(x, 5)) Then
arr(x, 3) = "√"
arr(x, 4) = 2
Else
arr(x, 3) = "tf"
arr(x, 4) = i * 0.5
End If
k = arr(x, 4) + k
aa:
Next x
Range("A3").Resize(UBound(arr), UBound(arr, 2)) = arr
MsgBox "总得分：" & k & "分"
End Sub

运行该宏得到正确的结果