Конкатенация по условию

[Ksiname]

Добрый день
Есть таблица со списком компонентов. Параметры компонентов заданы в разных столбцах. Нужно объединить все параметры из разных столбцов в один(Для приведённой таблицы первые четыре столбца). Для этого я пытался использовать конкатенацию. Особенность в том, что для параметры нужно объединить через "-". Но в случае если этот параметр у элемента пустой, то "-" добавлять не надо. И что-то тут у меня с этим проблемы. Задачу решил писать на VBA, что называется в лоб и что-то у меня возникли проблемы. Вот как пытался решить:
#

Sub Macross_select()

    Num_Row = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    Num = 2
    
    For i = Range.Cells(2, 1) To Range.Cells(Num_Row, 1)
        If Cells(Num, 2) = "" Then
            Cells(Num, 1) = Cells(Num, 1) & "-" & Cells(Num, 3) & Cells(Num, 4)
        ElseIf Cells(Num, 3) = "" Then
            Cells(Num, 1) = Cells(Num, 1) & "-" & Cells(Num, 2) & Cells(Num, 4)
        ElseIf Range.Cells(Cells(Num, 2), Cells(Num, 3)) = "" Then
            Cells(Num, 1) = Cells(Num, 1) & Cells(Num, 4)
        Else
            Cells(Num, 1) = Cells(Num, 1) & "-" & Cells(Num, 2) & "-" & Cells(Num, 3) & Cells(Num, 4)
        End If
        Num = Num + 1
    Next
 
End Sub

#

[Aleksandr H.]

Вариант

Sub Macross_select()

    num_row = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    Num = 2
    
    For i = 2 To num_row
        rez = Cells(i, 1) & "-" & Cells(i, 2) & "-" & Cells(i, 3) & "-" & Cells(i, 4)
        Do While InStr(rez, "--") > 0
            rez = Replace(rez, "--", "-")
        Loop
        Do While Left(rez, 1) = "-"
            rez = Mid(rez, 2)
        Loop
        Do While Right(rez, 1) = "-"
            rez = Mid(rez, 1, Len(rez) - 1)
        Loop
        Cells(i, 8) = rez
    Next
 
End Sub

[IgorGO]

Sub JoinParametrs()
  Dim r&, s$
  For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    s = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Cells(r, 1).Resize(1, 5).Value)), "-")
    Do While InStr(s, "--") > 0: s = Replace(s, "--", "-"): Loop
    Cells(r, 1) = iif(Right(s, 1) = "-",Left(s, Len(s)-1,s))
  Next
End Sub

[Ksiname]

Сообщение от Aleksandr H.

Вариант

Sub Macross_select()

    num_row = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    Num = 2
    
    For i = 2 To num_row
        rez = Cells(i, 1) & "-" & Cells(i, 2) & "-" & Cells(i, 3) & "-" & Cells(i, 4)
        Do While InStr(rez, "--") > 0
            rez = Replace(rez, "--", "-")
        Loop
        Do While Left(rez, 1) = "-"
            rez = Mid(rez, 2)
        Loop
        Do While Right(rez, 1) = "-"
            rez = Mid(rez, 1, Len(rez) - 1)
        Loop
        Cells(i, 8) = rez
    Next
 
End Sub

Заработало, спасибо большое