For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
Cells(i,  1 ).Value = Cells(i,  2 ).Value & " " & Cells(i,  3 ).Value
Next i

Dim i As Long, n As Long
Dim margRange As Range, iCel As Range
Dim myStr As String

For i =  10  To  20 
 
 Set margRange = Range("B" & i, "F" & i)
 
  For Each iCel In margRange
    myStr = myStr & iCel.Value & " "
  Next iCel
    Range("A" & i).Value = Left(myStr, Len(myStr) -  1 )
    myStr = ""
    
  n =  1 
  For Each iCel In margRange
    Range("A" & i).Characters(start:=n, Length:=Len(iCel)).Font.FontStyle = iCel.Font.FontStyle
    n = n + Len(iCel) +  1 
  Next iCel
  
Next i

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

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