導(dǎo)讀制作工資條是每位財務(wù)從業(yè)者必備技能，今天教大家如何用ExcelVBA一鍵制作工資條。工資表數(shù)據(jù)思路1、用Union方法，將表頭和標(biāo)題欄聯(lián)合到一起，賦值為Rn....

制作工資條是每位財務(wù)從業(yè)者必備技能，今天教大家如何用Excel VBA一鍵制作工資條。

工資表數(shù)據(jù)

思路

1、用Union方法，將表頭和標(biāo)題欄聯(lián)合到一起，賦值為Rng。

2、循環(huán)工資表，再用Union方法，將每行數(shù)據(jù)和Rng聯(lián)合到一起，復(fù)制到工資條工作表。

自動生成工資條

代碼

Private Sub CommandButton1_Click()

On Error Resume Next

Dim i%, j%, rng As Range, ws As Worksheet

Set ws = Sheets("工資表")

Set rng = Union(ws.Rows(1), ws.Rows(2), ws.Rows(3)) 表頭及標(biāo)題欄

Sheets("工資條").Cells.Clear

j = 1

Application.ScreenUpdating = False

With Sheets("工資條")

For i = 4 To ws.Cells(Rows.Count, 1).End(xlUp).Row

Union(rng, ws.Rows(i)).Copy .Cells(j, 1)

j = j 4

Next i

End With

MsgBox "工資條制作完成！"

Application.ScreenUpdating = True

End Sub