Копирование части текста(выделенного полужирным) из ячейки

[vikttur]

Всего несколько функций листа.

[Hugo121]

Схитрил
А если скобка будет в середине жирной части? Тогда искать пробел после " (LX."?

[vikttur]

Если бы у бабушки были я... ну, эти... усы! то она было бы дедушкой
Формула составлена по данным в примере. Если будет не так, будет по другому

[ZerGO]

Итак! С полными, от радости, штанами подведу итоги

Есть три работающих варианта:


Первый вариант ув. Hugo121
для полужирного
Function ZerGO_B(r As Range)
Dim i&
With r(1)
For i = 1 To Len(.Value)
If Not .Characters(i, 1).Font.Bold Then Exit For
Next
ZerGO_B = Left(.Value, i - 1)
End With
End Function

для простого
Function ZerGO_S(r As Range)
Dim i&
With r(1)
For i = 1 To Len(.Value)
If Not .Characters(i, 1).Font.Bold Then Exit For
Next
ZerGO_S = Mid(.Value, i)
End With
End Function

Две отдельные функции работают хорошо!


Второй вариант ув. R Dmitry
для полужирного
Function жирность(TXT As Range)
Dim i&
For i = 1 To Len(TXT.Value)
With TXT.Characters(i, 1)
If Not .Font.FontStyle = "обычный" Then жирность = жирность & .Text
End With
Next
End Function

для простого
Function нежирность(TXT As Range)
Dim i&
For i = 1 To Len(TXT.Value)
With TXT.Characters(i, 1)
If .Font.FontStyle = "обычный" Then нежирность = нежирность & .Text
End With
Next
End Function

тоже справляются с задачей.

Третий, и на мой взгляд самый оптимальный, вариант ув. Казанский
для полужирного и простого
Function ZerGO(r As Range)
Dim i&, x$(0 To 1)
With r(1)
For i = 1 To Len(.Value)
If Not .Characters(i, 1).Font.Bold Then Exit For
Next
x(0) = Left$(.Value, i - 1)
x(1) = Mid$(.Value, i)
ZerGO = x
End With
End Function

одна функция которая отлично справляется с задачей и экономит массу времени разделяя полужирный и простой текст по разным ячейкам.

ОГРОМНЕЙШИЕ ВАМ СПАСИБО! За оперативность и по траченое, не зря, время, побольше б таких людей на земле!!!!

П.С. надеюсь ваш труд поможет многим!! Еще рас благодарствую!!!

[Hugo121]

Первый вариант - это тоже Казанского, я просто его нагло на два поделил, чтоб работало на длинных строках

[R Dmitry]

If .Font.FontStyle = "обычный" Then нежирность =??жирность & .Text
вот тут ошибочка если что