EXCEL表格中，怎样实现自动往后换列

EXCEL表格中，怎样实现自动往后换列

EXCEL表格中，怎样实现自动往后换列
当单元格A1输入1时，G1=B1-C1，得出单元格数值，向下复制，得出G200的数值。
当单元格A1输入2时，G1=D1-B1，得出单元格数值，向下复制，得出G200的数值。
当单元格A1输入3时，G1=D1+F1，得出单元格数值，向下复制，得出G200的数值.
当单元格A1输入4时，G1=B1+C1，得出单元格数值，向下复制，得出G200的数值
当A1输入1000时，等等许多数时。.

当单元格A1输入1时，把G1：G200得出的数值，通过复制、选择性粘贴放入H列中。
当单元格A1输入2时，把G1：G200得出的数值，通过复制、选择性粘贴放入I列中。
当单元格A1输入3时，把G1：G200得出的数值，通过复制、选择性粘贴放入J列中。
当单元格A1输入4时，把G1：G200得出的数值，通过复制、选择性粘贴放入J列中。
当单元格A1输入5时，把G1：G200得出的数值，通过复制、选择性粘贴放入L列中。

问有没有办法自动实现：当单元格A1输入1时，得出H列的纯粹数值
当单元格A1输入2时，得出I列的纯粹数值
当单元格A1输入3时，得出J列的纯粹数值
当单元格A1输入4时，得出K列的纯粹数值
也就是说：每当单元格A1中的数值增加1时，得出的结果就往后推移一列，并且自动往后移，同时得出的每列数值必须是纯粹数值。

最好使用普通公式或数组公式，不要用VBA，请问怎样用公式实现？谢谢！！

打开你的excel文档，点击“工具”->宏->宏,输入auto_open点击创建进入代码编辑窗口,输入代码,然后保存退出,重新打开文档就生效: sub auto_open() application.onkey "0", "a" application.onkey "1", "b" application.onkey "2", "c" application.onkey "3", "d" application.onkey "4", "e" end sub sub a() activecell.value = 0 sendkeys "{enter}" end sub sub b() activecell.value = 1 sendkeys "{enter}" end sub sub c() activecell.value = 2 sendkeys "{enter}" end sub sub d() activecell.value = 3 sendkeys "{enter}" end sub sub e() activecell.value = 4 sendkeys "{enter}" end sub 说明: (1)application.onkey "0", "a"表示按下主键盘上的0(小键盘没效,如果你需要自已补充),就执行a过程. (2)在sub a()和sub b()里是根据不同的按键输入不同的数值,再用sendkeys "{enter}"输入回车,你可以在"工具"->选项->编辑 里面设置enter键的方向.