应该有个sub，另外你的next不能放在if的里面，例如可以这样：
Sub xxx()
Dim rCell As Range
For Each rCell In Selection
If rCell.Value = " =223 " Then
rCell.Value = " '=222 "
End If
Next rCell
End Sub
你的好像还有问题，rCell.Value 会等于 " =223 "吗？空格、等号、数字、等号，这么怪的表吗？
“‘=222”
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024