如何在excel中修改部分文字的字体
如上图需要将,序号和名称合并到格式输出单元格中序号的后四位前添加空格,后四位字体加大并加粗,然后换行,再显示名称请不要给我说手动一个个调整,太多了。最好不要用VBA,不懂...
如上图需要将,序号和名称合并到格式输出单元格中
序号的后四位前添加空格,后四位字体加大并加粗,然后换行,再显示名称
请不要给我说手动一个个调整,太多了。
最好不要用VBA,不懂那个,如果真要写请给出详细操作,谢谢!
在线等待,先给30分,满意后再给可再添加30分! 展开
序号的后四位前添加空格,后四位字体加大并加粗,然后换行,再显示名称
请不要给我说手动一个个调整,太多了。
最好不要用VBA,不懂那个,如果真要写请给出详细操作,谢谢!
在线等待,先给30分,满意后再给可再添加30分! 展开
3个回答
展开全部
控件代码:
Private Sub CommandButton1_Click()
Dim i%, r%, L1%, rng1 As Range, rng2 As Range, str$
r = [a65536].End(3).Row
For i = 1 To r
Set rng1 = Cells(i, 1)
Set rng2 = Cells(i, 2)
L = Len(rng1)
str = Left(rng1, L - 4) & " " & Right(rng1, 4)
Cells(i, 3) = str & Chr(13) & Chr(10) & rng2
With Cells(i, 3).Characters(Start:=L - 2, Length:=4).Font
.FontStyle = "加粗"
.Size = Cells(i, 3).Font.Size + 2
End With
Next
End Sub
追问
说链接不存在呀
追答
链接不存在,?不会吧,发图片来看看。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询