请教如何返回一列中重复出现的数字所在的行号

waterman927 · 发表于 2010-9-4 13:43

已经上传附件
想要返回在一列中重复出现的数字所在的行号
已经用公式实现一个数字出现两次的情况，但是不知道能否实现同一数字出现多于三次的情况
请各位大仙帮忙看看，用公式或者VBA都行
多谢多谢！！

example.zip (9.11 KB, 下载次数: 43)

李兴德 · 发表于 2010-9-4 13:59

不要什么都用VBA

zhangjimfu · 发表于 2010-9-4 14:12

Sub LookupList()
   Dim i As Integer
   Dim number As Integer
   Dim temp As Integer
   i = 2
   Do While Cells(i, "j") <> ""
         For temp = 2 To Range("j65536").End(xlUp).Row Step 1
               If Cells(temp, "j") = Cells(i, "j") And temp <> i Then
                     Cells(i, "k") = temp & "," & Cells(i, "k")
               End If
         Next temp
   i = i + 1
   Loop
End Sub

zhangjimfu · 发表于 2010-9-4 14:14

楼主请看附件！！

山桑弓 · 发表于 2010-9-4 14:33

现在的比较难，不会，原来的公式简化一下，C2
=IF(B2="","",IF(COUNTIF(B$2:B$46,B2)=1,"",MAX(IF(SMALL(IF(B$2:B$46=B2,ROW(B$2:B$46)),{1,2})<>ROW(),SMALL(IF(B$2:B$46=B2,ROW(B$2:B$46)),{1,2})))))
数组下拉，

Simon_Zhu · 发表于 2010-9-4 16:46

原帖由 waterman927 于 2010-9-4 13:43 发表
已经上传附件
想要返回在一列中重复出现的数字所在的行号
已经用公式实现一个数字出现两次的情况，但是不知道能否实现同一数字出现多于三次的情况
请各位大仙帮忙看看，用公式或者VBA都行
多谢多谢！！

78440 ...

你的情况：同一数字会出现多少次呢？
只要单元格放得下，出现多少次都可以实现，就是不知道太多了电脑会不会爆掉... 电脑也会有怨言的：你玩我呢！hehe

Sub My_test()
Dim i, rng, arr
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
rng = Sheet1.Range("j1:j" & Sheet1.[j65536].End(xlUp).Row)
ReDim arr(2 To UBound(rng))
For i = 2 To UBound(rng)
If rng(i, 1) <> "" Then
If Not d.exists(rng(i, 1)) And rng(i, 1) <> "" Then
d(rng(i, 1)) = i
Else
d(rng(i, 1)) = d(rng(i, 1)) & " " & i
d1(rng(i, 1)) = d(rng(i, 1))
End If
End If
Next i
For i = 2 To UBound(rng)
If d1.exists(rng(i, 1)) Then arr(i) = Replace(Application.WorksheetFunction.Trim(Replace(d1(rng(i, 1)), i, "")), " ", ",")
Next i
Sheet1.Range("k2").Resize(UBound(arr) - 1, 1) = Application.Transpose(arr)
Set d = Nothing
Set d1 = Nothing
Erase arr
End Sub

复制代码

详见附件
供参考

蓝桥玄霜 · 发表于 2010-9-4 16:53

Sub zd()
Dim i&, Myr&, Arr
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Myr = [b65536].End(xlUp).Row
Arr = Range("b2:c" & Myr)
For i = 1 To UBound(Arr)
If Arr(i, 1) <> "" Then
d(Arr(i, 1)) = d(Arr(i, 1)) & i + 1 & ","
End If
Next
k = d.keys
t = d.items
For i = 0 To UBound(k)
t(i) = Left(t(i), Len(t(i)) - 1)
Next
[j2].Resize(d.Count, 1) = Application.Transpose(k)
[k2].Resize(d.Count, 1) = Application.Transpose(t)
End Sub

复制代码

waterman927 · 发表于 2010-9-4 20:00

多谢各位！！！！！

kszcs · 发表于 2010-9-5 21:13

学习学习,收藏

[ 本帖最后由 kszcs 于 2010-9-5 21:16 编辑 ]

niko123 · 发表于 2010-9-5 21:18

简单点还是用公式吧

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

[求助] 请教如何返回一列中重复出现的数字所在的行号

回复 1楼 waterman927 的帖子

回复 1楼 waterman927 的帖子

回复 3楼 zhangjimfu 的帖子