'右击工作表标签，查看代码，把下面的代码贴到打开的VBA窗口。这就足够多。只要改动B1，就会导致你要的结果。不要还不行~~~
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then Target.Offset(Target.Value, 0) = [c1]
End Sub
VBA这个不难实现（个人觉得这样处理很无聊和没必要），还不如在B列上输入公式，然后拖动鼠标自动向下填充公式来得更快。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024