求助调试VBA代码：仅一行数据时AutoFill方法执行报错

嘿，这个问题我之前帮朋友排查过，咱们很快就能搞定！

问题根源 #

你这段代码的问题出在当只有一行数据时，生成的填充范围是无效的：

• 当工作表只有一行数据时，UsedRange.Find找到的最后一行LZ会是1（比如只有表头行有内容）
• 这时候你要填充的范围是AM2:AM1——Excel的AutoFill不接受起始行号大于结束行号的反向范围，直接就抛出错误了
• 而多行数据时LZ肯定大于2，范围AM2:AMxx是正常的，所以代码能跑通

修复后的代码 #

我给你调整了代码，加了判断逻辑和错误处理，避免无效范围的情况：

Dim LZ As Long

' 先处理空表的特殊情况，防止Find方法报错
On Error Resume Next
LZ = ActiveSheet.UsedRange.Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
On Error GoTo 0

' 只有一行数据或空表时，直接退出（也可以根据需求加自定义逻辑）
If LZ <= 1 Then
    ' 如果需要给AM2赋值（比如复制表头），可以加这行：
    ' Range("AM2").Value = Range("AM1").Value
    Exit Sub
End If

' 确认范围有效后再执行AutoFill
Range("AM2").AutoFill Destination:=Range("AM2:AM" & LZ)

额外说明 #

• On Error Resume Next是为了防止工作表完全空的时候，Find方法找不到任何内容而报错
• 如果你的业务逻辑里，即使只有一行数据也需要给AM2赋值，就把注释掉的那行打开，根据实际需求调整
• 以后写AutoFill相关代码时，一定要先确认起始行和结束行的顺序，避免反向范围的坑

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