删除行中的重复项

Question

如何使用VBA删除Excel 没有的行中的重复项？

我有什么：

第1行：1 | 1 | 2 | 2 | 3 | 3

我想要的是什么：

第1行：1 | 2 | 3

Answer 1

如果您不关心空格并且单元格A1：F1中有六个数字，则可以在单元格A2：F2中执行此操作：

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

然后拖动它。对于您的示例，这将导致1，，2，3，。

Answer 2

First, split cells to columns using [Text to columns] in the [DATA] tab
2: transpose data
3: [Remove Duplicates] in the [DATA] tab
4: transpose data
5: concat cells