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

Question

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

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

我使用Database>> Tasks >> Import Data功能进行导入。此选项允许导入重复数据而不删除。如何在将数据从Excel导入SQL Server时删除重复行？

Answer 1

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

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

注:将所有"A1“更改为string引用键列的第一个单元格。

所有数据行之间不能有空格或空行，因为如果找到空单元格，代码将停止。

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