需求
经常会遇到这种情况，每次想用自动填充功能的时候，还需要双手离开键盘，使用鼠标或者触摸板双击填充柄，感觉很费劲。
实现方法
1. 获取要进行自动填充的单元格
- 获取要填充列的起始行行号
- 获取要填充列的结束行行号
- 获取要填充列的列号
2. 自动填充
自动填充主要模拟两种情况
- 复制单元格
-
填充序列
自动填充
代码
快速填充-复制单元格
Sub AutoFillCopy()
'
'line_number ：行数
'initial_line ：起始行行号
'end_line ：结束行行号
'column_number：列号
line_number = Selection.CurrentRegion.Rows.Count
initial_line = Selection.Row
end_line = initial_line + line_number - 1
column_number = Selection.Column
Selection.AutoFill Destination:=Range(Cells(initial_line, column_number), Cells(end_line, column_number))
End Sub
快速填充-填充序列
Sub AutoFillSeries()
'
'line_number ：行数
'initial_line ：起始行行号
'end_line ：结束行行号
'column_number：列号
line_number = Selection.CurrentRegion.Rows.Count
initial_line = Selection.Row
end_line = initial_line + line_number - 1
column_number = Selection.Column
Selection.AutoFill Destination:=Range(Cells(initial_line, column_number), Cells(end_line, column_number)), Type:=xlFillSeries
End Sub
参考
[1] ExcelHome：用什么快捷键 可以代替右下角双击黑十字的效果
[2] 微软VBA开发文档：Range.AutoFill method (Excel)
