excel - 在Excel中使用宏将多个单元格合并为一个单元格？

Question

我有一个与此类似的问题:

Merge the contents of 2 cells into another 3rd cell using VBA in Excel

但我想合并一列中的一系列单元格，例如 A2:A50。有时我有超过 300 个单元格需要合并为一个。值是文本。有什么方法可以修改这个宏，使其适用于一个范围而不是仅两个单元格？

谢谢!

Answer 1

基于the thread you are citing ，我猜您希望返回单元格保存的所有值的串联，将所有值解释为字符串？

为此，您可以使用如下所示的 VBA 宏:

Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
    Dim finalValue As String

    Dim cell As Excel.Range

    For Each cell In sourceRange.Cells
        finalValue = finalValue + CStr(cell.Value)
    Next cell

    ConcatinateAllCellValuesInRange = finalValue
End Function

举个例子，你可以这样调用它:

Sub MyMacro()
    MsgBox ConcatinateAllCellValuesInRange([A1:C3])
End Sub

这是您要找的吗？

迈克