VBA设置ListColumn列宽触发Runtime 1004错误求助

问题概述 #

尝试编写Sub过程统一电子表格中两列的宽度（将空列宽度设为与含数据列一致），代码如下：

Set colSrc = tbl.ListColumns(colSrcIndex)
Set colDest = tbl.ListColumns(colDestIndex)
        
colWidth = colSrc.Range.ColumnWidth
      
colDest.Range.ColumnWidth = colWidth

运行时抛出Runtime 1004错误，提示“Unable to set the ColumnWidth property of the Range class”，尝试使用"A:A"格式、.EntireColumn、从ListColumn到ListObject再到Worksheet等方式均报错。

可能的原因及解决方案 #

1. 工作表或ListObject处于保护状态 #

如果目标工作表或表格（ListObject）被保护，会禁止修改列宽这类格式操作。解决方法是先解除保护，设置完成后恢复保护：

Sub MatchColumnWidths(tbl As ListObject, colSrcIndex As Integer, colDestIndex As Integer)
    Dim colSrc As ListColumn
    Dim colDest As ListColumn
    Dim colWidth As Double
    Dim isProtected As Boolean
    
    ' 记录工作表保护状态
    isProtected = tbl.Parent.ProtectContents
    ' 解除保护（若有密码需添加Password参数，如Unprotect Password:="1234"）
    If isProtected Then tbl.Parent.Unprotect
    
    Set colSrc = tbl.ListColumns(colSrcIndex)
    Set colDest = tbl.ListColumns(colDestIndex)
    
    colWidth = colSrc.Range.ColumnWidth
    colDest.Range.ColumnWidth = colWidth
    
    ' 恢复工作表保护
    If isProtected Then tbl.Parent.Protect ' 有密码则添加Password参数
End Sub

2. 目标列被隐藏 #

隐藏列无法直接设置ColumnWidth，需先取消隐藏再操作：

Sub MatchColumnWidths(tbl As ListObject, colSrcIndex As Integer, colDestIndex As Integer)
    Dim colSrc As ListColumn
    Dim colDest As ListColumn
    Dim colWidth As Double
    
    Set colSrc = tbl.ListColumns(colSrcIndex)
    Set colDest = tbl.ListColumns(colDestIndex)
    
    ' 取消目标列隐藏
    If colDest.Range.EntireColumn.Hidden Then
        colDest.Range.EntireColumn.Hidden = False
    End If
    
    colWidth = colSrc.Range.ColumnWidth
    colDest.Range.ColumnWidth = colWidth
End Sub

3. 改用工作表列直接操作 #

绕开ListColumn的Range引用，直接通过工作表的列对象设置宽度：

Sub MatchColumnWidths(tbl As ListObject, colSrcIndex As Integer, colDestIndex As Integer)
    Dim colWidth As Double
    Dim srcColNum As Integer
    Dim destColNum As Integer
    
    ' 获取源列和目标列的工作表列号
    srcColNum = tbl.ListColumns(colSrcIndex).Range.Column
    destColNum = tbl.ListColumns(colDestIndex).Range.Column
    
    ' 获取源列宽度
    colWidth = tbl.Parent.Columns(srcColNum).ColumnWidth
    
    ' 设置目标列宽度
    tbl.Parent.Columns(destColNum).ColumnWidth = colWidth
End Sub

4. 检查合并单元格或冻结窗格 #

• 如果目标列存在合并单元格，设置列宽会触发1004错误，需先取消合并再操作。
• 若工作表存在冻结窗格，也可能导致列宽设置失败，可先取消冻结（tbl.Parent.Windows(1).FreezePanes = False），设置完成后再恢复冻结。

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