使用VBA与单元格比较值

Question

我将数据（数字）2个单元格（Excel）作为一个单元格。

我想比较Data1和Data2每个数字。如果找到差异数据，则移至差异列（新单元格），如果找到相同数据，则移至相同列（新单元格）。最后，将数据差异和相同的数据移动到差异+相同列。

Data1 = ,4016,4053,6008,6009,6010,6011,24016,24022,24029,24035,24041,24045,24053,24059,24071,24077,24214,24240,24258,24262,24268,26000,26001,26002,26003,26004,26005,26006,26007


Data2 = ,4001,6008,6009,6010,6011,24001,24030,24036,24042,24046,24049,24054,24060,24072,24078,24215,24241,24259,24263,24269,26000,26001,26002,26003,26004,26005,26006,26007

Answer 1

1. 将数字拆分为数组（以便我们可以处理每个数字）
2. 一次将所有数字添加到字典AllButUniqueItems中，以便一次包含每个数据集的每个数字。该词典中已经存在的所有所有数字都将放入DuplicateItems词典中。
这样，
3. 唯一项目就是AllButUniqueItems中的所有项目但不是中的
4. 使用（3）的逻辑将数字连接成字符串并将其写入单元格中。

所以您最终会得到类似的东西

DuplicateItems