如何在excel中修改部分文字的字体
发布网友
共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
追答链接不存在,？不会吧，发图片来看看。
热心网友
加辅助列，先把序号后四位单独提取出来（RIGHT函数即可），按格式要求设置好，然后用CONCATENATE函数或&将所有字符按规定加到一个单元格内就行了吧
热心网友
软件上头不是有工具栏么？
