[已解决]请教提取不重复姓名

武林长风

不重复姓名.rar (4.53 KB, 下载次数: 19)

2016-1-26 20:22 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

1091126096

2016-1-26 22:12

武林长风 发表于 2016-1-26 21:40
IF(姓名!A$2:D$55>0,姓名!A$2:D$55,""))*9&ROW($2:$55)&{1,2,3,4})),"r0c0"),)，请教一下，红色字表示什么 ...

Excel关于引用有两种表示的方法，即A1 和 R1C1 引用样式。r是行号，c后面是列号。INDIRECT（TEXT(,"R1C1")，)相当于INDIRECT（“A1”）。

跳转到最佳答案楼层

1091126096

1. =INDIRECT("姓名!"&TEXT(MIN(--(COUNTIF(A$2:A6,IF(姓名!A$2:D$55>0,姓名!A$2:D$55,""))*9&ROW($2:$55)&{1,2,3,4})),"r0c0"),)&""

复制代码

武林长风

1091126096 发表于 2016-1-26 21:10

用到我实际的表里，最后一个姓名重复到了最后。

武林长风

1091126096 发表于 2016-1-26 21:10

IF(姓名!A$2:D$55>0,姓名!A$2:D$55,""))*9&ROW($2:$55)&{1,2,3,4})),"r0c0"),)，请教一下，红色字表示什么意思。

1091126096

武林长风 发表于 2016-1-26 21:40
IF(姓名!A$2:D$55>0,姓名!A$2:D$55,""))*9&ROW($2:$55)&{1,2,3,4})),"r0c0"),)，请教一下，红色字表示什么 ...

Excel关于引用有两种表示的方法，即A1 和 R1C1 引用样式。r是行号，c后面是列号。INDIRECT（TEXT(,"R1C1")，)相当于INDIRECT（“A1”）。

sry660

1. Sub 提取不重复姓名()
   
2. Dim arr, i&, j&, d, x
   
3. arr = Sheets(1).[a2].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 1 To UBound(arr)
   
6.     For j = 1 To UBound(arr, 2)
   
7.         x = arr(i, j)
   
8.         If x <> 0 Then
   
9.             d(x) = ""
   
10.         End If
    
11.     Next
    
12. Next
    
13. [a7:a10000].ClearContents
    
14. [a7].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
15. End Sub

复制代码

武林长风

1091126096 发表于 2016-1-26 22:12
Excel关于引用有两种表示的方法，即A1 和 R1C1 引用样式。r是行号，c后面是列号。INDIRECT（TEXT(,"R1C1")， ...

还是最后一个姓名重复到了最后。

武林长风

1091126096 发表于 2016-1-26 22:12
Excel关于引用有两种表示的方法，即A1 和 R1C1 引用样式。r是行号，c后面是列号。INDIRECT（TEXT(,"R1C1")， ...

可否修改一下公式？

武林长风

sry660 发表于 2016-1-27 09:15

可否用函数？

1091126096

武林长风 发表于 2016-1-27 16:49
还是最后一个姓名重复到了最后。

没有重复啊？