大野狼绘本:编写“宏”让Excel自动合并选中单元格内容

来源：百度文库 编辑：中财网 时间：2024/04/29 00:25:13

在用Excel整理表格数据时，希望能够自动合并选中区域内所有单元格的内容，但是Excel软件自带的合并功能无法满足这个要求，应该怎么办呢？

　　我们可以编写一个“宏”来实现，它可以巧妙地保存选区中所有单元格内的数据，通过循环赋值到一个变量中，最后再将结果输出到合并后的单元格内。

代码如下：

Sub 合并单元格()
'关闭屏幕更新和警告提示
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i%
'循环统计选中区域的单元格数据并将其合并到StrTotal中
For i = 1 To Selection.Count
StrTotal = StrTotal & Selection.Cells(i)
Next
'设置选区格式
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Value = "'" & StrTotal  '在合并数据前加 '号
End With
'恢复屏幕更新和警告提示
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

　　将上面的宏指定给一个自定义的工具栏按钮。接下来我们就可以测试一下结果了，如在几个不相邻的单元格内依次输入不同的数据(可以是文字、字母或数字)，最后选中所有的数据区域，单击刚才自定义的按钮，就可以看到合并的效果了。

excel中合并单元格 Excel的合并单元格 Microsoft Excel如何合并单元格? excel合并单元格的打印 EXCEL表格，怎么合并单元格？ excel合并单元格的问题 在EXCEL中建立一个表格，如何让选中的两个上下表格合并？ 在Excel中怎样合并单元格？ EXCEL中如何取消合并单元格 为什么Excel没有合并单元格功能啊？ excel中合并单元格的快捷键是什么？ EXCEL里合并单元格后怎么拆开? 在Excel中合并单元格的快捷键 在EXCEL中如何合并单元格？ EXCEL表中多行内容怎么合并单元格？ EXCEL中合并单元格有没有快捷键？ 在EXCEL中，怎样合并单元格？？？？ 怎么样在EXCEL中合并单元格,谢谢! Excel中一个单元格怎么合并拆分？ 求EXCEL里，用于合并任意单元格的快捷键的宏的代码！ 在EXCEL表中合并单元格后怎么操作可以让两个字的位置在打字呀？ excel里怎样让单元格自动按字的多少调整大小啊? 急~excel里怎样让单元格自动按字的多少调整大小啊? excel的文本单元格中的数字如何让他自动变为有千分符的格式