使用宏将多个单元格合并为一个excel？

Question

我有一个类似的问题:

使用Excel中的VBA将2个单元格的内容合并到另一个第3单元格中

但我想在一列中组合一系列细胞,例如A2:A50.有时我有超过300个细胞合并为一个.值是文本.有没有办法修改这个宏,以便它可以在一个范围而不是只有两个单元格？

谢谢!

Answer 1

基于您引用的主题,我想您希望返回单元格所持有的所有值的连接,将所有值解释为字符串？

为此,您可以使用如下所示的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

这是你在找什么？

麦克风