我该如何简化它？

Question

所以我创建了一个脚本，它返回给定列中的一些重复值。我做了很多循环和ifs。我该如何简化它？同样重要的是在特定位置返回这些值，例如“john”（值），并在其旁边显示他的名字在给定列中的次数。

Sub test()
Dim y As Integer
Dim x As Integer
x = 0
y = 0

For i = 1 To 7
    For j = 1 To 7
        If Cells(i, 1) = Cells(j, 1) Then
            y = y + 1


        End If

    Next j

        For k = 1 To i
            If Cells(i, 1).Value <> Cells(k, 2).Value Then
            x = x + 1
            Else
            x = x

            End If
        Next k
        If x = i Then
            Cells(i, 2).Value = Cells(i, 1).Value
            Cells(i, 3).Value = y
        End If
    x = 0
    y = 0
Next i


End Sub