如何查找具有任何值的单元格，然后找到VBA中不同的下一个值

Question

我有一个包含各种不同列的数据列表。

我想要实现的是让excel查看其中一列并找到发生的第一个值，复制该单元格然后将其粘贴到另一个单元格中。数据从第三行开始（第1行和第2行是标题）。假设我想将第一个值粘贴到G3中。

然后，我需要excel来找到与同一列中第一个不同的下一个值并执行与之前相同的操作：复制该值，并将其粘贴到G列的下一行。

我已经尝试过对此进行编码，但是我没有找到它的任何地方，如果没有定义单元格中的值（作为.Find函数），我还没有找到找到单元格然后下一个单元格的方法需要一个值来搜索）。我知道如何编写复制/粘贴功能的代码，但我无法弄清楚如何让它在第一时间找到它。

非常感谢任何帮助。非常感谢提前。

Answer 1

在此示例中，我们正在列 A ：

中查找值

Sub FillG()
   Dim i As Long
   i = Rows.Count

   Range("A3:A" & i).Copy Range("G3:G" & i)
   ActiveSheet.Range("G3:G" & i).RemoveDuplicates Columns:=1, Header:=xlNo
   If Range("G3").Value = "" Then Range("G3").Delete Shift:=xlUp
End Sub

该方法是将所有列 A 复制到 G ，然后删除重复项，然后删除 G3 中的空白（如果存在）。 ：