在之前的文章《實(shí)用excel技巧分享:制作一張智能的考勤表》中,我們了解了制作智能考勤表的方法。今天分享兩種最快捷的工資條制作方法,10秒鐘2000人,快來看看!
第一種:添加輔助列
如下圖所示的工資表,瓶子要給每一個(gè)人的工資條上面加一個(gè)表頭,表頭上面還要留一行空白用于裁剪。
我們先在H2、H3單元格手動(dòng)輸入1、2。
然后選中H2-H3單元格區(qū)域,將鼠標(biāo)放置在H3單元格右下角,雙擊向下填充。可以看到如下結(jié)果。
按ctrl+c復(fù)制區(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,在彈出的對話框中點(diǎn)擊“定位條件”,然后在如下所示的對話框中勾選“空值”。點(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ù)被選中了。
單擊右鍵,選擇“插入”。
在彈出的對話框中選擇“整行”。
此時(shí)可以看到每個(gè)表頭前面都有了空行,可用于打印出來后裁剪。
若想給表頭和名字加上邊框,選中整個(gè)表格區(qū)域,點(diǎn)擊“開始”選項(xiàng)卡下的邊框下拉按鈕,在下拉菜單中選擇“所有框線”。
可以看到所有單元格都加了框線。
若想要留白行沒有框線,可以按照前面的定位空值的方式,定位所有空行后,按ctrl+1快捷鍵,彈出設(shè)置單元格格式對話框。在對話框中依次點(diǎn)擊左、中、右三條框線,可去除空白行的三條框線,點(diǎn)擊確定。
最終效果如下所示。
上面的方法比較適用于人數(shù)較少的公司,假如你所在的公司有兩三千人,那就使用下面瓶子給你的萬能模板吧!
第二種:VBA
我們將分別利用兩段代碼來實(shí)現(xiàn)每行員工工資數(shù)據(jù)前插入裁剪行(空行)、插入表頭兩步操作。
按ALT+F11快捷鍵,彈出如下圖所示的VBA調(diào)試窗口。
點(diǎn)擊“插入”-“模板”后,頁面如下所示。
在空白處輸入代碼:(注意代碼中所有標(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)為止。
下面我們將原先的代碼刪除,再輸入進(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é)果如下。可以看到
這組代碼和上面的含義類似,我們只需要理解中間兩行就可以了。
For i = 20 To 4 Step -2
Range(“A1:G1”).Copy
? cells(I,1).Insert
上面的代碼含義是:從A20單元格(cells(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改為對應(yīng)的表頭區(qū)域即可。
相關(guān)學(xué)習(xí)推薦:實(shí)用excel技巧分享:制作一張智能的考勤表