объединение нескольких ячеек в одну

[batto29]

Помогите пожалуйста с макросом объединения ячеек в одну
Есть 3 столбца с ячейками
Нужно в 3 столбец к имеющемуся тексту приписать значения из столбцов 1 и 2
То есть в 3 столбец: "значение 1 столбца" + "разделитель /" + "значение 2 столбца" + "значение 3 столбца" + "разделитель /"
Эта нужно сделать по всем строкам начиная со 2 в столбцах заканчивая концом документа
У меня есть рабочий скрипт для опенофиса но в экселе он не работает:

REM  *****  BASIC  *****

Sub Main

Sheet = thisComponent.Sheets(0)

For I = 2 to 1000
    PrefixCell = Sheet.getCellRangeByName("F" + I)
    
    If PrefixCell.String = "" then next
    
    TargetCell = Sheet.getCellRangeByName("G" + I)
    TargetCell.String = PrefixCell.String + TargetCell.String + ".jpg"
    TargetCell = Sheet.getCellRangeByName("H" + I)
    TargetCell.String = PrefixCell.String + TargetCell.String + ".jpg"
    TargetCell = Sheet.getCellRangeByName("I" + I)
    TargetCell.String = PrefixCell.String + TargetCell.String + ".jpg"
Next I

End Sub

[IgorGO]

for r = 2 to cells(rows.count, 1).end(xlup).row
  cells(r,3) = cells(r,1) & "/" & cells(r,2) & "/" & cells(r,3)
next

[batto29]

Сообщение от IgorGO

for r = 2 to cells(rows.count, 1).end(xlup).row
  cells(r,3) = cells(r,1) & "/" & cells(r,2) & "/" & cells(r,3)
next

Большое спасибо! это то что надо