主题：从Excel导入不重复的数据

Dim dic As Dictionary(Of String ,String)

改为：

Dim dic As New Dictionary(Of String ,String)

分析过程：

你已经调试分析，说明MessageBox.Show(2.2)之后的一样代码有问题：

   If dr Is Nothing  AndAlso dic.ContainsKey( sheet(i,1).Value) = False Then

这行代码AndAlso前有两部分，前面一部分是判断，不可能有问题，后面使用dic，可能有问题，回头检查前面定义dic的这个语句，发现少了个New