vba - 使用 VBA 从列表中消除重复项并将结果复制到单独的工作表中

Question

我在这里是因为我需要帮助完成上述任务。在我的学生 worker 工作中，我们在电子表格的一列中有一个客户列表，我们在收到工作订单时添加到该列表中。我需要帮助的基本上是将此列表的已淘汰版本(无重复)转移到具有总条目数的不同电子表格中。

我的老板给了我这份工作，因为我在业余时间搞乱了 VBA 代码的其他方面，他注意到了。不幸的是，我并不完全 100% 确定如何做到这一点，因为我对这门语言还很陌生。

这是我到目前为止所拥有的(注意它不起作用)
http://pastebin.com/E3bKbr24

任何帮助将不胜感激，尤其是有关如何提高效率的指示!我知道 C++，而且我知道双重嵌套的 For 循环效率很低，因此任何提高此函数性能的建议方法都会有所帮助(尤其是因为它会被大量调用)。

再次感谢!

Answer 1

这是我的建议:

Sub Copy()

    Worksheets("originalsheet").Columns("Q:Q").Copy Destination:=Worksheets("newsheet").Columns("Q:Q")
    Worksheets("newsheet").Columns("Q:Q").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

将“originalsheet”替换为您尝试从中复制数据的工作表的名称，并将“newsheet”替换为您尝试将数据复制到其中的新工作表的名称。如果需要，您还可以将列中的 Q 替换为更广泛的范围，例如“C:S”。

如果您想将所有内容保存在同一个工作表中并重新使用该工作表来满足您的需要，最好在外部创建一个而不是在 sub 中创建一个新工作表，否则每次您都会得到一张新工作表启动子。