vba完成以下需求：查找A列中很多两两重复的单元格，要求删除重复单元格中的第一行，循环以上操作

可以使用VBA中的Dictionary对象来实现这个需求。具体步骤如下：

1. 定义一个Dictionary对象，用于存储A列中的值和出现次数。
2. 遍历A列中的每个单元格，将其作为Key加入Dictionary中，如果该Key已经存在，则将其对应的Value加1。
3. 再次遍历A列中的每个单元格，判断其在Dictionary中对应的Value是否大于1，如果大于1，则删除该单元格所在的行。
4. 重复以上操作，直到没有重复单元格为止。

下面是实现该需求的VBA代码示例：

Sub RemoveDuplicateRows()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastRow
        If Not dict.exists(Cells(i, "A").Value) Then
            dict.Add Cells(i, "A").Value, 1
        Else
            dict(Cells(i, "A").Value) = dict(Cells(i, "A").Value) + 1
        End If
    Next i
    
    For i = lastRow To 1 Step -1
        If dict(Cells(i, "A").Value) > 1 Then
            Rows(i).Delete
        End If
    Next i
    
    If WorksheetFunction.CountA(Range("A:A")) > 0 Then
        Application.Run "RemoveDuplicateRows"
    End If
End Sub

该代码会递归执行，直到A列中没有重复单元格为止。