如何在将数据从Excel导入SQL Server 2008时删除重复行

我想将Excel数据导入SQL Server表。我的Excel数据可能与SQL Server表中已有的数据重复

我的表没有主键。将Excel数据导入SQL Server时，我希望在插入Excel之前删除SQL Server表中的重复记录 数据

---

我使用

数据库>>任务>>导入数据

功能进行导入。此选项允许导入重复数据而无需删除。将数据从Excel导入SQL Server时，如何删除重复行？

使用Excel宏删除这些重复行

将下面的代码复制到excel宏模块中并运行它

注意：将所有“A1”更改为字符串，表示键列的第一个单元格。
所有数据行之间不应有空格或空行，因为若代码发现空白单元格，则代码将停止

Sub deleteDuplicateRow()
Dim i As Long

i = 0
Do While Range("A1").Offset(i).Value <> ""
    If Range("A1").Offset(i).Value = Range("A1").Offset(i + 1).Value Then
        Range("A1").Offset(i + 1).EntireRow.Delete
    Else
        i = i + 1
    End If
Loop
End Sub

子删除重复行（）
我想我会坚持多久
i=0
Do While范围（“A1”）。偏移量（i）。值“”
如果范围（“A1”）.Offset（i）.值=范围（“A1”）.Offset（i+1）.值，则
范围（“A1”）.偏移量（i+1）.EntireRow.Delete
其他的
i=i+1
如果结束
环
端接头

使用Excel宏删除那些重复的行

将下面的代码复制到excel宏模块中并运行它

注意：将所有“A1”更改为字符串，表示键列的第一个单元格。
所有数据行之间不应有空格或空行，因为若代码发现空白单元格，则代码将停止

Sub deleteDuplicateRow()
Dim i As Long

i = 0
Do While Range("A1").Offset(i).Value <> ""
    If Range("A1").Offset(i).Value = Range("A1").Offset(i + 1).Value Then
        Range("A1").Offset(i + 1).EntireRow.Delete
    Else
        i = i + 1
    End If
Loop
End Sub

子删除重复行（）
我想我会坚持多久
i=0
Do While范围（“A1”）。偏移量（i）。值“”
如果范围（“A1”）.Offset（i）.值=范围（“A1”）.Offset（i+1）.值，则
范围（“A1”）.偏移量（i+1）.EntireRow.Delete
其他的
i=i+1
如果结束
环
端接头