1、可以先利用宏錄制來(lái)自動(dòng)生成代碼，然后再進(jìn)行修改。操作方法如下：第一步，打開(kāi)一個(gè)excel應(yīng)用，新建一個(gè)白空表格，并錄入數(shù)據(jù)。

2、第二步，點(diǎn)擊excel應(yīng)用程序窗口狀態(tài)欄中左側(cè)的“宏錄制”按鈕。

3、第三步，然后在表1中，選中左上角第一個(gè)有數(shù)據(jù)的單元格。

4、第四步，接著按下CTRL+SHIFT鍵，再分別先后按下方向右鍵、方向下鍵，選中表1中全部數(shù)據(jù)。

5、第五步，再接著按下ctrl+C復(fù)制選中數(shù)據(jù)，切換到表2中，在要保存數(shù)據(jù)的行的第一個(gè)單元中點(diǎn)擊一下，再ctrl+V粘貼。

6、第六步，再次點(diǎn)下 excel應(yīng)用程序狀態(tài)欄左側(cè)的宏錄制按鈕，停止宏錄制。

7、第七步，按下組全鍵：ALT+F11，打開(kāi)vba編輯窗口，展開(kāi)模塊，雙擊打開(kāi)模塊1，在右側(cè)就可以看到剛錄制的宏代碼了，這個(gè)代碼基本就能解決前面提出的問(wèn)題了。