“合并后居中”按钮是Excel界面中一个非常方便的功能,很多人都喜欢使用合并单元格。然而,对合并单元格进行一些操作会带来一些问题,Excel会给出下图1所示的提示消息。
图1
这往往会让人感到困惑。
其实,Excel有一个隐藏着的替代选项,称为“跨列居中”,与合并单元格效果相同,如下图2所示。
图2
虽然两者看起来效果不同,但实质上是不同的,“跨列居中”不会导致上图1所示的错误信息提示。
单击“开始”功能区“对齐方式”(或者“字体”、“数字”)组右下角的对话框启动器,或者按“Ctrl 1”组合键。在弹出的“设置单元格格式”对话框中选择“对齐”选项卡,在“水平对齐”下拉列表中选择“跨列居中”,如下图3所示。
图3
如果已经有一个包含大量合并单元格的工作簿,如果要一个单元格一个单元格地改变其格式设置,没有必要,因为可以使用下面的VBA程序。
Sub ConvertMergedCellsToCenterAcross()
Dim c As Range
Dim mergedRange As Range
'检查当前是否为工作表
If TypeName(ActiveSheet) <>"Worksheet" Then Exit Sub
'遍历已使用的所有单元格
For Each c In ActiveSheet.UsedRange
'如果合并且单行
If c.MergeCells = True Andc.MergeArea.Rows.Count = 1 Then
'为合并单元格设置变量
Set mergedRange = c.MergeArea
'取消合并单元格并应用跨列居中
mergedRange.UnMerge
mergedRange.HorizontalAlignment =xlCenterAcrossSelection
End If
Next
End Sub
跨列居中不适用于跨行,因此,上面的VBA程序专门设计为不删除任何包含多行的合并单元格。
注:本文整理自exceloffthegrid.com,供有兴趣的朋友学习参考。
欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。