VBA拖拽填充单元格宏报错‘AutoFill Method or Range Class failed’原因排查

错误原因分析 #

• 源范围与目标范围不匹配
  AutoFill方法要求源单元格/范围必须是目标范围的子集，且位于目标范围的顶端或左端。你的循环代码中，源单元格是ActiveCell.Offset(k + 7, 0)（比如A17、A24等），但目标范围却是Range(ActiveCell.Offset(0,0), ActiveCell.Offset(2,0))（始终是A10:A12），两者完全不重叠，直接触发方法调用失败。

• ActiveCell未随循环更新
  初始选中A10后，ActiveCell始终指向A10，循环中k +=7只是偏移源单元格，但目标范围一直锚定在A10，导致填充逻辑完全混乱。

• 循环终止条件无效
  循环判断ActiveCell.Value = "00215F107"，但ActiveCell从未改变，若A10的值不是目标字符串，循环会无限执行，最终因超出工作表边界报错。

修复后的代码 #

Sub DragDown()
    Dim ws As Worksheet
    Dim startCell As Range
    Dim fillRange As Range
    Dim stopValue As String
    
    Set ws = ActiveSheet
    stopValue = "00215F107"
    
    ' 第一次填充A10到A12
    Set startCell = ws.Range("A10")
    Set fillRange = startCell.Resize(3, 1) ' 从起始单元格向下扩展3行
    startCell.AutoFill Destination:=fillRange
    
    ' 循环填充后续区域
    Do
        ' 切换到下一组起始单元格（当前起始单元格下移7行）
        Set startCell = startCell.Offset(7, 0)
        
        ' 检查是否达到终止值，提前退出循环
        If startCell.Value = stopValue Then Exit Do
        
        ' 填充当前组的3行内容
        Set fillRange = startCell.Resize(3, 1)
        startCell.AutoFill Destination:=fillRange
    Loop
End Sub

修复说明 #

1. 抛弃Select/ActiveCell这类易出错的激活操作，直接用对象变量操作单元格，逻辑更清晰。
2. 用Resize定义填充范围，确保源单元格是目标范围的第一个单元格，符合AutoFill的要求。
3. 每次循环更新起始单元格，终止条件判断当前起始单元格的值，避免无限循环。

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