如何查找具有任何值的单元格，然后查找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中删除一个空白（如果存在）：