这个宏应该贴Worksheet对象的私有宏区。如：在VBA窗口双击左侧的Sheet1,把宏贴到右侧空白区。转到工作表，在第4列的任一单元格输入"2号柜",则对应的第3列被设置成当前日期，输入其他值，则设置第2列。
你复制到什么位置了，应该复制在工作表sheet1等的代码区域哦，然后在第4列输入数据，就会有反应。
