excel - Excel VBA“范围类的自动填充方法失败”

Question

以下 VBA 代码失败，出现错误 1004，“范围类的自动填充方法失败。”。它在第一个工作表（i = 9）中效果很好，但在下一个工作表之后它失败了Worksheets(i).Cells(Cel.Row, 6).Value = 0

Dim LastRow As Long


For i = 9 To 24 Step 1

LastRow = Worksheets(i).Cells(Worksheets(i).Rows.Count, "A").End(xlUp).Row
Worksheets(i).Range("C2:E" & LastRow).FillDown
Worksheets(i).Range("G2:G" & LastRow).FillDown

    Set DniRange = Worksheets(i).Range("E2:E" & LastRow)

        For Each Cel In DniRange.Cells
            If Cel.Value = "0" Then
            Worksheets(i).Cells(Cel.Row, 6).Value = 0
            Worksheets(i).Cells(Cel.Row, 6).AutoFill Destination:=Range(Cells(Cel.Row, 6), Cells(LastRow, 6)), Type:=xlFillSeries
            Worksheets(i).Cells(Cel.Row, 6).AutoFill Destination:=Range(Cells(Cel.Row, 6), Cells(2, 6)), Type:=xlFillSeries
            End If
        Next Cel
    Next

有什么想法吗？

标签： excelvba