Excel一键实现将多个单元格的内容组合在一起

1、本教程以下图数据为例。

4、切换到VBA窗口，插入一个模块，复制粘贴以下代码：Sub zuhe()Dim rng As RangeDim k$, m$For Each rng I荏鱿胫协n Selection m = rng.Value k = k & mNextMsgBox k '若不想以弹窗形式输出结果，可以改这条代码End Sub

6、为圆形形状指定宏。

7、选中需要组合的单元格区域，点击圆形按钮即可。