EXCEL通过使用VBA实现这样的功能：只要选择单元格，系统就自动复制该单元格中的内容。
代码如下：
If Target.Column = 2 Or Target.Column = 5 Then
Selection.Copy
Target.Offset(0, 2).Activate
End If
代码解释：
Target.Column = 2 Or Target.Column = 5 如果选中的单元格处于第2列或第5列
Selection.Copy 实现复制的操作
Target.Offset(0, 2).Activate 复制好之后，光标右移两个单元格，比如B2被选中，此时其内容被复制，接着，光标平移到D2单元格。