VBA：如何将列中不断变化的单元格的值与另一个动态范围进行比较？

，每个都有一个产品代码。我不知道存在多少不同的产品代码（同一产品代码有多个订单）。我需要编写一个宏代码来查找所有现有的产品代码，并将它们粘贴到L列中

第一个产品代码将按原样粘贴在L列中。现在，随着这一过程的继续，我希望使用列L中输入的所有值检查列C中的下一个产品代码，例如，如果A01已经粘贴到列L中，那么当A01下次出现在列C中时，我不希望它粘贴到列L中

我的意思是我想找到我所有的独特产品代码。 我通过记录一个数据过滤器（升序）marco完成了这项工作，但我想知道如何通过编写自己的代码来完成这项工作。 提前多谢！：）

subtry（）
Dim j尽可能长
朦胧的我一样长，最后一排一样长
lastrow=工作簿（“A.xlsx”）。工作表（“Sheet1”）。范围（“A1048576”）。结束（xlUp）。行
错误转到0
范围（“C2”）。选择
选择。复制工作簿（“A.xlsx”）。工作表（“表1”）。范围（“L2”）
对于i=3到最后一行
j=工作簿（“A.xlsx”）。工作表（“表1”）。范围（“L1048576”）。结束（xlUp）。行+1
如果是Range（“C”&i）.value Range（“L2:L”&j-1）.value那么“我不知道怎么写
范围（“C”和i）。选择
选择。复制工作簿（“A.xlsx”）。工作表（“表1”）。范围（“L”和“j”）
接下来我
端接头

将所有代码复制到目标列中，然后从中删除重复的代码：

Sheet1.Columns("C").Copy Sheet1.Columns("L")
Sheet1.Columns("L").RemoveDuplicates 1

---

最简单的方法是将所有代码复制到目标列，然后从该列中删除重复的代码。这就足够了吗？另一个选择是使用，如果找不到，就把它移过去。

Sheet1.Columns("C").Copy Sheet1.Columns("L")
Sheet1.Columns("L").RemoveDuplicates 1