方法 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

Range("Cells(2, 5):Cells(i, 6)")
这种写法不对吧？Cells()返回的是range对象，而Range(Cell1, Cell2)中的两个参数都需要是Variant类型，所以不能以Cells()的返回值作为Range的参数。

换成下面这个试试：
Range("E2:F" & i)

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息