求助：如何通过Application.Selection结合AutoFill实现选定区域公式拖拽？

我看你现在卡在AutoFill的核心调用上，而且现有代码里还有几个小细节需要调整，比如目标区域的提示文本混淆、Type参数未补全，我帮你把代码补全并梳理清楚关键逻辑：

完整修正后的可运行代码 #

Sub AutoFillFormulaFromSelection()
    Dim xTitleId As String
    Dim rangeSource As Range
    Dim rangeTarget As Range
    
    xTitleId = "KutoolsforExcel"
    
    ' 第一步：获取并确认包含公式的源区域
    Set rangeSource = Application.Selection
    On Error Resume Next
    Set rangeSource = Application.InputBox("请选择带公式的源区域:", xTitleId, rangeSource.Address, Type:=8)
    On Error GoTo 0
    If rangeSource Is Nothing Then Exit Sub ' 用户取消选择时直接退出
    
    ' 第二步：获取并确认需要填充公式的目标区域
    Set rangeTarget = Application.Selection
    On Error Resume Next
    Set rangeTarget = Application.InputBox("请选择要填充公式的目标区域:", xTitleId, rangeTarget.Address, Type:=8)
    On Error GoTo 0
    If rangeTarget Is Nothing Then Exit Sub ' 用户取消选择时直接退出
    
    ' 核心：执行AutoFill拖拽公式
    rangeSource.AutoFill Destination:=rangeTarget, Type:=xlFillDefault
End Sub

关键细节说明 #

• 命名优化：把原来的range2、range3改成rangeSource（源公式区域）和rangeTarget（目标填充区域），代码可读性直接拉满，后续维护也方便。
• 错误防护：加了On Error语句和空值判断，避免用户点击输入框的「取消」按钮时程序直接报错崩溃。
• AutoFill核心逻辑：rangeSource.AutoFill Destination:=rangeTarget, Type:=xlFillDefault是实现拖拽的关键。如果需要指定填充规则，可以替换Type参数：
  • xlFillCopy：完全复制源内容（公式引用不自动调整）
  • xlFillSeries：按序列逻辑填充（比如数字、日期序列）
  • xlFillFormats：仅填充格式，不改变内容
  • xlFillValues：仅填充值，不保留公式
• 提示文本修正：把目标区域的提示改成明确的引导语，避免源/目标区域混淆。

小提醒 #

源区域里至少要有一个带公式的单元格，AutoFill才能识别并正确拖拽公式；如果源区域是单个单元格，目标区域可以是任意连续区域，公式会自动调整相对引用哦。

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