循环遍历单元格并在存在空白单元格时进行连接

Question

我想循环遍历 A 列中的单元格，如果单元格为空，则从 B 列执行 C 列中的 CONCATENATE 函数。我有此代码，但它不起作用。任何帮助都将不胜感激。

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