问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

EXCEL中如何批量加粗单元格中部分文字内容 ?且单元格中有转行。

发布网友 发布时间:2022-05-06 12:42

我来回答

2个回答

热心网友 时间:2022-06-30 14:13

用下面的代码去执行,在该表的代码窗口粘贴下面代码:
Sub aa()
Dim c, n
For Each c In ActiveSheet.Range("a1:a100") '假设数据范围为a1:a100,根据需要修改
If c <> "" Then
n = Len(c.Value)
If n <= 4 Then
c.Characters(Start:=1, Length:=n).Font.FontStyle = "加粗"
Else:
c.Characters(Start:=n - 4 + 1, Length:=4).Font.FontStyle = "加粗"
End If
End If
Next c
End Sub
右击表名 》查看代码,可以进入该表代码窗口,粘贴后,点击代码窗口上面的小绿色三角按钮

Sub aa()
Dim c, n
For Each c In ActiveSheet.Range("a1:a100") '假设数据范围为a1:a100,根据需要修改
If c <> "" Then
n = Len(c.Value)
If n <= 5 Then
c.Characters(Start:=1, Length:=n).Font.FontStyle = "加粗"
Else:
c.Characters(Start:=n - 5 + 1, Length:=5).Font.FontStyle = "加粗"
End If
End If
Next c
End Sub追问这个不行,因加粗的内容是相同的,但位置不一样。谢谢

热心网友 时间:2022-06-30 14:13

要加粗的部分有规律吗追问加粗的是相同的文字,但单元格中有转段,内容也不相同。谢谢!

追答Sub s()
    n = Cells(Rows.Count, 2).End(3).Row
    For I = 1 To n
        T = Cells(I, 2)
        k = 1
        p = InStr(k, T, ":", vbTextCompare)
        Do While (p <> 0) And (k <> 0)
            Cells(I, 2).Characters(k, p - k).Font.FontStyle = "加粗"
            k = InStr(p, T, Chr(10), vbTextCompare)
            If k Then p = InStr(k, T, ":", vbTextCompare)
        Loop
    Next
End Sub

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
同龄人早发育好还是晚发育好 小孩晚熟正常吗? 女孩子身体发育的早晚跟童子身有关系吗? 自喷漆如何晾干 自喷漆一般几分钟能干 自动静电喷塑流水线 玫瑰茉莉薄荷茶有什么功效 平面磨床哪家的好 十大名牌平面磨床 手机病毒查杀软件推荐选择最好的手机病毒查杀软件 平安普惠借款10万还了10万六千八,逾期还要罚息怎么办? 人活着头生蛆虫视频是真的吗 excel表格怎么批量加粗字体 清徐交警违章处理 野红梅表情十分的丰富对于她的表情怎么看? 为什么我的抖音作品只有我的粉丝点赞评论外面的野粉丝怎么没有看见呢? 这两张图怎么在抖音出现的? 梦见一个和我挺好的姐妹要结婚了在梦里我们吵了起来 我是学习动漫设计制作专业的、现在要分专业方向,二维和三维。我选择那个那~?? 想干动画,是学三维的好还是学二维的好 请问别的公司给了我们公司一个转账支票,上面没写收款人,我应该如何办 开出一张转账支票未填写收款人该如何做帐? 请问公对私的转账支票没有填写用途和收款人怎么把钱转到自己帐? 孕妇梦见干姐妹结婚是什么意思 公司遗失一本空白的转帐支票.怎么办? 学动画好就业吗,是学二维还是三维呢 转账支票没有填写收款人。。。急、、、 三维动画好还是二维动画? 支票上没有写付款行名称及出票人账号可以自己写上去吗 别的公司给我们公司开了一张支票,没写转账支票,应该是普通支票,那么我是要去他们公司的开户行还是? 宫颈癌化疗几次多少钱 excel中查找数据相同的部分并加粗? 请问宫颈癌放化疗效果怎么样?费用大概要多少? 我是活人,为啥我身上都是蛆?活人也生蛆吗??? 宫颈癌化疗一次需要多少钱 宫颈癌术后化疗和放疗的费用 电脑上的浏览器看电影颜色不对是怎么回事 电脑看电影色彩不太好,怎么调? 为什么我的电脑看电影的画面颜色不对啊 宫颈癌放化疗费用是多少? 我是医保,现在我是一名宫颈癌病人,我现在在化疗,请问我需要多少钱? 有谁知道子宫癌治疗费用和化疗一次多少钱 请问专家一般宫颈癌患者治疗费用一般是多少?手术和放化疗贵吗? 宫颈癌放化疗后复查用多钱 怎样将拍摄的jpg动态图片转化为gif格式或者其他? 代购回来的雅诗兰黛小棕瓶精华比国内专柜液体颜色要浅,是真的吗? 油炸豆腐块怎么做好 周公解梦水缸里有蛤蟆 我的手机是联想的为什么插上电信手机卡不能用? 联想S850e手机电信卡上不了网,怎么办?