Нумерация значений в ячейке при совпадении.

[krot12348]

Текстовые данные вводятся в столбик "В", например слово "Якорь",
если в предыдущей ячейке есть это слово,оно должно принять вид "Якорь №1" а вводимое "Якорь №2" ,
следующее если совпадает "Якорь №3" и т.д. В столбике могут быть совпадения в разных местах, и их номера должны начинаться с 1.
На форуме такого примера не нашёл, с чего начать даже не знаю.
Если такое вообще возможно прошу помощи у знатоков .

[Aleksandr H.]

самый простой вариант

[krot12348]

Aleksandr H., Спасибо большое за ответ, но тут данные идут в строку, а надо в колонку,
и нет нумерации первого значения, а третье значение при совпадении идёт уже с двумя номерами.
Можно и ручками номера вставлять, но это жутко долго, много значений. Надо через VBA ,этот ужасно умный язык.
Пока что лажу по форуму, может что нибудь попадётся похожее.

[Aleksandr H.]

Как ето "в строку"? В столбце В пишите свои якоря, в С формула будет нумеровать

нет нумерации первого значения, а третье значение при совпадении идёт уже с двумя номерами.

как ето?

Где ваш файл с примером что хотите получить?

Надо через VBA

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim TextCount As Integer
    Dim i As Integer
    Dim Count As Integer
    Dim text As String
    Application.EnableEvents = False
    Set KeyCells = Range("B1:B100")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
        Is Nothing Then
        Count = 1
        For i = 1 To Target.Row - 1
            If Range("B" & i).Value2 <> "" Then
                text = Split(Trim$(Range("B" & i).Value2), " №")(0)
                If text = Target Then Count = Count + 1
            End If
        Next i
        Target.Value = Target.Value & " № " & Count
    End If
    Application.EnableEvents = True
End Sub

[krot12348]

Aleksandr H., Прошу прощения, руки кривые у меня, не сразу разобрался.
Скриншот 24-12-2020 134710.jpg
Тока вот номера "Якорей" в желтом цвете должны быть №1 и №2, такое вомжно сделать.

[krot12348]

Aleksandr H., Ты метеор, уже код написал, спасибо большое, тока вот руки у меня как я писал выше кривые , не работает он у меня.

[Aleksandr H.]

Тока вот номера "Якорей" в желтом цвете должны быть №1 и №2, такое вомжно сделать.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim TextCount As Integer
    Dim i As Integer
    Dim Count As Integer
    Dim text As String
    On Error GoTo Erl
    Application.EnableEvents = False
    
    Set KeyCells = Range("B1:B100")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
        Is Nothing Then
        Count = 1
        For i = Target.Row - 1 To 1 Step -1
            If Trim$(Range("B" & i).Value2) <> "" Then
                text = Split(Trim$(Range("B" & i).Value2), " №")(0)
                If text = Target.Value2 Then
                    Count = Count + 1
                Else
                    Exit For
                End If
            End If
        Next i
        Target.Value = Target.Value & " № " & Count
    End If
Erl:
    Application.EnableEvents = True
End Sub

[krot12348]

Aleksandr H., Благодарю за помощь, я такое никогда не смастерил бы ,код работает на ура,
как и было задумано. Спасибо что не отказал, и за терпение.

[Aleksandr H.]

Сообщение от krot12348

я такое никогда не смастерил бы

волшебного пинка не было от и не мастерил.

[krot12348]

Всем привет, есть вопрос по скрипту в сообщении 7.
Скрипт работает отлично, нумерует рядом стоящие ячейки при совпадении,
но он также нумерует и одиночные ячейки без совпадений, чего хотелось бы избежать.
Прошу помочь справится с этой проблемой