求一个Excel的VBA，当输入以文本格式储存的数字时，会自动比较两个字符串，并得出结果

使用VBA事件。把你的代码放在如下代码中间。

或者在VBA编辑器中点击该sheet，在编辑栏上面的下拉框中选择worksheet和change即可。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 5 Then
代码
End If
End Sub

你需要使用worksheet的change事件
然后，在这个事件中，写一些代码，来完成你的处理。

何必那么麻烦，直接用函数公式就可以了，在F1中输入 =IF(COUNT(FIND(B1,E1))>0,"√","×") 同时按下SHILT+CHRL+回车结束，下拉就可以了

vbe编辑器中 双击 SHISHICAI数据分析 工作表 在工作表中插入以上代码 即可 注意是工作表中 不是模块

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
If (Target.Column = 2 Or Target.Column = 5) And Target.Row > 3 Then
For Each rg In Target
r = rg.Row
Cells(r, 6) = IIf(InStr(Cells(r, 5), Cells(r, 2)) > 0, "对", "错")
Next
End If
End Sub