Sub tq()
Dim a
Sheets("Sheet1").Select
Range("L1").Value = "5"
Range("L2").Value = "=IF($F2*1440-($G2*1440+720)>0,""N"",""Y"")"
a = Sheet1.Range("A65535").End(xlUp).Row
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L" & a)
Sheets("Sheet2").Select
Range("A1").Value = "1"
Range("B1").Value = "2"
Range("C1").Value = "3"
Range("D1").Value = "4"
Range("A2").FormulaArray = "=INDEX(Sheet1!$I:$I,SMALL(IF(MATCH(Sheet1!$I$2:$I,Sheet1!$I$2:$I$483,0)=ROW(Sheet1!$I$2:$I$483)-1,ROW(Sheet1!$2:$483),4^8),ROW(1:1)))&"""""
End Sub
我想把上面这面代码中数组公式里面的I483换成变量a，请问要怎么操作呀