如何实现在不加辅助列情况实现重复数据只显示一个

Benfyhu · 发表于 2022-11-9 20:54

求助各位老师：如何实现在不加辅助列情况下，数据有效性引用，实现重复数据只显示一个。

E风卍行H · 发表于 2022-11-9 23:11

定义名称取E列数据：=OFFSET($E$1,0,0,COUNTIF(E:E,"><"))

Benfyhu · 发表于 2022-11-10 10:37

E风卍行H 发表于 2022-11-9 23:11
定义名称取E列数据：=OFFSET($E$1,0,0,COUNTIF(E:E,">

我说的是不用辅助列的内容。。在直接有效数据引用时，是能显示E列一样的效果。重复数据只在一个。（注意，不用辅助列）

Benfyhu · 发表于 2022-11-11 20:20

没有办法实现吗?

mjm04 · 发表于 2022-11-11 21:53

试试在最外层加一个 UNIQUE 函数

alan57 · 发表于 2022-11-13 11:09

你是WPS吗?excel的数据验证序列,自动去重了的.

niko88819 · 发表于 2022-11-13 20:00

本帖最后由 niko88819 于 2022-11-13 22:01 编辑

Benfyhu 发表于 2022-11-11 20:20
没有办法实现吗?

不加辅助列只有 VBA 了

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect([f2], Target) Is Nothing Then Exit Sub
If Target.Rows.Count > 1 Then Exit Sub
Dim arr, brr, i&, j&, k&, s
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Range("a1:a" & Range("a65536").End(xlUp).Row)
If Not IsArray(arr) Then Exit Sub
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then d(arr(i, 1)) = ""
Next
s = Join(d.keys, ",")
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=s
End With
Set d = Nothing
End Sub

复制代码

AN依依 · 发表于 2022-11-13 21:41

{=INDEX(A:A,MATCH(0,COUNTIF($E$1:E1,A:A),0))&""}

Benfyhu · 发表于 2022-11-14 09:10

niko88819 发表于 2022-11-13 20:00
不加辅助列只有 VBA 了

谢谢！那如果是引用数据在SHEET2 A列。显示的引用值在SHEET1 A2，这个怎么修一下

jany1312 · 发表于 2022-11-14 09:18

E风卍行H 发表于 2022-11-9 23:11
定义名称取E列数据：=OFFSET($E$1,0,0,COUNTIF(E:E,">

你这个试过了，没有去重的效果

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

[求助] 如何实现在不加辅助列情况实现重复数据只显示一个