Объеденить ячейки с разными стилями шрифта

[doober]

Приветствую всех

вот такая задача возникла.Исходное форматирование должно быть сохранено
обрабатывается порядка 20 файлов типа книга 1,
результат в Книга 2.В Книга 1 порядка 300 ячеек так надо обработать.даже не представляю,как сделать по шустрому

[SAS888]

даже не представляю,как сделать по шустрому

Для того, чтобы получить информацию о форматировании ячеек - потребуется открывать каждый файл, что не есть "шустро". Другого варианта не вижу. Поправьте меня, если я не прав.

[doober]

Все верно,не хочеться по символам перебирать.Думал,а вдруг есть еще вариант

[SAS888]

...не хочеться по символам перебирать...

Мне не совсем понятно, что Вам требуется? Пусть, требуется объединить значение ячеек "A1" и "B1" в ячейку "C1", при этом сохранить форматирование.
Для примера, сохраним имя, тип и размер шрифтов исходных ячеек. Можно так:

Sub Test()
    [C1] = [A1] & [B1]
    With [C1].Font
        .Name = [A1].Font.Name
        .Size = [A1].Font.Size
        .Bold = [A1].Font.Bold
    End With
    With [C1].Characters(Start:=Len([A1]) + 1, Length:=Len([B1])).Font
        .Name = [B1].Font.Name
        .Size = [B1].Font.Size
        .Bold = [B1].Font.Bold
    End With
End Sub

Т.е. помещаем сцепленный результат в требуемую ячейку, устанавливаем свойства ячейки = свойствам 1-й, затем, зная длины строк обоих ячеек, устанавливаем свойства для той части ячейки, которая содержит значение 2-й исходной.
Естественно, можно контролировать и устанавливать и другие (необходимые) свойства. Но при этом мы не перебираем все подряд символы.

[doober]

Спасибо,но не все переносится,как надо
Добавил еще свойств,но курсив и подчеркивание не проходит

Sub Test()
    [C1] = [A1] & [B1]
    With [C1].Font
        .Name = [A1].Font.Name
        .Size = [A1].Font.Size
        .FontStyle = [A1].Font.FontStyle
        .ThemeFont = [A1].Font.ThemeFont
        .Bold = [A1].Font.Bold
        .Underline = [A1].Font.Underline
        
    End With
    With [C1].Characters(Start:=Len([A1]) + 1, Length:=Len([B1])).Font
        .Name = [B1].Font.Name
        .Size = [B1].Font.Size
        .Bold = [B1].Font.Bold
        .FontStyle = [B1].Font.FontStyle
         .ThemeFont = [B1].Font.ThemeFont
        .Underline = [B1].Font.Underline
         
    End With
End Sub

[SAS888]

курсив и подчеркивание не проходит

Попробовал. Проходит. Выбрось из кода строки .ThemeFont =...

[doober]

попробуйте на моем,не хочет.
Не пойдет.значит будет две ячейки.А строки правее объеденю

[SAS888]

Предложенный вариант будет корректно работать только в том случае, когда объединяемые ячейки имеют разные, но постоянные свойства. Т.е. шрифт, подчеркивание, "жирность" и т.д. применены ко всей ячейке целиком. В Вашем примере внутри ячеек есть разные свойства шрифта. Действительно, кроме посимвольного контроля выхода нет.

[Aent]

Я бы попробовал сохранить в XML и потом обрабатывать его ...

[doober]

Благодарю за информацию.Я смотрел в сторону XML,обычна так храню настройки Проблемма,к счастью,решена.
Хозяин файлов решил подкорректировать неточности в своих файлах.Теперь ячейки объеденять нет необходимости