1、可以先利用宏录制来自动生成代码，然后再进行修改。操作方法如下：第一步，打开一个excel应用，新建一个白空表格，并录入数据。
2、第二步，点击excel应用程序窗口状态栏中左侧的“宏录制”按钮。
3、第三步，然后在表1中，选中左上角第一个有数据的单元格。
4、第四步，接着按下ctrl+shift键，再分别先后按下方向右键、方向下键，选中表1中全部数据。
5、第五步，再接着按下ctrl+c复制选中数据，切换到表2中，在要保存数据的行的第一个单元中点击一下，再ctrl+v粘贴。
6、第六步，再次点下 excel应用程序状态栏左侧的宏录制按钮，停止宏录制。
7、第七步，按下组全键：alt+f11，打开vba编辑窗口，展开模块，双击打开模块1，在右侧就可以看到刚录制的宏代码了，这个代码基本就能解决前面提出的问题了。