怎样剔除A列中重复的数据，在B列中显示出来？

xinxin2021 · 发表于 2023-9-19 09:43

本帖最后由 xinxin2021 于 2023-9-19 09:51 编辑

Excel文件A列有大量重复数据。怎样剔除A列中重复的数据，在B列中显示出来？

剔除重复数据后显示效果见附件：

删除重复数据.rar (7.62 KB, 下载次数: 18)

cidanji · 发表于 2023-9-19 09:49

本帖最后由 cidanji 于 2023-9-20 14:57 编辑

....................................

grf1973 · 发表于 2023-9-19 09:53

有现成的语句

limonet · 发表于 2023-9-19 09:54

你运行不了SQL：那函数或字典

skiss · 发表于 2023-9-19 10:02

录一个宏，使用删除重复项功能试试

Sub 单列去重()
Dim myR As Range
Dim myR1 As Range
Dim myR2 As Range
Set myR1 = Range("A2:a40000") '指定要复制的单元格区域
Set myR2 = Range("b2") '指定要复制的位置（左上角单元格）
myR1.Copy
myR2.PasteSpecial Paste:=xlPasteValues
Set myR = Range("b2:b4000")
'去除重复值
myR.RemoveDuplicates Columns:=1, Header:=xlNo
Application.CutCopyMode = False
End Sub

复制代码

iu950 · 发表于 2023-9-19 10:02

用字典搞一下

cyq4896 · 发表于 2023-9-19 10:05

参与一下..

limonet · 发表于 2023-9-19 10:11

Sub limonet()
Range("A2:A999").Copy Range("D2")
Range("D2").CurrentRegion.RemoveDuplicates (1)
End Sub

zhangcheng6688 · 发表于 2023-9-25 12:28

来一个数组的，
arr = Range("a2:a12")
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
   If Len(arr(i, 1)) Then
      For j = i + 1 To UBound(arr)
         If Len(arr(j, 1)) Then
            If arr(i, 1) = arr(j, 1) Then
               arr(j, 1) = vbNullString
            End If
         End If
      Next
   End If
Next
For k = 1 To UBound(arr)
If Len(arr(k, 1)) Then
   m = m + 1
   brr(m, 1) = arr(k, 1)
End If
Next
[b2].Resize(m, 1) = brr

今铭昔 · 发表于 2023-9-25 13:29

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

[求助] 怎样剔除A列中重复的数据，在B列中显示出来？

评分

评分

评分

评分

评分