如何用Excel VBA实现类似双击的动态AutoFill至数据中断行

核心需求 #

替代录制宏生成的硬编码行号，实现自动填充公式到相邻列数据中断前的最后一行，和Excel界面双击单元格填充柄的效果完全一致。

解决方案代码 #

Sub DynamicAutoFill()
    Dim sourceCell As Range
    Dim lastDataRow As Long
    Dim fillRange As Range
    
    ' 指定要开始填充的源单元格（示例为AD12，可按需修改）
    Set sourceCell = ThisWorkbook.ActiveSheet.Range("AD12")
    
    ' 获取相邻列（这里取左侧列，若为右侧则改为Offset(0, 1)）的连续数据最后一行
    lastDataRow = sourceCell.Offset(0, -1).End(xlDown).Row
    
    ' 动态生成填充目标范围
    Set fillRange = Range(sourceCell, sourceCell.Offset(lastDataRow - sourceCell.Row, 0))
    
    ' 执行自动填充
    sourceCell.AutoFill Destination:=fillRange
End Sub

代码说明 #

• sourceCell.Offset(0, -1)：定位到源单元格的左侧相邻列对应位置，若你的数据参考列在右侧，将-1改为1即可
• .End(xlDown).Row：模拟Excel中按Ctrl+↓的操作，精准定位到相邻列连续数据的最后一行（自动识别数据中断点，不会填充到整列末尾）
• 动态计算填充范围：通过lastDataRow - sourceCell.Row得到需要填充的行数，完全适配表格扩展后的变化

注意事项 #

• 确保相邻列的起始数据行与源单元格行号一致（比如都是从第12行开始），否则需调整Offset的参数
• 若源单元格所在列已有部分填充，代码会延续填充至目标行，和手动双击的行为完全一致

内容的提问来源于stack exchange，提问作者ZelelB