在VBA中是否可对比字符串指定部分，实现邮箱域名重复项识别？

表格工具方案（Excel/WPS/Google Sheets通用，适合非技术用户） #

操作步骤如下：

• 选中所有需要检测的邮箱单元格区域，例如示例中的A2:B3范围
• 打开「条件格式」-「新建规则」-「使用公式确定要设置格式的单元格」
• 在公式输入框填入内容：=COUNTIF($A$2:$B$3,RIGHT(A2,LEN(A2)-FIND("@",A2)))>1，注意将公式中的$A$2:$B$3替换为你实际选中的邮箱数据范围
• 点击「格式」，设置字体颜色为红色，确认后所有包含重复域名的单元格会自动标红，后续新增或修改邮箱内容也会自动更新标记，效率远高于手动搜索

公式逻辑说明：先提取当前单元格@之后的域名，再统计整个选中区域内该域名的出现次数，次数大于1就触发格式标记

代码处理方案（适合批量处理大量邮箱数据） #

用Python实现的极简脚本，不需要依赖第三方库：

from collections import defaultdict

# 填入你要处理的所有邮箱
email_list = ["test1@adressX", "test2@adressY", "test3@adressZ", "test4@adressX"]
domain_counter = defaultdict(int)

# 统计所有域名出现次数
for email in email_list:
    domain = email.split("@")[-1]
    domain_counter[domain] += 1

# 筛选出所有带重复域名的邮箱
repeat_domain_emails = [email for email in email_list if domain_counter[email.split("@")[-1]] > 1]
print("带重复域名的邮箱列表：", repeat_domain_emails)

运行后直接输出所有符合条件的邮箱，如需输出标红可以在打印时增加ANSI转义字符实现。

内容的提问来源于stack exchange，提问作者Kessie