Excel VBA选择并加粗3

发布网友发布时间：2023-09-22 12:24

我来回答

共3个回答

热心网友时间：2023-10-15 12:48

实现代码如下：

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

或：

Rows(Range("A65536").End(xlUp).Row).Font.Bold = True

BTW：很多属性在修改时不需要先select，多余的select只会降低代码的运行速度。

热心网友时间：2023-10-15 12:48

Range("A65536").End(xlUp).EntireRow.Font.Bold = True
或者
Rows(Range("A65536").End(xlUp).Row).Font.Bold = True

BTW：很多属性在修改时不需要先select，多余的select只会降低代码的运行速度。

热心网友时间：2023-10-15 12:49

x为行
Rows(X).Font.Bold = True

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com