Question

如何在表格中，修改一个值后，自动把第二列数据给第一列，第三列数据给第二列？

我这样写会导致修改A8为1后，第二列不会把数据传给第一列；但改B8为1后，第三列可以把数据传给第二列；两个都为1时，所有数据都变为第三列了╮(╯▽╰)╭。。。求高手帮忙啊~~感激不尽。。OTZ





Answer 1

亲，第一眼看下来，需要VBA编程解决。
请问你修改哪个单元格来触发移动数据？另外，这样移动以后，第一列（A列）的数据就不存在了……你确认？

追问

真快！谢谢你的回答~嗯，第一列数据不要了，需要更新。只能用VBA吗？有没有其它办法。。。

追答

就我所知，不用VBA没法解决。请问你要更改哪个单元格来触发移动？

追问

A8、B8

追答

亲，下面是演示效果和代码。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。

 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Selection.Count = 1 And (Target.Address = "$A$8" Or Target.Address = "$B$8") Then
    If Target.Value = 1 Then
        Application.EnableEvents = False
        Select Case Target.Address
            Case "$A$8"
                Range("A2").Resize(5, 1).Value = Range("B2").Resize(5, 1).Value
            Case "$B$8"
                Range("B2").Resize(5, 1).Value = Range("C2").Resize(5, 1).Value
        End Select
        Application.EnableEvents = True
    End If
End If
End Sub

追问

非常感谢～