Excel VBA实现从B2单元格自动填充至数据区域右下角

嘿，这个自动填充的需求我熟！你想把B2里的公式一键填充到整个数据区域的右下角（就是按Ctrl+End跳转到的那个位置），结合你说的A列和第1行都有数据的情况，我给你调整好了可用的VBA代码，还帮你揪出原代码里的小错误：

Sub FillFormulaToLastCell()
    Dim lastCol As Long
    Dim lastRow As Long
    
    ' 获取第1行最后一个有数据的列号
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    ' 获取A列最后一个有数据的行号
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    ' 先横向填充第2行：从B2延伸到第2行的最后一列
    Range("B2").AutoFill Destination:=Range("B2", Cells(2, lastCol)), Type:=xlFillDefault
    
    ' 再纵向填充整个区域：从第2行往下延伸到最后一行，覆盖所有列
    Range("B2:" & Cells(2, lastCol).Address).AutoFill Destination:=Range("B2", Cells(lastRow, lastCol)), Type:=xlFillDefault
End Sub

• 第一步先定位边界：lastCol抓第1行最后一个有数据的列，lastRow抓A列最后一个有数据的行，这两个值组合起来就是你要的「数据区域右下角」的位置。
• 先横向填充第2行：确保B2的公式先铺满第2行的所有目标列，这样后续纵向填充才有完整的基准行。
• 再纵向填充整个区域：以第2行的已填充区域为源，向下拉到最后一行，这样整个矩形数据区域就都能应用B2的公式了。

你原来的代码里第二行AutoFill有语法和逻辑错误：

• 源区域写错了：Range("B2:B" & lastCol)是指B列的第2行到第lastCol行，但lastCol是列号，这逻辑不对，应该用第2行的完整已填充区域当源。
• Destination参数的括号写错了：Range("B2"), Cells(lastRow, lastCol)多了个逗号和括号，正确的写法是Range("B2", Cells(lastRow, lastCol))，用来指定从B2到右下角的整个目标区域。

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