[已解决]求帮忙解决关于提取不重复值的问题

今天比昨天长

问题附件.rar (8.19 KB, 下载次数: 16)

2014-1-26 08:14 上传

点击文件名下载附件
最好是能够随着后面的回单号变化完成自动提取。

最佳答案

月排行榜 / 总排行榜

baksy

2014-1-26 11:20

今天比昨天长 发表于 2014-1-26 11:11
我试了，它返回错误值。不知道为什么

=INDEX(产品逐单列表!H:H,SMALL(IFERROR(IF((产品逐单列表!H$2:H$144<>"")*(MATCH(产品逐单列表!H$2:H$144,产品逐单列表!H$2:H$144,)+1=ROW($2:$144)),ROW($2:$144),999),""),ROW(A1)))
请再次试试。

跳转到最佳答案楼层

renyz2006

没弄清问题的要求！

风林火山

1. Sub 提取回单号()
   
2.     Dim d As Object, arr, k%, i%
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("产品逐单列表").Range("h1:h" & Sheets("产品逐单列表").Cells(Rows.Count, 8).End(3).Row)
   
5.     For k = 2 To UBound(arr)
   
6.         If d.exists(arr(k, 1)) = False And Len(arr(k, 1)) > 1 Then d(arr(k, 1)) = ""
   
7.     Next k
   
8.     Sheets("效果").Columns("a:a").ClearContents
   
9.     Sheets("效果").Range("a1:a" & d.Count + 1).NumberFormatLocal = "@"
   
10.     Sheets("效果").Range("a1") = "回单号"
    
11.     Sheets("效果").Cells(2, 1).Resize(d.Count, 1) = Application.Transpose(d.keys)
    
12. End Sub

复制代码

chunlin1wang

1. =INDEX(产品逐单列表!H:H,SMALL(IF((MATCH(data,data,)=ROW(INDIRECT("1:"&COUNTA(data))))*(data<>"1"),ROW(INDIRECT("1:"&COUNTA(data)))+1,4^8),ROW(1:1)))&""

复制代码

定义名称data

1. =OFFSET(产品逐单列表!$H$2,,,COUNTA(产品逐单列表!$H:$H)-1)

复制代码

baksy

A2单元格公式：=INDEX(产品逐单列表!H:H,SMALL(IF((产品逐单列表!H$2:H$144<>"1")*(MATCH(产品逐单列表!H$2:H$144,产品逐单列表!H$2:H$144,)+1=ROW($2:$144)),ROW($2:$144),999),ROW(A1)))
公式复制后三键回车（同时按下Ctrl、Shift和Enter三个键），公式下拉。

tgydslr

效果！A2

1. =INDEX(INDIRECT("产品逐单列表!H2:H"&COUNTA(产品逐单列表!H:H)),SMALL(IF(MATCH(INDIRECT("产品逐单列表!H2:H"&COUNTA(产品逐单列表!H:H)),INDIRECT("产品逐单列表!H2:H"&COUNTA(产品逐单列表!H:H)),)=ROW(INDIRECT("1:"&COUNTA(产品逐单列表!H:H)-1)),ROW(INDIRECT("1:"&COUNTA(产品逐单列表!H:H)-1))),ROW(A1)))

复制代码

三键下拉

今天比昨天长

tgydslr 发表于 2014-1-26 09:15
效果！A2三键下拉

可以用，但是会把1也提取出来。
用没有办法不提取出1来，因为1原来是空格，是我填上去的！谢谢！

今天比昨天长

baksy 发表于 2014-1-26 09:02
A2单元格公式：=INDEX(产品逐单列表!H:H,SMALL(IF((产品逐单列表!H$2:H$144"1")*(MATCH(产品逐单列表!H$2:H ...

是我要的效果，但是数据源中1的位置本来是空，我是定位填充的。
如果把1改成空的话，公式貌似会出错。

baksy

今天比昨天长 发表于 2014-1-26 11:04
是我要的效果，但是数据源中1的位置本来是空，我是定位填充的。
如果把1改成空的话，公式貌似会出错。

楼主可以把公式中的  【产品逐单列表!H$2:H$144<>"1"   】
改为  【产品逐单列表!H$2:H$144<>""  】就可以了。

今天比昨天长

baksy 发表于 2014-1-26 11:07
楼主可以把公式中的  【产品逐单列表!H$2:H$144"1"   】
改为  【产品逐单列表!H$2:H$144""  】就可以了 ...

我试了，它返回错误值。不知道为什么