Проход по ячейкам и объединение при наличии пустых ячеек

Question

Я хотел бы перебрать ячейки в столбце A, и если ячейка пуста, выполнить функцию CONCATENATE в столбце C из столбца B. У меня есть этот код, но он не работает. Любая помощь будет принята с благодарностью.

Sub ConcateBlank()

For i = 3 To 400
    If Cells(i, 1) = "" Then
    Cells(i, 3) = CONCATENATE(Cells(i, 2), " ", Cells(i + 1, 2))
    End If
Next i
End Sub

Answer 1

Этот работает без CONCATENATE (возможно, быстрее):

Sub ConcateBlank()

For i = 3 To 400
    If Cells(i, 1) = "" Then
        Cells(i, 3) = Cells(i, 2) & " " & Cells(i + 1, 2)
    End If
Next i
End Sub