EXCEL中如何在这段VBA代码中添加字体加粗的命令 – CSS – 前端 css手机适配media

这段改一下If i0 > 0 Then c.Characters(i0, Len(n)).Font.Color = vbRed: i = i0 + Len(n)

改成

If i0 > 0 Then

c.Characters(i0, Len(n)).Font.Color = vbRed: i = i0 + Len(n)

c.Characters(i0, Len(n)).Font.bold=true

end if