Excel 2019（Windows）VBA中Font对象赋值失败的原因咨询

错误1：运行时错误13（类型不匹配） #

执行语句Set myRange.Cells(1,2).Font = myFont时出错，核心原因是Font对象不支持直接的对象引用赋值：

• 虽然myFont和Range.Font都是Font类型的对象，但Range的Font属性是只读的对象引用——VBA不允许你通过Set把一个Font对象直接“绑定”到另一个Range的Font属性上。Font对象的设计是作为Range的附属属性集合，只能通过修改其内部的子属性（如Name、Size、Color）来调整样式，而非直接替换整个对象。

错误2：运行时错误438（对象不支持该方法或属性） #

执行Set myRange.Font = myFont时出错，原因是Range.Font属性不支持整体赋值操作：

• Range对象的Font属性是一个特殊的“属性对象”，它只提供对字体样式属性的访问（读/写子属性），但没有暴露允许直接赋值整个Font对象的接口。和Range对象可以通过Set直接传递引用不同，Font对象是依附于Range的状态集合，无法通过Set完成整体替换。

正确的实现方式 #

如果需要复制字体样式，只能逐个复制Font对象的具体属性，示例代码：

' 单个单元格复制字体样式
With myRange.Cells(1, 2).Font
    .Name = myFont.Name
    .Size = myFont.Size
    .Bold = myFont.Bold
    .Italic = myFont.Italic
    .Color = myFont.Color
    ' 按需添加其他需要复制的字体属性
End With

' 批量复制字体样式到区域
Range("A1").Copy
myRange.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False ' 清除剪贴板状态

内容的提问来源于stack exchange，提问作者Michael Soyka