问“条件”排序行疑难解答

EN

伙计，这太让人费解了.

我正在Excel下构建一个VBA工具。在它做的许多其他事情中，它根据表格的内容发送电子邮件。但在发送电子邮件之前，它会按电子邮件地址对它们进行居住。它首先按电子邮件地址对表进行排序，然后从底部向上滚动，对相邻的电子邮件地址进行重复数据删除。

排序顺序如下(编辑:为清楚起见，增加了更多行)：

' Sort the data by the EMAIL address
  Dim lastrow As Long
  lastrow = Cells(Rows.count, 1).End(xlUp).Row
  Sheets("Email_Tool").Range("A2:D" & lastrow).Sort key1:=Sheets("Email_Tool").Range("a2:a" & lastrow), order1:=xlAscending, Header:=xlNo

奇怪的是..。

1. 当我直接从Excel中运行VBA窗体时，排序算法实际上似乎不能正确地对项进行排序。
2. 当我打开开发人员面板，然后运行窗体时，它有时似乎可以正确地对它进行排序，但大多数情况下并非如此。
3. 当我打开包含值的表以便我可以看到它的进度时，它每次都能很好地执行排序。

其结果基本上是，电子邮件不会成为家常便饭。这样做的原因是因为行没有排序。

所以..。

要么是我误解了一些关于排序的棘手问题，要么...

...I需要想出一种不同的方法来对我的数据进行重复数据删除(欢迎建议)。

见鬼，我甚至不知道如何更深入地解决这个问题。一个有时有效有时不起作用的排序命令？！当以完全相同的顺序馈送完全相同的数据时(即使是从相同的缓冲区)？

图像上的注释:这是该表的通用屏幕截图--仅使用了四条数据。这些邮件应该通过电子邮件进行分类，但它们不...除非我在看桌子。(试图弄清楚如何上传图像...)

愿意接受建议/想法等。