【未解决】请大神帮我一下，单元格的数字如何去除重复值

q563262982 · 发表于 2018-9-14 15:53

本帖最后由 q563262982 于 2018-9-14 18:40 编辑

一个单元格内包含有数字，字母，去掉重复的数字或字母，使其顺序不变，如下图所示！
请大神提示一下公式，谢谢！

李兴德 · 发表于 2018-9-14 16:04

传文件

q563262982 · 发表于 2018-9-14 16:18

李兴德发表于 2018-9-14 16:04
传文件

已经上传了，

笨笨鹿 · 发表于 2018-9-14 16:28

晕，真是什么样的怪要求都会有，不过这个我觉得用函数很不好弄，VBA吧，代码应该不复杂，不过VBA我不擅长。

小小道童 · 发表于 2018-9-14 16:40

Sub 去重()
r = Range("a65535").End(3).Row
arr = Range("a5:a" & r)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
a = ""
字符 = arr(i, 1)
If 字符 <> "" Then
For j = 1 To Len(字符)
If InStr(a, Mid(字符, j, 1)) = 0 Then
a = a & Mid(字符, j, 1)
End If
Next
brr(i, 1) = a
End If
Next
Range("b5").Resize(UBound(brr), 1) = brr
End Sub

复制代码

q563262982 · 发表于 2018-9-14 16:44

请问大神们能用公式吗，VB我真心不会用，从哪儿粘贴代码，我都不知道？

nervfwg · 发表于 2018-9-14 17:14

q563262982 发表于 2018-9-14 16:18
已经上传了，

=MID(A1,TRANSPOSE(SMALL(IF(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),0)=ROW(INDIRECT("1:"&LEN(A1))),ROW(INDIRECT("1:"&LEN(A1))),4^6),ROW(INDIRECT("1:"&LEN(A1))))),1)只能生成内存数组，没法在一个单元格里显示出来

Scrazy · 发表于 2018-9-14 17:15

=IFERROR(SMALL(IF(FREQUENCY(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),A1),SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),A1))<>0,SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),A1)),ROW(INDIRECT("1:"&LEN(A1)))),)

复制代码

思路走不下去，存个公式先。

q563262982 · 发表于 2018-9-14 17:21

Scrazy 发表于 2018-9-14 17:15
思路走不下去，存个公式先。

=MID(SUM(MID(A1&1/17,SMALL(FIND(ROW($1:$10)-1,A1&1/17),ROW($1:$10)),1)/10^ROW($1:$10)),3,COUNT(FIND(ROW($1:$10)-1,A1)))

我给您提供上面这个公式，完全可以解决数值的重复值，但是遇到字母无法保留，你能解决下吗

约定的童话 · 发表于 2018-9-14 18:10

小小道童发表于 2018-9-14 16:40

经典的代码！厉害！

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

[求助] 【未解决】请大神帮我一下，单元格的数字如何去除重复值

评分

最新热点 /1