解决公式不能实现excel保留格式的方法

   2020-11-20 IP属地 浙江1130
核心提示:文章介绍使用VBA代码来实现excel保留格式,用普通公式合并文本excel不会保留格式。
内容提要:文章介绍使用VBA代码来实现excel保留格式,用普通公式合并文本excel不会保留格式。

这是群里的一个问题:单元格连接内容的同时如何做到excel保留格式。

具体的excel保留格式效果如下:A1单元格里面的“你”是加粗的,“们”未加粗;B1单元格里面的“好”为加粗。

excel保留格式的最终效果为C1单元格的效果。

实现这个效果,在excel工作表按下ALT+F11,打开VBE编辑器,插入――模块,复制下面的代码,将代码指定给按钮即可。

Subexcel保留格式()
DimxAsRange,n%,i%,m
[c1]=[a1]&[b1]
ForEachxIn[a1].Resize(1,3)
  Ifx.Column=1Thenm=0Elsem=m+Len(x.Offset(0,-1))
   Fori=1ToLen(x)
       n=m+i
       Debug.Printn
       [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
EndSub

 
反对 0举报收藏 0打赏 0评论 0
更多>相关评论
暂时没有评论,来说点什么吧
更多>同类办公
推荐图文
推荐办公
点击排行