如何在Excel中批量生成复杂函数f(x)的计算结果？

方法1：VBA宏（高效直接） #

• 按Alt + F11打开VBA编辑器
• 右键当前工作簿→插入→模块
• 粘贴这段代码：

Sub CalculateFValues()
    Dim i As Integer
    For i = 1 To 10
        Range("C3").Value = Range("F" & i).Value
        Calculate ' 强制刷新，确保复杂函数计算完成
        Range("G" & i).Value = Range("D3").Value
    Next i
End Sub

• 按F5运行宏，几秒内就能完成所有计算

方法2：Power Query（无代码方案） #

• 选中F1:F10，点击「数据」选项卡→「从表格/区域」（没有表头就取消「我的表格有标题」勾选）
• 在Power Query编辑器中，点击「添加列」→「自定义列」，输入公式：

  = Excel.CurrentWorkbook(){[Name="Sheet1"]}[Content]{2}[Column3]
  

  注意：把Sheet1改成你的实际工作表名，Column3对应C列，{2}是第3行（Power Query索引从0开始）。添加列前先手动在C3输入F1的值，刷新编辑器让它识别D3的计算逻辑

• 关闭编辑器，选择将结果上载到G列起始位置即可

方法3：手动快速操作（适合临时少量数据） #

• 先在G1输入=D3，然后C3输入=F1，按Enter后右键G1→复制，再右键G1→选择性粘贴→值
• 接着C3输入=F2，右键G1→复制，右键G2→选择性粘贴→值
• 重复该步骤到G10，10行数据很快就能完成

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