vba，拼接不确定个数的非空单元格内容

如果需要拼接不确定个数的非空单元格内容，可以使用 For 循环遍历需要拼接的单元格，判断单元格是否非空，如果非空则将其内容拼接到字符串中。

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

Sub ConcatenateNonEmptyCells()
    Dim result As String
    result = ""
    For i = 1 To 3 '需要拼接的单元格数量，此处为 3
        If Range("A" & i) <> "" Then result = result & Range("A" & i)
    Next i
    Range("D1") = result '将结果赋值给 D1 单元格
End Sub

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

Sub ConcatenateNonEmptyCells()
    Dim result As String
    result = ""
    For i = 1 To 3 '需要拼接的单元格数量，此处为 3
        If Range("A" & i) <> "" Then result = Application.WorksheetFunction.Concatenate(result, Range("A" & i))
    Next i
    Range("D1") = result '将结果赋值给 D1 单元格
End Sub

这两种方法都可以实现拼接不确定个数的非空单元格内容，只需要将需要拼接的单元格数量修改为实际情况即可。