excel在一列有重复数据中查找最后的一个有重复数据行号

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:05:55
a1 5
a2 7
a3 6
a4 5
a5 1
a6 5
a7 9
查找值为5的最后一行的行号 结果是A6这一行的行号，谢谢，请写一下公式

alt+f11 进入vba,
在sheet1输入

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k
For i = 1 To 6
For k = i + 1 To 7
If Cells(i, 1) = Cells(k, 1) Then
Cells(8, 1) = k
End If
Next k
Next i

End Sub

在a8 得出 数值 6

请给分~~~~~
呵呵