Question

EXCEL 提取多个不重复的内容？

请教EXCEL高手，表中有 I-V 列共14列内容，现需要根据姓名把对应的14列内容中所有大于的数值都提取出来，并且提取出的数据都不能重复。对EXCEL 还是一知半解，工作上遇到非常棘手的问题，一个一个修改工作量很大，求帮忙，先谢谢啦！

Answer 1

用公式是一个很难度的问题，而且是把数据引用到多行，按提问所说，有14列数据，提取后分布在4列中，如果全不为0，就得3行才放下。另外提问说是I-V列，实际应该是J-W列。

如图：

A3=IFERROR(INDEX($J$1:$W$1,SMALL(IF(SUBTOTAL(9,OFFSET($I$1,MATCH($F$1,$I$2:$I$7,),COLUMN($A:$N))),COLUMN($A:$N)),COLUMN(A:A)+(ROW(1:1)-1)*2)),"")

同时按Ctrl+Shift+Enter三键 输入数组公式

A4=IFERROR(INDEX($J$2:$W$7,MATCH($F$1,$I$2:$I$7,),SMALL(IF(SUBTOTAL(9,OFFSET($I$1,MATCH($F$1,$I$2:$I$7,),COLUMN($A:$N))),COLUMN($A:$N)),COLUMN(A:A)+(ROW(1:1)-1)*2)),"")

同样三键数组公式。

选择A3:A4，一直右拉到D3:D4，再选择A3:D4，复制后，粘贴到A5:D6和A7:D8

Answer 2

'自定义公式-按ALT+11-插入-模块(范围找字)

Function 范围找字(a As Range, c As String, b As String, Optional ByVal numformat As String = "0")

Dim j As Integer

For i = 1 To a.Rows.Count

If i > 1 And a.Cells(i, 1) = "" Then Exit For

If InStr(c, a.Cells(i, 1)) > 0 And a.Cells(i, 1) <> "" Then

For j = 2 To a.Columns.Count

If a.Cells(i, j) > 0 And a.Cells(i, j) <> "" And InStr(t, a.Cells(i, j)) = 0 Then

t = t & "|" & a.Cells(i, j)

n = n & "|" & a.Cells(1, j)

End If

Next

End If

Next

m = Split(Right(t, Len(t) - 1), "|", -1, 1)

k = Split(Right(n, Len(n) - 1), "|", -1, 1)

If b - 1 > UBound(m) Then

范围找字 = ""

Else

If numformat <> 0 Then

范围找字 = k(b - 1)

Else

范围找字 = m(b - 1)

End If

End If

End Function

追问

您好，再请问下，为什么有的提取不完整，比如选择关羽时，T3单元格输入1-6提取不出来，输入7-11就能提取出来，输入12又不行，后面就没有试了，麻烦再指教下，谢谢

追答

截图看下

注意体现公式和行列号

我知道你的意思了，我去重公式用到包含就去重了，前面有数字1-6所以不显示，稍等修改下

'自定义公式-按ALT+11-插入-模块(范围找字)
Function 范围找字(a As Range, c As String, b As String, Optional ByVal numformat As String = "0")
Dim j As Integer
For i = 1 To a.Rows.Count
If i > 1 And a.Cells(i, 1) = "" Then Exit For
If InStr(c, a.Cells(i, 1)) > 0 And a.Cells(i, 1) "" Then
For j = 2 To a.Columns.Count
If a.Cells(i, j) > 0 And a.Cells(i, j) "" Then
t = t & "|" & a.Cells(i, j)
n = n & "|" & a.Cells(1, j)
End If
Next
End If
Next
m = Split(Right(t, Len(t) - 1), "|", -1, 1)
k = Split(Right(n, Len(n) - 1), "|", -1, 1)
If b - 1 > UBound(m) Then
范围找字 = ""
Else
If numformat 0 Then
范围找字 = k(b - 1)
Else
范围找字 = m(b - 1)
End If
End If
End Function

这个就可以，我把第五行的去重代码去掉了，这个是不去重的，因为假设你要去重的话，只有数字会重复，上面第一行的字母是不同的，那么去重后显示第一个字母还是最后一个字母，要看你的要求来改

追问

这个提示语法错误，可能我的意思没有表达好，重复的意思是提取出来的 I--W 列名称不能重复提取，里面的数值原来是多少就多少，可以重复。PS：我对VBA就是一窍不通！

追答

'自定义公式-按ALT+11-插入-模块(范围找字)
Function 范围找字(a As Range, c As String, b As String, Optional ByVal numformat As String = "0")
Dim j As Integer
For i = 1 To a.Rows.Count
If i > 1 And a.Cells(i, 1) = "" Then Exit For
If InStr(c, a.Cells(i, 1)) > 0 And a.Cells(i, 1) "" Then
For j = 2 To a.Columns.Count
If a.Cells(i, j) > 0 And a.Cells(i, j) "" Then
t = t & "|" & a.Cells(i, j)
n = n & "|" & a.Cells(1, j)
End If
Next
End If
Next
m = Split(Right(t, Len(t) - 1), "|", -1, 1)
k = Split(Right(n, Len(n) - 1), "|", -1, 1)
If b - 1 > UBound(m) Then
范围找字 = ""
Else
If numformat 0 Then
范围找字 = k(b - 1)
Else
范围找字 = m(b - 1)
End If
End If
End Function

那就不用去重代码了，这样就行，之前那段我对比了下，不懂为什么复制给你少了几个代码符号，这个你试下

Answer 3

公式不方便就用代码。