去除重复代码 查重命令

问：在sql语言中去掉重复值的命令是

1. 答：distinct。
   SQLserver中很明显的去重复的语句是distinct。selectdistinct是去除重复的记录行，count（distinctColumn），消除重复值。还有一些不明显的具有去重功能的词，例如union，会去除重复的记录行或值。

问：EXCEL VBA的代码,去除重复？

1. 答：Function 去重(a As String)
   b = Split(a, " ")
   For Each cel In b
   n = Split(去重, " ")
   m = 0
   For i = 0 To UBound(n)
   If cel = n(i) Then m = m + 1
   Next
   If m = 0 Then 去重 = 去重 & " " & cel
   Next
   End Function
2. 答：Function 去重(source_ As String) As String
   temp = Split(source_, " ") '提取每个元素
   去重 = ""
   For Each item_ In temp '遍历每个元素
   If 去重 = "" Then '如果是第一个则直接赋值
   去重 = item_
   Else
   If 去重 Like "* *" Then '识别是否两个以上元素
   temp_1 = Split(去重, " ")
   flg_重复 = False
   '遍历是否重复
   For Each item_1 In temp_1
   If item_ = item_1 Then flg_重复 = True
   Next
   If Not flg_重复 Then 去重 = 去重 & " " & item_
   Else '只有一个元素则直接判断是否一致
   If Not 去重 = item_ Then 去重 = 去重 & " " & item_
   End If
   End If
   Next
   End Function

问：Excel查重复的命令

1. 答：可以利用公式、条件格式等来查找重复值。
   假设数据区域为A2:A21，对这些方法分别介绍如下：
   方法一：辅助列+公式法
   在A列的右侧插入辅助列，在辅助列中输入公式来确定区域中的重复值。
   1.在B2单元格中输入公式
   =IF(SUMPRODUCT(--(A2=$A$2:$A$21))>1,"重复","")
   或：=IF(COUNTIF($A$2:$A$21,A2)>1,"重复","")
   2.双击B2单元格右下角的填充柄，公式将自动填充到B3:B21区域。
   3.这时可以看到A列中的重复值对应在B列中都显示为“重复”。
   方法二：条件格式法
   1.选择区域A2:A16。
   2.单击功能区“开始→条件格式→突出显示单元格规则→重复值”。
   3.在“重复值”对话框中单击“确定”。
2. 答：定位在B1单元格中输入=IF(COUNTIF($A$1:$A$4999,A1)>1,"重复","不重复")
   一直往下拖动

本文来源: https://www.lunwen66.cn/article/6ba76a0c43beeafe90551727.html