如何用函数提取重复值?

发布网友发布时间：2022-04-29 05:44

共2个回答

热心网友时间：2022-06-20 00:17

用公式很难做到
用VBA可以
操作过程如下：
复制下面的代码
Sub ss(x As Range)
a = x.Row
b = x.Column
If a < 4 Or a > 16 Or a > 8 And a < 12 Then Exit Sub
If b > 6 Then Exit Sub
a = IIf(a < 12, 4, 12)
b = 1
m = 5
n = 6
p = b + 8
i = a + m - 1
r = n
s = ""
For j = 0 To n - 2
c = 0
For k = j + 1 To n - 1
If Cells(i, b + j) <> "" And Cells(i, b + j) = Cells(i, b + k) And InStr(s, vbTab & Cells(i, b + j)) = 0 Then
c = c + 1
If c = 1 Then p = p + 1: For t = a To a + m - 1: Cells(t, p) = Cells(t, b + j): Next
p = p + 1: For t = a To a + m - 1: Cells(t, p) = Cells(t, b + k): Next
End If
Next
If c > 0 Then r = r - c - 1: s = s & vbTab & Cells(i, b + j): p = p + 1: For t = a To a + m - 1: Cells(t, p) = "": Next
Next
For j = p To p + r: For i = a To a + m - 1: Cells(i, j) = "": Next: Next
End Sub
压住Alt打3键：F11、I、M
粘贴
再复制下面三行
Private Sub Worksheet_Change(ByVal Target As Range)
ss Target
End Sub
压住Alt打两键v、p
用上箭头键↑选择数据所在的工作表打回车
粘贴
回到工作表打入数据就看到结果了
修改数据结果会自动变化追问谢谢，大神的回答。但是菜鸟不知怎么用。1.是打开VBA编辑器粘贴代码进去就可以了吗？有详细点步骤吗？

热心网友时间：2022-06-20 00:18

我找找我的计算机的书看看有没有追答你能描述的再清楚一点吗

追问就是从原始数据把重复22这两列数据提出来放在一起就行。不是重复不要。