首页 > 解决方案 > 更改文本颜色、粗体和大小

问题描述

我希望每个人都很好。我需要一些关于我的宏代码的帮助。我想要的是有一个宏代码,它将改变 a2-w2 或直到包含数据的最后一行的特定工作表上的字体大小、颜色和非粗体。我不确定需要做什么,我知道我可以将范围更改为 a2-w350,但是如果行数超过 350 怎么办。有没有办法更改它直到最后一行数据?

[Sub format()
with worksheet("Temp").Range("A2:w2")
.Font.size = 11
.Font.Color = vbBlack
.Font.Bold = False

end with
end sub]

标签: excelvba

解决方案


试试这个(未测试)

sub format()
with worksheet("Temp")
With .Range("A2:w" & .UsedRange.Rows.Count) 'Fixed

.Font.size = 11
.Font.Color = vbBlack
.Font.Bold = False

End With
end with
end sub

推荐阅读