怎么用SQL语句查数据库中某一列是否有重复项

使用count和distinct（去重）关键字可以查看数据库某列是否有重复项。例如：

selectcount(discinct(colunmname))fromtable_name

如果上述查询统计结果大于count(colunmname),则代表这一列有重复项。

扩展资料

SQLSELECTDISTINCT语句用法介绍：

在表中，可能会包含重复值。这并不成问题，不过，有时您也许希望仅仅列出不同（distinct）的值。

关键词DISTINCT用于返回唯一不同的值。

语法：

SELECTDISTINCT列名称FROM表名称

使用DISTINCT关键词，例如要从"Company"列中选取所有的值，我们需要使用SELECT语句：

SELECTCompanyFROMOrders

excel中假设在A列需要找到相同数值的单元格，在B1输入以下公式

=IF(COUNTIF($A$1:A1,A1)>1,"重复","0")。

然后往下拖，只要是重复，后面就会显示“重复”两个字，显示0的就是不重复，一目了然。

如果要删除重复的行，那么继续做完上面的以后，按下面的步骤：

1、选中B列复制，再依次点击编辑、选择性粘贴，选中数值，确定。

2、Ctrl+H替换窗口，把重复两个字替换为空（就是“替换为”那里什么也不输入），全部替换。

3、依旧选中B列，按F5，在跳出窗口的左下角点击定位条件，选择空值，确定。

4、依次点击编辑，删除，选择整行，确定。

用vba 删除重复的行。

Sub 删除重复行2()。

Dim rCell As Range, rRng As Range, dRng As Range

On Error Resume Next

Application.ScreenUpdating = False

Set rRng = Range("A1:A" &Range("A65536").End(xlUp).Row)

rRng.AdvancedFilter Action:=xlFilterInPlace, unique:=True

For Each rCell In rRng

If rCell.EntireRow.Hidden = True Then

If dRng Is Nothing Then

Set dRng = rCell.EntireRow

Else

Set dRng = Application.Union(dRng, rCell.EntireRow)

End If

End If

Next

If Not dRng Is Nothing Then dRng.Delete

ActiveSheet.ShowAllData

Application.ScreenUpdating = True

End Sub

---