Question

excel vba进行自动复制、粘贴的程序如何写。

新建工作薄命名为001.xls。工作薄001.xls的工作表sheet1 的5个单元格A1、B1、C1、D1、E1里的数字分别对应为：1、2、3、4、5。
如果在单元格E1里输入1或者2，则复制B1、C1、D1、E1的值粘贴到A1、B1、C1、D1里。
举例1：单元格A1、B1、C1、D1、E1如下
A1 B1 C1 D1 E1
1 2 3 4 5
当在E1里输入1时则变成如下：
A1 B1 C1 D1 E1
2 3 4 5 1
说明：工作薄001.xls在不激活的情况也能自动执行任务。
请高人指点，谢谢！
E1数据不存放，E1改变后D1也不用等于原来的E1。E1是随时可以改变的，其它单元格也是随着改变的。
E1是由外部程序通过后台操作来改变的，工作薄001.xls不用打开，不用激活。只要E1改变就自动执行复制、粘贴任务。

Answer 1

可以在外部程序添加一段程序，后台打开工作薄001.xls进行上述操作，此时操作的人看不见EXCEL操作过程。建议用较低版本EXCEL，速度较快。

Answer 2

有2个问题
1，你E1的数据存放在哪里？如果不存放，E1改变后怎么使D1等于原来的E1
就好像你去整容，整的人家都不认识了，如果没有一个凭证（比如身份证），别人怎么知道这个人是你啊
2，如果工作薄001.xls不激活，那么你怎么改变E1，E1不改变这个任务也就不存在执行的问题了

追问

1.E1数据不存放，E1改变后D1也不用等于原来的E1。E1是随时可以改变的，其它单元格也是随着改变的。2.E1是由外部程序通过后台操作来改变的，工作薄001.xls不用打开，不用激活。只要E1改变就自动执行自动复制、粘贴任务。

追答

1.如果E1数据不存放，那D1等于什么啊？看你的例子，你原E1等于5，当E1变为1的时候D1变为5
程序肯定是在E1变为1的时候（可以用WORKSHEETCHANGE激发）激发的，这个时候D1的5是怎么来的啊（E1已经变为1了，没有5这个值存在的）？
2.如果E1是通过外部程序操作改变的，那程序也要放在哪个外部程序里，不能放在工作薄001.xls，不然这个工作簿不激活，程序也不会激活的

Answer 3

说的不够清楚，E1=2时，其他格等于什么
E1能不能等于其他值？
还有，做成这么个表有什么用？

追问

当在E1里输入2时则变成如下：
A1 B1 C1 D1 E1
2 3 4 5 2

如果在单元格E1里输入0或其它数字，不会执行复制、粘贴任务。
例如：当在E1里输入0时（不执行复制、粘贴任务只改变E1的值）则变成如下：
A1 B1 C1 D1 E1
1 2
3 4 0

追答

第一个问题好办，A1=if(or(E1=1,E1=2),2,1)，B1=if(or(E1=1,E1=2),3,2)，C1=if(or(E1=1,E1=2),4,3)，D1=if(or(E1=1,E1=2),5,4) E1的内容需要输入
复制粘贴任务什么意思没看明白