在Excel中，可以使用VBA代码来实现表格自动扩展更改公式范围。以下是一个示例代码：

Sub AutoExpandFormula()
    Dim ws As Worksheet
    Dim lastRow As Long, lastColumn As Long
    Dim formulaRange As Range, expandRange As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行和最后一列的索引
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 设置要更改公式范围的区域
    Set formulaRange = ws.Range("A1:" & ws.Cells(lastRow, lastColumn).Address)
    
    ' 扩展公式范围
    Set expandRange = formulaRange.CurrentRegion
    expandRange.Formula = formulaRange.Formula
    
    ' 可选：调整列宽以适应内容
    expandRange.EntireColumn.AutoFit
End Sub

使用上述代码，可以在VBA编辑器中按下F5键运行它。它会自动扩展工作表中的公式范围，并调整列宽以适应内容。请确保将代码中的"Sheet1"替换为要操作的工作表的名称。