vba，拼接多个非空单元格内容

如果需要拼接多个非空单元格内容，可以在拼接字符串时使用 If 语句判断单元格是否为空，如果非空则将其内容拼接到字符串中。

以下是使用 & 运算符的示例代码：

Sub ConcatenateNonEmptyCells()
    Dim result As String
    result = ""
    If Range("A1") <> "" Then result = result & Range("A1")
    If Range("B1") <> "" Then result = result & Range("B1")
    If Range("C1") <> "" Then result = result & Range("C1")
    Range("D1") = result '将结果赋值给 D1 单元格
End Sub

以下是使用 Concatenate 函数的示例代码：

Sub ConcatenateNonEmptyCells()
    Dim result As String
    result = ""
    If Range("A1") <> "" Then result = Application.WorksheetFunction.Concatenate(result, Range("A1"))
    If Range("B1") <> "" Then result = Application.WorksheetFunction.Concatenate(result, Range("B1"))
    If Range("C1") <> "" Then result = Application.WorksheetFunction.Concatenate(result, Range("C1"))
    Range("D1") = result '将结果赋值给 D1 单元格
End Sub

这两种方法都可以实现拼接多个非空单元格的内容，只需要根据实际需求选择其中一种即可。