在Excel 里你同样可以运用自定义函数将行或列中的单元格合并到一个单元格中,并以空格或特殊符号分隔合并内容。
在键盘上按住 Alt 键并点击 F11 键打开Microsoft Visual Basic for Application 窗口。
点击插入 >> 模块,并将下面的VBA 复制到模块窗口里。
VBA: 将行/列中的单元格合并到一个单元格中,并以逗号分隔合并内容
Function Combine(WorkRng As Range, Optional Sign As String = “,”) As String
‘Update 20130815
Dim Rng As Range
Dim OutStr As String
For Each Rng In WorkRng
If Rng.Text <> “,” Then
OutStr = OutStr & Rng.Text & Sign
End If
Next
Combine = Left(OutStr, Len(OutStr) - 1)
End Function
3. 在空白单元格中输入公式 =Combine(A1:C1),并点击键盘上的 Enter 键。这样区域 A1:C1 的单元格内容都被合并到了一个单元格中,并以逗号分隔合并内容。如图:
- 拖拽 单元格 填充柄将此公式应用到其他区域。这样每行中的单元格都被合并到了一个单元格中,并以逗号分隔合并内容。如图:
提示:通过上面的自定义函数,你还能将每列中单元格的值合并到一个单元格中,你只需要把上面的代码复制到模块窗口里,再输入公式 =Combine(A1:A4)。
注意:你可以根据需要修改代码里的”’,”。比如你想要以空格分隔合并内容,你可以把”,”改为” “。
有用 已测试.