Question

EXCEL宏，range参数是变量怎么写

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+Shift+W
'

Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A18"), Type:=xlFillDefault
Range("A1:A18").Select
End Sub
比如这个简单的填充宏。怎么把A18设置成变量，我想把A18换成COUNTA（a1:a1000）

Answer 1

可以这样：

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+Shift+W
'
Dim x '定义变量
x = Range("A65536").End(xlUp).Row 'A列最后一个有内容的行

Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A" & x), Type:=xlFillDefault
Range("A1:A18").Select
End Sub