Excel让同一单元格内部分内容加粗

Excel让同一单元格内部分内容加粗有没有这样的函数啊？加粗前面4位。... Excel让同一单元格内部分内容加粗有没有这样的函数啊？加粗前面4位。展开

 我来答

2个回答

#热议# 应届生在签三方时要注意什么？

深圳市新思维软件有限责任公司
2017-01-20

深圳市新思维软件有限责任公司

深圳市新思维软件有限公司致力于为企业、组织提供专业的软件产品解决方案、软件集成，软件开发及服务。总部设于中国深圳，服务客户包括政府、公安、环保、教育、旅游、酒店、转型制造业等组织及企业。

向TA提问

关注

展开全部

用下面的代码去执行，在该表的代码窗口粘贴下面代码：
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

本回答由提问者推荐