求excel vba代码，当A列输入内容与输入单元格上面内容有重复时，按回车键后自动填入第一个重复

Question

求excel vba代码，当A列输入内容与输入单元格上面内容有重复时，按回车键后自动填入第一个重复单元格其他列的内容，如图片说明，谢谢

Answer 1

'Private Sub Worksheet_Change(ByVal Target As Range)
Sub TE()
For n = 2 To ActiveCell.Row - 1
If ActiveCell.Value = Cells(n, 1) Then
ActiveCell.Offset(0, 1) = Cells(n, 1).Offset(0, 1)
ActiveCell.Offset(0, 2) = Cells(n, 1).Offset(0, 2)
ActiveCell.Offset(0, 3) = Cells(n, 1).Offset(0, 3)
End If
Next
End Sub