如何为指定表格列设置文本换行并自动适配？遇运行时错误424求解决

错误原因分析 #

• 语法错误导致对象引用失效：Rows.AutoFit是方法而非可赋值属性，原代码中写.Rows.AutoFit = True属于错误用法，会直接触发“对象必需”错误。
• 潜在的对象不存在风险：ws.ListObjects(2)可能指向当前活动工作表中不存在的表格（比如表格数量不足2个），也会引发对象引用错误。

修正后的代码 #

Set ws = ActiveSheet
' 先检查表格数量，避免对象引用错误
If ws.ListObjects.Count >= 2 Then
    Set tbl = ws.ListObjects(2)
    
    ' 第2列设置换行并自动适配行高
    tbl.ListColumns(2).Range.WrapText = True
    tbl.ListColumns(2).Range.EntireRow.AutoFit
    
    ' 第3列设置换行并自动适配行高
    tbl.ListColumns(3).Range.WrapText = True
    tbl.ListColumns(3).Range.EntireRow.AutoFit
Else
    MsgBox "当前工作表中至少需要2个表格对象"
End If

关键修正说明 #

• 移除AutoFit的赋值操作，直接调用.EntireRow.AutoFit方法实现行高自动适配。
• 增加表格数量检查逻辑，提前规避因表格不存在导致的对象引用错误。
• 原代码中的With ws块无实际作用，直接移除简化代码。

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