合并单元格，去掉重复字符（有公式，求帮修改）

闲情逸致111 · 发表于 2014-1-1 11:23

合并去重.zip (2.51 KB, 下载次数: 29)

little-key · 发表于 2014-1-1 11:34

这个用普通函数难吧
我知道的方法就是VBA 的自定义函数
最好用字典的方法
因为key可以存放不重复值

闲情逸致111 · 发表于 2014-1-1 12:17

little-key 发表于 2014-1-1 11:34
这个用普通函数难吧
我知道的方法就是VBA 的自定义函数
最好用字典的方法

求高手做好实例,我是菜鸟,呵呵,谢谢了

安全为主 · 发表于 2014-1-1 12:29

闲情逸致111 发表于 2014-1-1 12:17
求高手做好实例,我是菜鸟,呵呵,谢谢了

前面加个判断，后面的e2的原来公式直接代入就可以，

=IF(A2="0",0,"")&SUM(RIGHT(LARGE(--IF(ISNUMBER(FIND(ROW($1:$10)-1,A2&B2&C2&D2)),FIND(ROW($1:$10)-1,A2&B2&C2&D2)*10+ROW($1:$10)-1),ROW($1:$10)))*10^ROW($1:$10))/10

复制代码

楼主验证下

zhong1218 · 发表于 2014-1-1 12:42

本帖最后由 zhong1218 于 2014-1-1 12:43 编辑

Sub aa()
Dim lr%, arr, brr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = Range("a2").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
t = t & arr(i, j)
Next j
For n = 1 To Len(t)
d(Mid(t, n, 1)) = ""
Next n
k = k + 1
brr(k, 1) = "'" & Join(d.keys, "")
d.RemoveAll
t = ""
Next i
Range("f2").Resize(UBound(brr)) = brr
End Sub

复制代码

闲情逸致111 · 发表于 2014-1-1 20:03

安全为主发表于 2014-1-1 12:29
前面加个判断，后面的e2的原来公式直接代入就可以，楼主验证下

我用你的这个公式，谢谢了！

闲情逸致111 · 发表于 2014-1-1 20:04

zhong1218 发表于 2014-1-1 12:42

这个也不错，谢谢您了！

闲情逸致111 · 发表于 2014-1-5 18:06

安全为主发表于 2014-1-1 12:29
前面加个判断，后面的e2的原来公式直接代入就可以，楼主验证下

老师，你好！能不能帮我改下这公式？如果把重复的字符去掉，重复的都不保留，怎么改公式?
如:A2&B2&C2&D2后，得到1142180，删掉重复的1，留下不重复的4280.

小花猫123 · 发表于 2014-1-6 09:32

本帖最后由小花猫123 于 2014-1-6 10:01 编辑

=RIGHT(TEXT(SUM(SMALL(IF(LEN(e2)-LEN(SUBSTITUTE(e2,ROW($1:$10)-1,))=1,ROW($1:$10)-1,),ROW($1:$10))*10^(10-ROW($1:$10))),REPT("0",10)),SUM(--(LEN(e2)-LEN(SUBSTITUTE(e2,ROW($1:$10)-1,))=1)))
数组公式CTRL+SHIFT+回车

		自动登录	找回密码
密码			免费注册

[已解决] 合并单元格，去掉重复字符（有公式，求帮修改）

评分

评分

评分