需求：基于单元格引用从其他工作表复制公式的VBA宏

完整宏代码 #

Sub UpdateFormulas()
    Dim wsGuide As Worksheet
    Dim wsData As Worksheet
    Dim targetCol As Range
    Dim formulaCell As Range
    Dim sourceFormula As String
    Dim col As Integer
    
    ' 指定要操作的两个工作表
    Set wsGuide = ThisWorkbook.Worksheets("Guide Outputs")
    Set wsData = ThisWorkbook.Worksheets("Data")
    
    ' 遍历A到AE列（对应列号1至31）
    For col = 1 To 31
        ' 筛选当前列中所有带公式的单元格
        On Error Resume Next ' 处理列内无公式单元格的情况，避免报错
        Set targetCol = wsGuide.Columns(col).SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
        
        ' 如果当前列存在带公式的单元格
        If Not targetCol Is Nothing Then
            ' 获取Data表对应列第3行的公式
            sourceFormula = wsData.Cells(3, col).Formula
            
            ' 给每个带公式的单元格替换新公式
            For Each formulaCell In targetCol
                formulaCell.Formula = sourceFormula
            Next formulaCell
            
            ' 清空对象变量，避免循环干扰
            Set targetCol = Nothing
        End If
    Next col
    
    MsgBox "公式更新完成！", vbInformation
End Sub

新手操作步骤 #

• 打开Excel文件，按Alt + F11打开VBA编辑器
• 在左侧「工程资源管理器」里右键点击你的工作簿名称 → 插入 → 模块
• 将上面的代码粘贴到新模块的代码窗口中
• 返回Excel界面，点击「开发工具」选项卡 → 插入 → 按钮（表单控件），在工作表上绘制按钮，指定宏为UpdateFormulas，命名为「Update」
• 点击该按钮即可执行公式更新

关键逻辑说明 #

• SpecialCells(xlCellTypeFormulas)：精准定位列内所有带公式的单元格，自动跳过纯文本单元格，完全不会覆盖你手动输入的内容
• .Formula属性：完整复制Data表第3行的公式结构（包括单元格引用），而不是只复制计算结果
• 错误处理：On Error Resume Next用来处理列内没有公式单元格的情况，保证循环能正常完成所有列的检查

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