选择多个单元格时评估错误：运行时错误'13'：类型不匹配

Question

我在M列中评估有效的电子邮件，并且代码有效...

除非我在工作表中的任何地方（M列或其他地方）执行涉及多个单元格的任何操作，例如复制或粘贴多个单元格，选择和删除多行等，否则都会收到错误消息

“运行时错误'13'：类型不匹配”

调试指向此代码。

If Target.Column = 13 And Target.Value <> "" And _
  Evaluate("COUNTIF(" & Target.Address & ",""*@*.*"")") <> 1 Then
    Target.ClearContents
    Target.Activate
    MsgBox "Please enter a valid email address."
End If

我想保留代码，但是当我只删除或粘贴多个单元格时防止出现错误。

Answer 1

您可以用target.Cells.CountLarge检查是否选择了多个单元格，或者将其添加到您的代码中看起来像这样