用Excel插件掌上工資條－－無需上載，無需導入，直接在財務的工資表中進行批量發送（數據雙重加密傳輸
工資條的錄入是個體力活，還需要打印下來保證信息的完善，這裏提供幾個制工資條的方法。
材料/工具
excel
方法1
輔助序列法，做出這個樣子。
第一步：首先依據實際情況填好工資表的各項必備信息，如圖如何用函數快速製作工資條2第二
選中數據區域，點擊篩選。
用VBA吧，代碼如下： ----------代碼開始---------- Cells.Sele
升序排列。
刪掉無用數據。
以WPS 2019版本為例：關於怎麼用excel快速的做幾百人的工資條，您可考慮使用WPS2019
方法2
隨意輸入對角線，按F5選擇定位條件。
用Excel插件掌上工資條－－無需上載，無需導入，直接在財務的工資表中進行批量發送（數據雙重加密傳輸
選空值。
右鍵，插入整行。
工資條是個人工資明細的一種表現方式，你可將“工資條”設為引用表， 第一行為標題，即多行標題的最明
複製標題行，選擇插入區域。
第一步：首先依據實際情況填好工資表的各項必備信息，如圖如何用函數快速製作工資條2第二
按F5定位為空值。
用VBA吧，代碼如下： ----------代碼開始---------- Cells.Sele
右鍵選擇的區域點擊粘貼值。
以WPS 2019版本為例：關於怎麼用excel快速的做幾百人的工資條，您可考慮使用WPS2019
刪除無效數據。
方法3
輸入a1。
向下複製到a9（比原數據多一條）。
F5定位空值。
接下來操作如方法2。
方法4
複製標題行到11行。
A列輸入序號1，B列輸入公式。=VLOOKUP($A15,$A$1:$C$9,COLUMN(B5),0)
向右複製。
選擇標題行和公式行，向下複製。
方法5
複製序號一列到輔助列。
輔助列下輸入1.1，2.1。
選中向下複製。
選擇數據區域，點擊升序排列。
接下來的定位空值和插入操作如同方法2。
擴展閲讀，以下內容您可能還感興趣。
如何一分鐘快速製作工資條，工資條製作軟件，下載模板
想 要知 快 速 制 作 工 資 條 ， 薪 資 管 家 你 用 了 嗎 。 分 分 鍾 幫 你 搞 定 這 個 難 題 。 下 面 我 來 詳 細 教 你 具 體 的道 操 作 方 法 。 首 先 注 冊 薪 資 管 家 ， 第 一 步 ， 注 冊 薪 資 管 家 ； 第 二 步 ， 上 傳 任 意 格 式 e x c e l 工 資 表 ； 第 三 步 ， 自 動 生 成 獨內 立 工 資 條 , 一 鍵 羣 發 到 員容 工 注 冊 的 A P P ; 第 四 步 ， 員 工 登 錄 查 詢 自 己 的 工 資 條 。本回答被提問者採納
多行工資條快速製作方法
工資條是個人工來資明細的一種表現方式，你可將“工資條”設為引用表，
第一行為標題，即自多行標題的最明細目，
即 A1 B1 C1 D1 E1 F1
序號百、姓名、基本工資、工齡、社齡、學歷……；度
第二行為金額
A2
=SHEET1 （2）！A7
如何快速製做工資條
EXCEL中一個簡單的工資條製作辦法作者：詹堯輝問題：在Excel2000做成的工資表，只有第一個人有工資條的條頭（如編號、姓名、崗位工資，年限工資……），想輸出成工資條的形式。怎麼做？
解決方法：
（1）、假設原工資表為“表1”，先複製“表1”到某新空白表中，命名為“表2”，刪去“表2”中的多餘行，使工資條頭位於第一行，職工工資數據依次緊排在條頭之後。：
（2）、在“表2”工資數據的後一列H中，增加“標註”欄，依次向下填充入1，2，3…等步長為1的序列數。
（3）、選中“表2”工資條頭下（工資條頭不選）第2至最後一行，右鍵：插入，表2中將出現許多新增空行，將條頭數據填入這些新增空行中（方法：選中A1：G1，右鍵“複製”，然後選中所有新增空行，右鍵“粘貼”即可e799bee5baa6e79fa5e98193e59b9ee7ad9431333332623265，也可用拖拽填充法）。然後在其“標註”欄中依次填上1.5，2.5，3.5…。等步長為1的序列數。操作結果示意如下：
（4）、再次選中“表2”第2行至最後一行，點擊菜單：數據-排序-按“標註”列（遞增）排序，點擊確定。再選中H“標註”列，右鍵：“隱藏”或“刪除”，這樣，工資條即基本製作完畢。
（5）、製作完成的工資條裁開後即可分發給同事了。您如果覺得此表格過於擁擠，還可用類似的方法在每個人之間插入空行。
HR如何用函數快速用Excel製作工資條
第一步：首先依據實際情況填好工資表的各項必備信息，如圖
如何用函數快速製作工資條
2
第二步：算出扣款小計：在L5單元格輸入公式=SUM(G5:K5)，然後下拉填充。（這裏是在L5單元格輸入公式，可根據實際情況自己選擇單元格。）
如何用函數快速製作工資條
3
第三步：在M5單元格輸入公式=SUM(C5:F5)-L5，計算出應發工資，然後下拉。
如何用函數快速製作工資條
4
第四步：用應發工資減去個人所得税得到實發工資，在O5單元格輸入公式=M5-N5，計算出實發工資，然後下拉。
如何用函數快速製作工資條
5
第五步：至此，工資表製作完畢，下面開始製作工資條：複製工資表，然後刪除7a64e59b9ee7ad9431333365653765內容只留下表頭，複製的工作表名稱改為“工資條”，在A6單元格輸入序號“1”。
如何用函數快速製作工資條
6
第六步：在B6單元格輸入公式=VLOOKUP($A6,XXX公司工資表!$A$5:$P$4995,COLUMN(B4),0)，然後向右拉。
如何用函數快速製作工資條
7
第七步：選中A4:P6，如果人與人之間需要留一空行，就選中A4:P7，向下拉，如圖。
如何用函數快速製作工資條
8
第八步：如果想要統計實發工資總額，可以在O25單元格輸入公式=SUM(O6:O22)，如圖。
如何用函數快速製作工資條
9
如此，工資條製作完成，工資表可留底備案，工資條打印後裁切發給員工。
END
如何快速製作工資條（雙行標題）！
用VBA吧，代碼如下： ----------代碼開始---------- Cells.Select
Range("F1").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone '選擇整個表去掉表格線
Rows("3:3").Select '選擇第3行
num = (ActiveSheet.UsedRange.Rows.Count - 2) * 4 '獲取工資表除標題外的總行數，並*4以創建雙行標題工資條
col = ActiveSheet.UsedRange.Columns.Count '獲取工資表的總列數
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown '在選中行前插入兩行，以填充標題行
num1 = 6 '從第六行開始，循環每四行插入空行
Do While num1 <= num
Range(Cells(num1, 1), Cells(num1, col)).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
num1 = num1 + 4
Loop
Range(Cells(1, 1), Cells(2, col)).Select '選擇標題行
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
ActiveSheet.Paste '粘貼標題行到A3單元格
num2 = 7 '從第七行開始，循環每四行粘貼標題行
Do While num2 <= num
Range(Cells(1, 1), Cells(2, col)).Select
Application.CutCopyMode = False
Selection.Copy
Cells(num2, 1).Select
ActiveSheet.Paste
num2 = num2 + 4
Loop
Range(Cells(3, 1), Cells(5, col)).Select '選擇第3行到第5行（第一個工資條），以設置工資條格式
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With '格式設置完7a64e58685e5aeb931333332623436畢
Selection.Copy '複製已設置好格式的工資條
Range(Cells(7, 1), Cells(9, col)).Select '選擇第二個工資條
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False '粘貼工資條樣式
num3 = 11 '從第十五行開始，循環每四行粘貼工資條樣式
Do While num3 <= num
Range(Cells(num3, 1), Cells(num3 + 2, col)).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
num3 = num3 + 4
Loop
Rows("1:2").Select Selection.Delete '刪除原始標題行----------代碼結束---------- 使用方法：錄製宏-然後編輯宏輸入以上代碼。
