excel中怎样让一个单元格的数字变了另一个单元格也跟着变，而另一个单

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
[b1] = [a1].Value * 2 '可以根据需要修改公式
End If
End Sub

这是代码，下面是截图

注意：打开vba编辑器后，双击你需要设置此宏的工作表名，然后在右侧编辑区域内按照上图进行选择，保存后关闭vba编辑窗口。然后回到sheet1工作表，在A1单元格内输入任意数字，就可以看到B1单元格的变化了

你也可以根据自己的需要设置成不同的单元格（row=行号。column=列号<数字第几列>）

但是，此代码只能对单个单元格有效（若是不修改公式的话）

b1=A1   …………!！！

虽然只能实现一次。。 A1变了b1跟到变。b1变了A1不变。之后A1变了b1就不变了。。。

不过还是VBA好点。

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address <> "$A$1" Then Exit Sub
        [b1] = Target.Value
          'A1单元格变，B1随着变,b1变，A1不变
    End Sub

补充前面的：呵呵比如你要B1格跟A1格一样，A1格改变B1格也跟着变，则在B1格输入=A1,enter即可。如果你要B1格的内容为A1格经一系列计算获得，则在B1格输入=A1（可加减乘除或其他）数值，即可。

vba才能完成

您没说具体需要怎么变，可以设置公式来达到您说的效果