用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 '刪除原始標題行----------代碼結束---------- 使用方法：錄制宏-然后編輯宏輸入以上代碼。

聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com