主题：[求助] 合并时删除重复行

我想合并导入excel数据，但是为了防止多次合并产生错误，1

1希望可以除去重复的行。

2希望合并完后有消息框

以上请版主指教

下面是合并的代码

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim mg As New Merger

    mg.SourcePath =dlg.FileName '指定数据文件

    mg.Format = "excel" '指定格式

    mg.SourceTableName = "data$" '指定要合并的表

    mg.DataTableName = "data汇总" '指定接收数据的表

    mg.Merge() '开始合并

End If