Excel VBA复制工作簿设置Medium 2样式时触发错误‘450’

问题描述 #

执行VBA代码将指定工作表复制到新工作簿并设置为"蓝色Medium 2"格式时，在ActiveSheet.Cells(1, i).Style = "Medium 2"语句触发错误：wrong number of arguments or invalid property assignment（参数数量错误或属性赋值无效）。

错误原因分析 #

1. 样式类型混淆："Medium 2"是Excel内置的表格样式名称，而非单元格样式名称。原代码错误地使用Range.Style（用于设置单元格样式）来赋值表格样式名称，因该样式不存在于单元格样式集合中，导致赋值失败。
2. 对象指向不明确：代码多处依赖ActiveSheet操作，未明确指定新工作表对象，可能导致操作对象指向错误。
3. 变量未声明：代码中rngCell、r、c等变量未声明，违反变量声明规范，易引发隐性错误。

解决方法 #

要实现"蓝色Medium 2"格式，正确做法是将数据区域转换为Excel表格（ListObject），再指定对应的表格样式；同时修复代码中的对象指向和变量声明问题。

优化后完整代码 #

Option Explicit

Sub CopySheetAndEliminateColumns()
    Dim wsCopy As Worksheet
    Dim wsNew As Worksheet
    Dim rngData As Range
    Dim tblNew As ListObject
    Dim lngLstCol As Long, lngLstRow As Long
    Dim rngCell As Range
    Dim r As Long, c As Long
    
    ' 设置要复制的源工作表
    Set wsCopy = ThisWorkbook.Sheets("AnalysisRound1")
    
    ' 创建新工作簿并绑定目标工作表
    Set wsNew = Workbooks.Add(xlWBATWorksheet).Sheets(1)
    
    ' 复制源表值到新表
    wsCopy.Cells.Copy
    wsNew.Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    ' 删除冗余列
    wsNew.Range("F:I,K:L,N:N,P:P").Delete
    
    ' 自动调整列宽
    wsNew.Cells.EntireColumn.AutoFit
    
    ' 为非空数据行添加边框
    Application.ScreenUpdating = False
    
    lngLstRow = wsNew.UsedRange.Rows.Count
    lngLstCol = wsNew.UsedRange.Columns.Count
    
    For Each rngCell In wsNew.Range("A2:A" & lngLstRow)
        If rngCell.Value <> "" Then
            r = rngCell.Row
            c = rngCell.Column
            With wsNew.Range(wsNew.Cells(r, c), wsNew.Cells(r, lngLstCol)).Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
        End If
    Next rngCell
    
    ' 转换为表格并应用Medium 2样式
    Set rngData = wsNew.Range("A1").CurrentRegion
    Set tblNew = wsNew.ListObjects.Add(Source:=rngData, XlListObjectHasHeaders:=xlYes)
    tblNew.TableStyle = "TableStyleMedium2" ' 内置表格样式的标准名称
    
    Application.ScreenUpdating = True
End Sub

关键修复点 #

• 添加Option Explicit强制变量声明，避免未声明变量引发的隐性错误。
• 所有操作均绑定wsNew对象，彻底避免ActiveSheet的指向歧义。
• 使用ListObject创建表格，通过TableStyle属性指定正确的内置表格样式名称（TableStyleMedium2），实现"蓝色Medium 2"格式效果。
• 移除了错误的单元格样式赋值代码，改用表格样式满足需求。

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