如何在excel中修改部分文字的字体

如上图需要将,序号和名称合并到格式输出单元格中序号的后四位前添加空格,后四位字体加大并加粗,然后换行,再显示名称请不要给我说手动一个个调整,太多了。最好不要用VBA,不懂... 如上图需要将,序号和名称合并到格式输出单元格中
序号的后四位前添加空格,后四位字体加大并加粗,然后换行,再显示名称

请不要给我说手动一个个调整,太多了。
最好不要用VBA,不懂那个,如果真要写请给出详细操作,谢谢!
在线等待,先给30分,满意后再给可再添加30分!
展开
 我来答
tlxwd
推荐于2016-02-08 · TA获得超过1148个赞
知道大有可为答主
回答量:1592
采纳率:66%
帮助的人:708万
展开全部

控件代码:

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

追问
说链接不存在呀
追答
链接不存在,?不会吧,发图片来看看。
jiqi503
2015-11-18 · TA获得超过1159个赞
知道小有建树答主
回答量:844
采纳率:66%
帮助的人:261万
展开全部
加辅助列,先把序号后四位单独提取出来(RIGHT函数即可),按格式要求设置好,然后用CONCATENATE函数或&将所有字符按规定加到一个单元格内就行了吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
荷兰猪0828
2015-11-18
知道答主
回答量:56
采纳率:0%
帮助的人:19.8万
展开全部
软件上头不是有工具栏么?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式