excel区域筛选重复项——A列
自定义函数实现更合理些，第一个参数选定姓氏区域，要用区域绝对引用，第二个参数是输出表的索引，超出范围后只能显示-END-了，建议用Row()-0之类的形式产生索引值。
PS：如果不明白怎么自定义函数或用不了Dictionary，那就好好学一下吧。
Public Function ListValue(ValueRange As range, ValueIndex As Long) As Variant
If ValueRange。 Count = 0 Then Exit Function
Dim r As Variant, v As Variant
Dim dictValue As N...全部
自定义函数实现更合理些，第一个参数选定姓氏区域，要用区域绝对引用，第二个参数是输出表的索引，超出范围后只能显示-END-了，建议用Row()-0之类的形式产生索引值。
PS：如果不明白怎么自定义函数或用不了Dictionary，那就好好学一下吧。
Public Function ListValue(ValueRange As range, ValueIndex As Long) As Variant
If ValueRange。
Count = 0 Then Exit Function
Dim r As Variant, v As Variant
Dim dictValue As New Dictionary
For Each r In ValueRange
v = r。
Value
dictValue(v) = dictValue(v) + 1
Next
Dim i As Long
For Each v In dictValue
i = i + 1
If ValueIndex = i Then
ListValue = v
i = dictValue。
Count
Exit For
End If
Next
If i < ValueIndex Then ListValue = "-END-"
End Function。
收起
