Супер !!! Как раз то, что нужно. Огромное спасибо. Если позволите, еще вопрос, а макрос может сам искать подобные текстовые значения ? В книге очень много разных строк с повторяющимися значениями.    
 
П.С. еще раз огромное спасибо очень помогли :)

{quote}{login=onehin}{date=05.04.2011 06:26}{thema=}{post}... думал полностью автоматизировать процесс поиска и замены всех повторов на уникальные значения.{/post}{/quote}  
... можно попробовать Туитуи2 :)(наверное, лишнего накрутил)  
 
Sub tyutyu2()  
Dim x, y(), s, i&, j&, fnd As Range, wsh As Worksheet  
x = ActiveSheet.UsedRange.Value  
ReDim y(1 To ActiveSheet.UsedRange.Cells.Count, 1 To 2)  
With CreateObject("Scripting.Dictionary")  
   .CompareMode = 1  
   For Each s In x  
       If Len(s) Then  
           If Not .Exists(s) Then  
               i = i + 1: .Item(s) = i  
               y(i, 1) = s: y(i, 2) = 1  
           Else  
               j = .Item(s): y(j, 2) = y(j, 2) + 1  
           End If  
       End If  
   Next  
End With  
 
For Each wsh In ThisWorkbook.Worksheets  
   For i = 1 To UBound(y)  
       If Len(y(i, 1)) Then  
           If y(i, 2) > 4 Then  
               With wsh.UsedRange  
                   Set fnd = .Find(y(i, 1), LookAt:=xlWhole)  
                   j = 0  
                   If Not fnd Is Nothing Then  
                       Do  
                           j = j + 1: fnd.Value = y(i, 1) & j  
                           Set fnd = .FindNext(fnd)  
                       Loop While Not fnd Is Nothing  
                   End If  
               End With  
           End If  
       Else  
           Exit For  
       End If  
   Next i  
Next wsh  
End Sub

Просто, чтобы уж добить :)  
См. в файле.