Sub test()
 Dim i As Long
 Dim r1 As Long
 Dim r2 As Long
 Dim c1 As Integer
 Const simvol = "-"
 
 With Selection
   r1 = .Rows( 1 ).Row
   r2 = r1 + .Rows.Count -  1 
   c1 = .Columns( 1 ).Column
 End With
 
 For i = r2 To r1 +  1  Step - 1 
   If Right(Trim(Cells(i -  1 , c1).Value),  1 ) = simvol Then
    Cells(i -  1 , c1).Value = Cells(i -  1 , c1).Value & Cells(i, c1).Value
    Rows(i).Delete
   End If
 Next i

End Sub

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

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

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

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

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