相同Excel宏在Windows 10正常运行，Windows 11报400错误

你遇到的400错误是Excel VBA创建ListObject（表格）时的常见报错，结合设备和版本差异，可能的原因及解决方法如下：

可能原因1：目标工作表已存在同名表格"Table1" #

Excel不允许同一工作表内存在两个同名的ListObject。你的Win10设备上的工作簿没有这个表格，但Win11的工作簿中可能之前运行过宏、手动创建过同名表格，导致重复命名触发报错。

解决方法：
在创建表格前先检查并清理同名对象：

' 先处理已存在的同名表格
On Error Resume Next
ActiveSheet.ListObjects("Table1").Delete
On Error GoTo 0

' 再执行创建表格的代码
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A:$M"), , xlYes).Name = "Table1"

可能原因2：整列范围$A:$M存在格式/状态异常 #

直接使用整列作为数据源，在Excel 2309版本中可能因为以下情况触发错误：

• A:M列存在合并单元格，导致表格创建时无法识别有效数据结构
• 列中存在受保护的单元格或工作表处于保护状态
• 整列包含大量空行，触发版本特定的范围解析bug

解决方法：

1. 改用动态数据范围（仅包含实际有数据的行），避免整列的潜在问题：

Dim lastRow As Long
' 以A列为准找到最后一行数据
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
' 用实际数据范围创建表格
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:M" & lastRow), , xlYes).Name = "Table1"

2. 检查工作表是否处于保护状态，若已保护则先解除保护再执行宏；同时确保A:M列没有破坏结构的合并单元格。

可能原因3：Excel版本差异导致的bug #

你使用的Win10设备是Excel 2310，Win11是2309，微软可能在2310版本中修复了2309里ListObjects.Add方法的特定场景报错。

解决方法：
将Win11设备上的Excel升级到2310或更高版本，验证是否能解决该版本bug。

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