Duplicate values in a range, using VBA

Sub asdf()
Dim i As Long, LastRow As Long
Dim temp As Variant, x As Long

LastRow = Columns(1).Find("*", searchdirection:=xlPrevious).Row

For i = 1 To LastRow
    x = WorksheetFunction.CountIf(Range("A1:A" & LastRow), Cells(i, 1))
    If x > 1 Then
        If temp = "" Then
            temp = Cells(i, 1) & "=" & x
        Else
            If InStr(1, temp, Cells(i, 1)) = 0 Then
                temp = temp & "," & Cells(i, 1) & "=" & x
            End If
        End If
    End If
Next i

If temp = "" Then
    [B1] = 0
Else
    temp = Split(temp, ",")
    For i = LBound(temp) To UBound(temp)
        Cells(i + 1, 2) = temp(i)
    Next i
End If

End Sub

Sub asdf()
Dim i As Long, LastRow As Long
Dim temp As Variant, x As Long

'find last row with data in column A
'this is used as the stopping point of the list
LastRow = Columns(1).Find("*", searchdirection:=xlPrevious).Row

'assuming the data starts in row 1 and goes until the LastRow
'loop through the rows in the column
For i = 1 To LastRow
    'count the number of times the value of the cell appears in the range
    x = WorksheetFunction.CountIf(Range("A1:A" & LastRow), Cells(i, 1))
    
    'if it appears in the range more than 1 time...
    If x > 1 Then
        'add the value of the cell and the number of occurances to a string
        
        'if the string value is empty
        If temp = "" Then
            'just add the value/# of occur.
            temp = Cells(i, 1) & "=" & x
        'if the string value already contains text
        Else
            'check to see if the value of the cell is already in the list
            'if it is *not* in the list...
            If InStr(1, temp, Cells(i, 1)) = 0 Then
                'add the value/# of occur. onto the end of the string
                'each item separated by a comma
                temp = temp & "," & Cells(i, 1) & "=" & x
            End If
        End If
    End If
Next i

'once all of the values have been checked

'if the string variable is empty, no duplicates were found
If temp = "" Then
    'display a 0
    [B1] = 0
'if variable is *not* empty
Else
    'split string variable into array, separated by the commas in the string
    temp = Split(temp, ",")
    'loop through the items in the array
    For i = LBound(temp) To UBound(temp)
        'place the value/# of occur. in column B
        Cells(i + 1, 2) = temp(i)
    Next i
End If

End Sub

Sub MoreThanOnce()
Dim rCell As Range, rRng As Range, vKey, lrow As Long

Set rRng = Range("A2", Range("A" & Rows.Count).End(xlUp))

With CreateObject("Scripting.dictionary")
    .comparemode = vbTextCompare
    
    ' load the info
    For Each rCell In rRng
        If Not .exists(rCell.Value) Then _
            .Add rCell.Value, Application.WorksheetFunction.CountIf(rRng, rCell.Value)
    Next rCell

    ' Write the result in columns C:D
    lrow = 2
    For Each vKey In .keys
        If .Item(vKey) > 1 Then
            Cells(lrow, "C") = vKey
            Cells(lrow, "D") = .Item(vKey) - 1
            lrow = lrow + 1
        End If
    Next vKey
End With
End Sub