简单来说,如果利用VBA代码进行合并单元格可以保留Excel原有的格式,但是如果用普通公式合并excel就没办法保留原来的格式。
请看下图是excel保留格式之后:A1单元格里面的“你”是加粗的,“们”未加粗;B1单元格里面的“好”为加粗。
excel保留格式的最终效果为C1单元格的效果。
实现这个效果,在excel工作表按下ALT F11,打开VBE编辑器,插入——模块,复制下面的代码,将代码指定给按钮即可。
Sub excel保留格式()
Dim x As Range, n%, i%, m
[c1] = [a1] & [b1]
For Each x In [a1].Resize(1, 3)
If x.Column = 1 Then m = 0 Else m = m Len(x.Offset(0, -1))
For i = 1 To Len(x)
n = m i
Debug.Print n
[c1].Characters(n, 1).Font.ColorIndex = x.Characters(i, 1).Font.ColorIndex
[c1].Characters(n, 1).Font.Bold = x.Characters(i, 1).Font.Bold
Next
Next
End Sub
原创文章,作者:baidouya,如若转载,请注明出处:http://www.baidouya.com/20200329-4254.html