Question

EXCEL求指点，如何给变量赋单元格的值

Sub 输出()
'
' 输出 宏
'
'
For i = 1 To 20
Range("P5").Select
ActiveCell.FormulaR1C1 = i
ActiveWorkbook.SaveAs Filename:="E:\资料\HD\PS\" & i & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Next
End Sub
我想把“for i=1 to 20”的固定值20改成一个变量x，x取Sheet1里面AA1的值，怎么编，求高手帮忙，本人菜鸟。。。

Answer 1

将“for i=1 to 20”改为“for i=1 to x”
不要引号；
并在引行前面加：
x=Range("AA1")

Answer 2

Sub 输出(）
x=Range("AA1")
For i = 1 To X
Range("P5").Select
ActiveCell.FormulaR1C1 = i
ActiveWorkbook.SaveAs Filename:="E:\资料\HD\PS\" & i & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Next
End Sub