如何在Excel中将列中的行合并到一个单元格中？

Question

例如A1:IA2:amA3:aA4:boy 我想将它们全部合并到一个单元格“ Iamaboy”中此示例显示4个单元格合并为1个单元格，但是我有很多单元格（超过100个），我不能使用A1 & A2 & A3 & A4我的方法一一键入它们吗？

Answer 1

我向您展示了我的ConcatenateRange VBA函数（感谢Jean的命名建议！）。它将需要一个单元格范围（任何尺寸，任何方向等），并将它们合并到一个字符串中。作为可选的第三个参数，您可以添加分隔符（例如空格或带逗号的逗号）。

在这种情况下，您可以编写以下代码来使用它：

=ConcatenateRange(A1:A4)

Function ConcatenateRange(ByVal cell_range As range, _

                    Optional ByVal separator As String) As String

Dim newString As String

Dim cell As Variant

For Each cell in cell_range

    If Len(cell) <> 0 Then

        newString = newString & (separator & cell)

    End if

Next

If Len(newString) <> 0 Then

    newString = Right$(newString, (Len(newString) - Len(separator)))

End If

ConcatenateRange = newString

End Function

Answer 2

如果您希望在不使用VBA的情况下执行此操作，则可以尝试以下操作：

1. 将数据存储在单元格A1：A999中（或诸如此类）

2. 将单元格B1设置为“ = A1”

3. 将单元格B2设置为“ = B1＆A2”

4. 将单元格B2一直复制到B999（例如，通过复制B2，选择单元格B3：B99并粘贴）

现在，单元格B999将包含您要查找的串联文本字符串。