作者：乔山办公网日期：
返回目录：excel表格制作
可以这样：zd
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