EXCEL从多列数据中提取出唯一值（非重复值）的方法

发布网友 发布时间：2022-04-21 20:04

我来回答

共3个回答

热心网友 时间：2023-07-30 06:05

Excel怎样快速列举不重复数据序号、位置和值

热心网友 时间：2023-07-30 06:05

假设数据从A~I，结果在J
Sub 去重()

Dim dic, arr1, i&, j&

Set dic = CreateObject("Scripting.Dictionary")

For i = 1 To Range("A1").End(xlUp).Row

For j = 1 To 9
dic(Cells(i, j)) = 0
Next
Next

arr1 = dic.Keys

Cells(1, 10).Resize(dic.Count, 1) = Application.Transpose(arr1)
End Sub

热心网友 时间：2023-07-30 06:06

把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）,excel样表文件（把现状和目标效果表示出）作为附件发到yqch134@163.com帮你看下追问现状和目标效果就如图，只是数据量会更大，列数9列而已，别的没多少差别

追答发文件来，可以用公式自动提取到一列，再利用公式自动去重