将值连接成唯一值答案

【问题标题】：Concatenate values into unique values将值连接成唯一值
【发布时间】：2015-07-06 01:33:30
【问题描述】：

我正在尝试从一列连接值在 Excel 中创建一系列唯一值，但每次尝试我都会得到#Name error。我究竟做错了什么？我正在使用这个公式：=listUnique(A$1:A$102916)

是的，我确实有 102,916 行数据。

【问题讨论】：

listUnique 定义在哪个模块中，是Public？
我不确定你所说的模块是什么意思...我是 Excel 新手，所以我还在学习这门语言。对不起。
Excel 附带了许多标准函数，它们的名称通常用大写字母书写； listUnique 不是其中之一。它还支持用 VBA 编写的自定义函数，这些函数在 VBA 编辑器的项目中以模块的形式组织，通过 Alt-F11 或菜单项访问单独的窗口。每个工作簿至少包含两个预定义的类模块，一个用于每个工作表，一个称为 ThisWorkbook。

【解决方案1】：

这是一种简单的方法，您可以从 A 列中的 102,916 行中删除重复项：

= IF(COUNTIF(A$1:A1, A1)=1, A1, "")

将此公式粘贴到单元格 B1 中，然后一直复制到第 102,916 行。您将只剩下唯一值。然后，您可以复制这些唯一值，并在需要时按值粘贴到其他地方。仅供参考，我检查了这个公式是否适用于连接值。

【讨论】：

谢谢蒂姆！这有帮助。

【解决方案2】：

另一种方法是使用 VBA 中的 REMOVE DUPLICATES 功能。

你的代码看起来像这样：

Columns("A:A").Select    ' select column A
ActiveSheet.Range("$A$1:$A$102916").RemoveDuplicates Columns:=1, Header:=xlYes ' for the active range, remove the duplicates; only 1 column selected; there is a header

如果您想避免丢失连接，可以将数据复制到另一列并这样做。

【讨论】：

谢谢克劳里克。下次我会记住这一点。