有没有办法将字体分配给范围？
假设我有一个对象 myFont。我可以写：
with Range("A1").Font
.Bold=myFont.Bold
.Size=myFont.Size
same with other properties
end with
但有很多字体属性。有没有办法做类似的事情
范围（“A1”）.Font = myFont？
没有一句话可以做你想做的事。下面是一个可能的快捷方式，但您实际上仍在迭代每个属性......
Dim p, myFont, rng As Range
'populate myFont, rng
For Each p In Array("Bold", "Color", "Size") 'for example
CallByName rng.Font, p, VbLet, CallByName(myFont, p, VbGet)
Next p
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
