如果单元格中的值与前一个单元格的值不同，如何插入%1；如果值相同，如何插入%2

Sub InsertPercentage()
    Dim lastRow As Long
    Dim currentValue As Variant
    Dim previousValue As Variant
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        currentValue = Cells(i, 1).Value
        previousValue = Cells(i - 1, 1).Value
        
        If currentValue <> previousValue Then
            Cells(i, 1).Value = currentValue & "%1"
        Else
            Cells(i, 1).Value = currentValue & "%2"
        End If
    Next i
End Sub