Excel合并分散的数字和文本 快速拼接单元格内容

假设你有一张表格，每一行代表一个产品的信息，你需要将每一行的信息合并成一个字符串。可以使用&运算符或CONCATENATE函数，然后使用Excel的填充功能，将公式应用到所有行。

比如，你的数据在A列到D列，从第2行开始，那么在E2单元格输入公式=A2&" "&B2&", "&C2&" "&TEXT(D2,"0")，然后选中E2单元格，将鼠标移动到右下角，当鼠标变成黑色十字时，双击鼠标左键，Excel就会自动将公式应用到所有行。

或者，使用CONCATENATE函数：=CONCATENATE(A2," ",B2,", ",C2," ",TEXT(D2,"0"))，操作方法相同。

如果你的合并需求非常复杂，比如需要根据不同的条件选择不同的分隔符，或者需要从多个工作表中提取数据进行合并，那么使用VBA代码可能更加方便。

下面是一个简单的VBA代码示例，用于将A列到D列的数据合并到E列：

Sub 合并单元格()  Dim i As Long  Dim lastRow As Long  ' 获取A列最后一行  lastRow = Cells(Rows.Count, "A").End(xlUp).Row  ' 循环遍历每一行  For i = 2 To lastRow ' 假设数据从第二行开始    ' 合并单元格内容    Cells(i, "E").Value = Cells(i, "A").Value & " " & Cells(i, "B").Value & ", " & Cells(i, "C").Value & " " & Cells(i, "D").Value  Next iEnd Sub

这段代码首先获取A列的最后一行，然后循环遍历每一行，将A列到D列的数据合并到E列。你可以根据自己的需求修改这段代码，实现更复杂的合并逻辑。比如，你可以使用If...Then...Else语句来判断不同的条件，然后选择不同的分隔符。

要运行这段代码，你需要打开VBA编辑器（按下Alt + F11），然后在插入菜单中选择模块，将代码复制到模块中，然后按下F5键运行代码。

如果你希望合并后的数据能够随着原始数据的变化而自动更新，那么可以使用公式。Excel的公式会自动计算，当原始数据发生变化时，公式的结果也会自动更新。

但是，如果你使用的是VBA代码，那么合并后的数据不会自动更新。你需要手动运行VBA代码才能更新数据。如果你希望VBA代码能够自动运行，可以使用Excel的事件功能。

比如，你可以使用Worksheet_Change事件，当工作表中的数据发生变化时，自动运行VBA代码。

Private Sub Worksheet_Change(ByVal Target As Range)  ' 当A列到D列的数据发生变化时，自动运行合并单元格的代码  If Not Intersect(Target, Range("A:D")) Is Nothing Then    Call 合并单元格  End IfEnd Sub

这段代码首先判断发生变化的单元格是否在A列到D列，如果是，则调用合并单元格这个Sub过程。这样，当A列到D列的数据发生变化时，合并单元格这个Sub过程就会自动运行，更新合并后的数据。

请注意，使用Worksheet_Change事件可能会影响Excel的性能，特别是当数据量很大时。因此，建议谨慎使用。