If InStr(a, "@") Then a.Range.Delete首先，你必须保证原来的语句能正确运行，即能删除包含“@”的行。那么， If Not InStr(a, "@") Then a.Range.Delete应该能删除不包含“@”的行。另外，可以试试： If InStr(a, "@")=0 Then a.Range.Delete
