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

[ZerGO]

Всем доброго дня!

Помогите пожалуйста решить вот такую задачу:
На листе1 в ячейке А1 есть строка " Процессор AMD Athlon ™ II X2 240 (tray ADX240OCK23GQ / ADX240OCK23GM) AM3, 2.80GHz, HT 4000MHz, L2: 2x1024KB, 2 ядра, 45nm, 65W, tray "
Как ее разделить на две части и записать на лист2 следующим образом:
В ячейку В1 полужирный тест: " Процессор AMD Athlon ™ II X2 240 (tray ADX240OCK23GQ / ADX240OCK23GM) "
В ячейку С1 простой текст: " AM3, 2.80GHz, HT 4000MHz, L2: 2x1024KB, 2 ядра, 45nm, 65W, tray "

Гугл особых результатов не дал, потому буду благодарен любой информации что поможет решить задачу!

[Hugo121]

Было:

==============================================================
webley
разбивка ячейки A1 на две по признаку "нежирной" буквы:
Sub test()
For i = 1 To Len(Cells(1, 1))
If Cells(1, 1).Characters(Start:=i, Length:=1).Font.Bold = False Then
Cells(1, 2) = Left(Cells(1, 1), i - 1)
Cells(1, 3) = Right(Cells(1, 1), Len(Cells(1, 1)) - i + 1)
Exit For
End If
Next i
End Sub

==============================================================

[R Dmitry]

ИЛИ UDF

Function жирность(TXT As Range)
Dim i&
For i = 1 To Len(TXT.Value)
    With TXT.Characters(i, 1)
               If .Font.Bold Then жирность = жирность & .Text
    End With
 Next
End Function

[Казанский]

UDF, возвращает 2 значения, вводить в две соседние ячейки как формулу массива, Ctrl+Shift+Enter

Function ZerGO(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 = Array(Left(.Value, i - 1), Mid(.Value, i))
End With
End Function

[ZerGO]

Всем огромнейшие спасибо! Все способы работают.
Отдельное СПАСИБО Казанский, идеальный вариант решения задачи!

[ZerGO]

Ребята помогите пожалуйста! Не все так гладко!

Уважаемый Казанский, Ваш вариант почему то не всегда выдает значение. Может можно исправить?

Уважаемый R Dmitry, Ваш код хорошо справляется но увы только с полужирным. Может можно функцию для простого текста написать? Тогда будет две функции для полужирного и простого.

В файле два метода и проблемные ячейки.

Помогите пожалуйста!!!!!!

[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]

для 2003 не проверял

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

[Казанский]

Да, проблема в длине строки (>255). Сделал с помощью промежуточного текстового массива - работает в 2007, прошу попробовать в 2003.

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]

В 2003 работает.