Поиск и замена в столбце

[Hugo121]

Эквивалентом чайника?
Вы бы лучше файл показали - лучше не рабочий, а сочините что-нибудь эдакое
И почему ищите в формулах?
Думаю всё можно сделать иначе.
Сколько всего строк в рабочем файле нужно обработать?

[VictorM]

'В поле А множество уникальных значений целых чисел
'В поле В множество повторяющихся значений из поля А
'Кол. строк А=В

без Ваших данных вряд ли получится что-то выяснить.
Код прогнал на 10-ти строках "левых" данных. Все прошло и ничего не понял

Вы бы лучше файл показали

[Taurus_UA]

В файле в ручном режиме прописан желаемый результат при i = 1 до 4
Можно и в ручную, но часто надо делать такую операцию.

[Taurus_UA]

Sub СменаID()
'В поле А множество уникальных значений целых чисел
'В поле В множество повторяющихся значений из поля А
'Кол. строк А=В
'? сменить все значения в поле А на значения попорядку начиная с 1 до пустого значения не потеряв численную связь с полем В

'
Dim a0, a1
For i = 1 To 10
    Range("A" & i).Select
    Selection.Copy
    a0 = Range("A" & i)    'храню исходное значение
  
    
    Range("A" & i).Select
        ActiveCell.FormulaR1C1 = i  'вставляю № по порядку
    
    Range("A" & i + 1).Select 'устанавливаю курсор на 1 стоку ниже
    
    Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, _
                            LookAt:=xlWhole, SearchOrder:=xlByColumns, _
                            SearchDirection:=xlNext, MatchCase:=False, _
                            SearchFormat:=False).Activate
    ActiveCell.Replace What:=i, Replacement:=a0, _
                            LookAt:=xlWhole, SearchOrder:=xlByColumns, _
                                                     MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False  'ячейка целиком (делаю поиск дубликата ячейки А1 для заменя на  предыдущее значение А1, предыдущее значение храниться в )
    
    Next
    
End Sub

Подскажите пожалуйста почему данный код пропускает i=5,6,8,9,10
Не смотря на то что свойства ячеек ничем не отличаються...

[Hugo121]

Кажется понял, что нужно
Думаю, код будет строк на 10...

Уложился

Sub tt()
    Dim i&: Dim a(): a = [a1].CurrentRegion.Value
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(a): .Item(a(i, 1)) = i: a(i, 1) = i: Next
        For i = 1 To UBound(a)
            If .exists(a(i, 2)) Then a(i, 2) = .Item(a(i, 2))
        Next
    End With
    [a1].CurrentRegion.Value = a
End Sub