除去重复的数字

tu01 · 发表于 2018-3-9 11:46

如图：A3--A12数字有的重复，在A1单元格内如何做到有A3-12有数字的表达，且自动除去重复的数字。

谢谢！

LSL1128xgw · 发表于 2018-3-9 14:00

本帖最后由 LSL1128xgw 于 2018-3-9 14:45 编辑

=IF(AND(A3:A12),"","0 ")&SUBSTITUTE(TEXT(SUBSTITUTE(SUM(IF(COUNTIF(A:A,ROW(1:9)),ROW(1:9))*10^(10-ROW(1:9))),0,),0&REPT(" 0",8)),"0 ",) 三键数组公式

boom1188 · 发表于 2018-3-9 14:41

=TRIM(SUBSTITUTE(TEXT(SUM(IF(FREQUENCY($A$3:$A$12,ROW(1:9)),ROW(1:9))*10^(10-ROW(1:10))),REPT(" 0",10)),0,))
三键

tu01 · 发表于 2018-3-9 18:57

boom1188 发表于 2018-3-9 14:41
=TRIM(SUBSTITUTE(TEXT(SUM(IF(FREQUENCY($A$3:$A$12,ROW(1:9)),ROW(1:9))*10^(10-ROW(1:10))),REPT(" 0",1 ...

太高深了，请上传附件！谢谢

tu01 · 发表于 2018-3-9 18:58

LSL1128xgw 发表于 2018-3-9 14:00
=IF(AND(A3:A12),"","0 ")&SUBSTITUTE(TEXT(SUBSTITUTE(SUM(IF(COUNTIF(A:A,ROW(1:9)),ROW(1:9))*10^(10-RO ...

太高深了，请上传附件！谢谢

boom1188 · 发表于 2018-3-9 19:00

tu01 发表于 2018-3-9 18:57
太高深了，请上传附件！谢谢

工作簿1.zip (6.15 KB, 下载次数: 3)

tu01 · 发表于 2018-3-9 19:09

boom1188 发表于 2018-3-9 19:00

我下载了附件，现在出现一个问题，就是A3-12之间是个位数字的时候，完全可以用，但是出现二位数的时候就不正常了？何解？谢谢

wangg913 · 发表于 2018-3-9 19:17

数据太少。
最好是给足数据。将真实数据，去掉敏感信息再上传。

tu01 · 发表于 2018-3-9 19:34

烦各位了。我要求是A3-60之间是1-99任意数字，但是有重复。在A1单元格内把没有重复的数字列出来。

wangg913 · 发表于 2018-3-9 21:31

本帖最后由 wangg913 于 2018-3-9 21:33 编辑

tu01 发表于 2018-3-9 19:34
烦各位了。我要求是A3-60之间是1-99任意数字，但是有重复。在A1单元格内把没有重复的数字列出来。

Sub NRNumers_Click()
Dim vntNum
Dim NRNumbers As String
Dim I, J, T
Dim objDic As Object

vntNum = Sheet1.Range("A3").CurrentRegion
Set objDic = CreateObject("Scripting.Dictionary")
For I = 1 To UBound(vntNum)
objDic(vntNum(I, 1)) = 0
Next
vntNum = objDic.keys
For I = 0 To UBound(vntNum) - 1
For J = I + 1 To UBound(vntNum)
      If vntNum(I) > vntNum(J) Then
         T = vntNum(J)
         vntNum(J) = vntNum(I)
         vntNum(I) = T
      End If
Next J
Next I
For I = 0 To UBound(vntNum)
NRNumbers = NRNumbers & " " & vntNum(I)
Next
Sheet1.Range("A1").Value = NRNumbers
End Sub

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

[求助] 除去重复的数字