字符串查重函数

按下ALT+F11,菜单:插入-模块,然后复制下面代码 假设你在A1中输入字符串,那就在B1中输入=ORDER(A1) 这样B1就是你要得到的数字

就是使用函数EXACT 你会在EXCEL中使用函数把?你添加一列用来写函数,如果你的ISBN相同EXACT(text1,text2) text1引用你当前这一行的数,text2引用下一行的数,返回结果有true和FALSE,你在筛选掉false的行就只剩下true的行了!这样明白了?还不明白给我邮件~函数EXACT 该函数用于比较两个字符串：如果它们完全相同，则返回 TRUE；否则，返回 FALSE。函数 EXACT 区分大小写，但忽略格式上的差异。利用 EXACT 函数可以测试在文档内输入的文本。 语法 EXACT(text1,text2) Text1 为待比较的第一个字符串。 Text2 为待比较的第二个字符串。 说明 您也可使用双等号 (==) 比较运算符代替 EXACT 函数来进行精确比较。例如，=A1==B1 与 =EXACT(A1,B1) 返回相同的值。 示例 A B 第一个字符串 第二个字符串 word word Word word w ord word 公式 说明（结果） =EXACT(A2,B2) 测试第一行中的两个字符串是否完全相同 (TRUE) =EXACT(A3,B3) 测试第二行中的两个字符串是否完全相同 (FALSE) =EXACT(A4,B4) 测试第三行中的两个字符串是否完全相同 (FALSE)

按下ALT+F11,菜单:插入-模块,然后复制下面代码假设你在A1中输入字符串,那就在B1中输入=ORDER(A1)这样B1就是你要得到的数字Public Function order(ByVal m As String) As StringDim a() As StringReDim a(1 To Len(m)) As StringFor x = 1 To Len(m)If InStr(1, m, Mid(m, x, 1)) < x Thena(x) = ""Elsea(x) = Mid(m, x, 1)End IfNextFor x = 1 To Len(m)order = order & a(x)NextEnd Function