如何取行并创建一个列表，方法是删除重复项并与之分隔；

Question

自从我使用宏以来已经有一段时间了，所以请耐心地对待我。我真的很感激你的专业知识。

我正在尝试创建一个由";“分隔的范围的唯一值列表，但不幸的是，我没有足够强大的知识库来执行该操作。

目前，我使用这个系统:选择范围(让我们在本例中使用A2:A 100)。复制并粘贴到一个新的工作表，因为我不想破坏原来的工作表。从列表中删除重复项。复制并粘贴为转置，以使列表在一行。然后运行这个宏

Sub insert_column_every_other()
For colx = 2 To 30 Step 2
Columns(colx).Insert Shift:=xlToRight
Next
End Sub

然后选择范围并替换特殊区域，用a替换空格，然后使用CONCAT列出与a分隔的所有单元格；

这显然是无效的，必须有一个更好的方法！

我希望宏只读取原始工作表中A2:A 100的列表，然后创建一个由";“分隔的唯一单元格值的列表。如果可能的话，我也希望这个弹出在MSGBOX中。

Answer 1

使用TEXTJOIN作为数组公式：

=TEXTJOIN(";",TRUE,IF(IFERROR(MATCH(A2:A100,A:A,0)=ROW(A2:A100),FALSE),A2:A100,""))

作为数组公式，在退出编辑模式时，必须使用Ctrl-Shift-Enter而不是Enter来确认。

​

​