=COUNTIF(A:A,A1)<2

打开“工具→宏→Visual Basic编辑器”命令 或者直接按“Alt+F11”组合键，进入Visual Basic编辑状态 选择“插入→模块”，插入一个新模块 将以下代码填进去 Function pinyin(p As String) As S...