需要用vba
右击工作表标签>查看代码>粘贴下面的代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Application.Intersect(Range("a3:a65536"), Target)
Application.EnableEvents = False
Cells(c.Row, 256).End(xlToLeft).Offset(0, 1).Value = c.Value
Application.EnableEvents = True
Next
End Sub
btw:下次再打开文件时启用宏,或者给代码添加数字签名并信任它.
http://tieba.baidu.com/p/1467015118
右击工作表标签>查看代码>粘贴下面的代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Application.Intersect(Range("a3:a65536"), Target)
Application.EnableEvents = False
Cells(c.Row, 256).End(xlToLeft).Offset(0, 1).Value = c.Value
Application.EnableEvents = True
Next
End Sub
btw:下次再打开文件时启用宏,或者给代码添加数字签名并信任它.
http://tieba.baidu.com/p/1467015118
