Excel VBA在64位Office中触发Run-time error 450问题咨询

这段代码本身和64位Office没有直接兼容性问题，报错并非因为64位环境导致代码失效，主要是以下两类原因：

• 内置样式名称不匹配：不同语言版本的Office内置样式名称不同。比如英文Office的"Percent"，在中文版本中对应"百分比"，如果64位电脑是中文Office，直接赋值"Percent"会找不到对应样式，触发参数错误。
• Selection对象异常：执行Columns("AK:AK").Select后，Selection可能并非预期的Range对象（比如工作表处于保护状态、焦点不在当前工作表等），导致赋值Style时出错。

优化后的代码方案 #

避免使用Select/Selection，直接操作Range对象，同时兼容多语言环境：

' 方案1：根据Office语言使用对应样式名
Columns("AK:AK").Style = "百分比" ' 中文Office使用
' Columns("AK:AK").Style = "Percent" ' 英文Office使用

' 方案2：通过内置样式ID获取（兼容所有语言版本）
Columns("AK:AK").Style = ThisWorkbook.Styles(3).Name

额外排查建议 #

• 确认64位Office的语言版本，核对内置样式的正确名称。
• 增加样式存在性判断，避免因样式缺失报错：

On Error Resume Next
Dim percentStyle As Style
Set percentStyle = ThisWorkbook.Styles("Percent")
On Error GoTo 0

If percentStyle Is Nothing Then
    Columns("AK:AK").Style = "百分比"
Else
    Columns("AK:AK").Style = "Percent"
End If

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