發(fā)布時(shí)間:2024-01-24閱讀(13)
在后臺(tái)看到有小伙伴在問工資條做,那今天給大家分享兩種方式,如果你還有更簡(jiǎn)單的方法,歡迎在下面評(píng)論或私聊留言分享!(本文操作使用軟件_ WPS Excel )
第一種:添加輔助列
如下圖所示工資表,要求是給每個(gè)人的工資條上面加一個(gè)表頭,表頭上面還要留一行空白行利于裁剪。

首先我們?cè)贖2、H3單元格手動(dòng)輸入1、2。

然后選中H2-H3的單元格區(qū)域,將鼠標(biāo)放置在H3單元格右下角,雙擊向下填充。得到以下視圖結(jié)果:

按ctrl c復(fù)制豎列H2:H11區(qū)域,然后點(diǎn)擊H12單元格,按ctrl V粘貼,得到如下的結(jié)果。

選中數(shù)據(jù)區(qū)域A1-H21,點(diǎn)擊“數(shù)據(jù)”選項(xiàng)卡下的“排序”按鈕。

點(diǎn)擊“主要關(guān)鍵字”后方的下拉按鈕,在下拉菜單中選擇“(列H)”,點(diǎn)擊確定。

可以看到如下所示的結(jié)果。

選中A1-G1單元格區(qū)域,按ctrl C復(fù)制。

然后選中A2-H20單元格區(qū)域。

按定位快捷鍵ctrl G,在彈出的對(duì)話框中點(diǎn)擊“定位條件”,然后在如下所示的對(duì)話框中勾選“空值”。點(diǎn)擊確定。

此時(shí)可以看到所有的空行都被選中了。

按ctrl V復(fù)制,可以看到表頭復(fù)制到了每一個(gè)空行。

然后選中H列,點(diǎn)擊“開始”選項(xiàng)卡下的“全部”。

在H2和I3單元格輸入1。

選中H2-I3單元格區(qū)域,然后鼠標(biāo)放在I3單元格右下角,雙擊填充。

可以看到如下所示的結(jié)果。

選中I列數(shù)據(jù),按ctrl G快捷鍵,選擇“常量”。點(diǎn)擊確定。

可以看到數(shù)據(jù)被選中了。

單擊右鍵,選擇“插入”,在彈出的對(duì)話框中選擇“插入行”。

此時(shí)可以看到每個(gè)表頭前面都有了空行,可用于打印出來(lái)后裁剪。

若想要留白行沒有框線,可以按照前面的定位空值的方式,定位所有空行后,按ctrl 1快捷鍵,彈出設(shè)置單元格格式對(duì)話框。在對(duì)話框中依次點(diǎn)擊左、中、右三條框線,可去除空白行的三條框線,點(diǎn)擊確定。

最終效果如下所示。

第二種:VBA
我們將分別利用兩段代碼來(lái)實(shí)現(xiàn)每行員工工資數(shù)據(jù)前插入裁剪行(空行)、插入表頭兩步操作。
按ALT F11快捷鍵,彈出如下圖所示的VBA調(diào)試窗口。

點(diǎn)擊“插入”-“模板”后,頁(yè)面如下所示。

在空白處輸入代碼:(注意代碼中所有標(biāo)點(diǎn)符號(hào)都是英文標(biāo)點(diǎn)符號(hào))
Sub 選定范圍隔行插入一行()
Dim i As Integer
For i = 11 To 3 Step -1
Rows(i & ":" & i).Insert
Next
End Sub

點(diǎn)擊“運(yùn)行”按鈕。

此時(shí)可以看到表格完成了插入空行操作。

代碼中有很多大家不認(rèn)識(shí)的單詞,但其實(shí)大家只需要明白下面兩排的含義即可。
For i = 11 To 3 Step -1
Rows(i & ":" & i).Insert
上面的代碼含義是:從第11行開始向上插入1行空行(Rows后面的第1個(gè)i和第2個(gè)i相差0,若想插入兩行空行,可將第二個(gè)改為i 1),然后每隔1行(step -1)插入1行空行,到第3行(To 3)上方為止。
(接著上圖表格繼續(xù)操作)下面我們將原先的代碼刪除,再輸入進(jìn)另一組代碼:(注意代碼中所有標(biāo)點(diǎn)符號(hào)都是英文標(biāo)點(diǎn)符號(hào))
Sub 隔2行插入表頭()
For i = 20 To 4 Step -2
Range("A1:G1").Copy
Cells(I,1).Insert
Next
End Sub

點(diǎn)擊運(yùn)行按鈕后結(jié)果如下??梢钥吹?/p>

這組代碼和上面的含義類似,我們只需要理解中間兩行就可以了。
For i = 20 To 4 Step -2
Range("A1:G1").Copy
Cell(i,1).Insert
上面的代碼含義是:從第20行的A20(cell(i,1),i是行數(shù),1是列數(shù),i等于20的時(shí)候,就是第20行第1列即A20單元格)開始向上插入(Insert)1個(gè)從指定位置(A1:G1)拷貝(Copy)的表頭,然后每隔2行(step -2)插入1個(gè)表頭,一直插入到第4行(To 4)為止。如果是雙行表頭,只需要將A1:G1改為對(duì)應(yīng)的表頭區(qū)域即可。
這篇文章就到這里,記著要把VBA萬(wàn)能模板復(fù)制下來(lái)喲!
覺得不錯(cuò)的話點(diǎn)個(gè)關(guān)注吧!有相關(guān)問題可在下方或者私信評(píng)論,不定時(shí)解答!
歡迎分享轉(zhuǎn)載→http://m.avcorse.com/read-227122.html
Copyright ? 2024 有趣生活 All Rights Reserve吉ICP備19000289號(hào)-5 TXT地圖HTML地圖XML地圖