Question

Selection.AutoFill Destination:=Range("Cells(2, 5):Cells(i, 6)") 提示rang 作用与对象global失败

程序如下：
Sub Macro1()
'
'格式计算
Dim i As Integer
Range("E2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],工参!C[-4]:C[-3],2,0)"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],工参!C[-5]:C[-4],2,0)"
'公式复制
i = 2
If Sheets("sheet1").Cells(i, 1) <> "" Then
i = i + 1
End If
Range("E2:F2").Select
Selection.AutoFill Destination:=Range("Cells(2, 5):Cells(i, 6)") '该处出错
End Sub
等待大虾指教！！

Answer 1

Selection.AutoFill Destination:=Range("Cells(2, 5):Cells(i, 6)")

i是一个变量，是不可以用引号框起来的，一框起它就变成了一个变量，应该为：
Selection.AutoFill Destination:=Range(Cells(2, 5),Cells(i, 6))