圖1 原工資表

圖2 轉(zhuǎn)換后效果
　　“條條大路通羅馬”，不過路有遠(yuǎn)近之分，方法也有難易之別，這里給大家提供三種最簡(jiǎn)單易用的方法。
　　方法一：宏命令控制法
　　對(duì)于Office家族的宏功能，大家或許早有耳聞，但由于需要使用VBA進(jìn)行編程，所以宏一直讓許多人望而卻步，不過要使用一個(gè)現(xiàn)成的宏就簡(jiǎn)單多了。首先打開要處理的Excel表，選擇“工具→宏→Visual Basic 編輯器”，在編輯器左邊的窗口中用鼠標(biāo)雙擊Sheet1，會(huì)出現(xiàn)代碼編輯窗口，在代碼編輯窗口輸入如下代碼（為了不破壞原有的工資表，所以這里采用了將 Sheet1的內(nèi)容復(fù)制到Sheet2的方法，所以最后的生成結(jié)果是在Sheet2中顯示）：
Sub MakeSalaryList()
Dim i As Integer
Dim endrow As Integer
'測(cè)出數(shù)據(jù)的最后一行
endrow = Sheet1.Range("a65536").End(xlUp).Row - 1
'把標(biāo)題貼過去
Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1))
For i = 3 To endrow
'把每條數(shù)據(jù)抬頭貼過去
Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))
'把數(shù)據(jù)貼過去
Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))
Next i
End Sub

　　關(guān)閉編輯器，將自動(dòng)返回到剛才的Excel表，選擇“工具→宏→宏”，將彈出如下對(duì)話框：
　　（見圖３）

圖3 添加宏
　　點(diǎn)擊“執(zhí)行”，將在Sheet2生成如Gz-2所示的轉(zhuǎn)換成工資條，怎樣，不復(fù)雜吧。當(dāng)然，如果你的表總Sheet2已經(jīng)輸入了別的內(nèi)容，就可以將他復(fù)制到Sheet3來生成，代碼修改也很簡(jiǎn)單，把其中的Sheet2修改成Sheet3就可以了，其它代碼不變。