Excel能否实现A1与B1的双向联动计算（B1=30*A1）？

可行，以下是两种实用实现方案：

方案1：VBA宏（Excel桌面版专属） #

• 按 Alt + F11 打开VBA编辑器
• 在左侧工程面板找到目标工作表，双击打开代码窗口
• 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$A$1" Then
        If IsNumeric(Target.Value) Then Range("B1").Value = Target.Value * 30
    ElseIf Target.Address = "$B$1" Then
        If IsNumeric(Target.Value) Then Range("A1").Value = Target.Value / 30
    End If
    Application.EnableEvents = True
End Sub

• 保存工作簿为.xlsm格式（启用宏的格式）
• 说明：代码监听A1/B1的修改事件，自动计算对应单元格值，关闭事件触发避免循环更新

方案2：动态数组函数（无宏，支持Excel 365/在线版） #

需要借助一个辅助单元格（比如C1）作为统一输入区：

• A1公式：=IF(ISNUMBER(C1), C1, B1/30)
• B1公式：=IF(ISNUMBER(C1), C1*30, A1*30)
• 使用时仅在C1输入数值，A1和B1会自动同步计算出对应结果
• 优点：无需启用宏，适配禁用宏的环境

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