Добавление тегов

[Serge 007]

Т.е. мой вариант не подошел?

[sergiksergik]

Спасибо за помощь, но не подошел. Руками добавить тег быстрее получится.
Спасибо.

[motorway]

А мой вариант почему не хотите?

[EugeneS]

можно, например, так, см. вложение

Нажмите кнопку "Tag text"

[Aent]

'Вариант с обработкой ":"
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Dim v As Variant
    Dim s As String
    Dim i As Long, j As Long
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each r In Target
       s = Replace(CStr(r.Value), vbCrLf, vbLf)
       s = Replace(CStr(r.Value), vbCr, vbLf)
       v = Split(s, vbLf)
       For i = LBound(v) To UBound(v)
           j = InStr(v(i), ":")
           If j > 0 Then
              v(i) = "<b>" & Left(v(i), j) & "</b>" & Mid$(v(i), j + 1)
           End If
       Next i
       r.Value = Join(v, vbLf)
    Next r
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub


'Альтернативный вариант со списком ключевых слов в ранге Keywords
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Dim v As Variant
    Dim s As String
    Dim i As Long, j As Long
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ReDim kw([Keywords].Cells.Count)
    i = 0
    For Each r In Range("Keywords")
       kw(i) = Trim$(r.Value)
       i = i + 1
    Next r
    
    For Each r In Target
       s = Replace(CStr(r.Value), vbCrLf, vbLf)
       s = Replace(CStr(r.Value), vbCr, vbLf)
       v = Split(s, vbLf)
       For i = LBound(v) To UBound(v)
           For j = LBound(kw) To UBound(kw)
               s = Replace(v(i), kw(j), "<b>" & kw(j) & "</b>", 1, 1)
               If s <> v(i) Then
                  v(i) = s
                  Exit For
               End If
           Next j
       Next i
       r.Value = Join(v, vbLf)
    Next r
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Естественно, в книгу (в код листа) вставляйте только один вариант.
Во 2-м варианте предполагается что ":" часть ключевого слова.
Вместо vbLf в Join вам возможно целесообразнее сразу писать "<br>".

[Serge 007]

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

Спасибо за помощь, но не подошел. Руками добавить тег быстрее получится.

Т.е. как это руками быстрее?!
Добавление тегов для всего столбца (65000 записей) у меня занимает несколько секунд. Вы руками делаете это быстрее?!

[sergiksergik]

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

можно, например, так, см. вложение

Нажмите кнопку "Tag text"

Спасибо. Я так понял действует так:
первое слово с : в строке выделяет тегом.
При копировании большого текста,
Пример.

Описание: Фильм строится по принципу линейного разворачивания семи новелл, у каждой из которых есть своя главная героиня, которая максимально целенаправленно занята съемом парня в одном из злачных заведений г. Киева.

часть текста переносится в новую строку и появляются в начале строки теги. Вот чтобы их убрать, было бы то что хотелось бы.

[sergiksergik]

Сообщение от Serge 007

Т.е. как это руками быстрее?!
Добавление тегов для всего столбца (65000 записей) у меня занимает несколько секунд. Вы руками делаете это быстрее?!

Просто в некоторых строчках не нужно будет тег вставлять.

[sergiksergik]

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

Естественно, в книгу (в код листа) вставляйте только один вариант.
Во 2-м варианте предполагается что ":" часть ключевого слова.
Вместо vbLf в Join вам возможно целесообразнее сразу писать "<br>".

Спасибо за вариант, пока времени нету. Я посмотрю по позже и отпишусь.
PS если можно пожалуйста в excel файле сделайте

[Serge 007]

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

Просто в некоторых строчках не нужно будет тег вставлять.

Это не проблема. Сделайте пример похожий на "то что надо получить" по структуре с указанием где и почему теги вставлять не надо и я напишу формулу под эти условия.