在後台看到有小夥伴在問工資條做,那今天給大家分享兩種方式,如果你還有更簡單的方法,歡迎在下面評論或私聊留言分享!(本文操作使用軟件_ WPS Excel )
第一種:添加輔助列
如下圖所示工資表,要求是給每個人的工資條上面加一個表頭,表頭上面還要留一行空白行利于裁剪。
首先我們在H2、H3單元格手動輸入1、2。
然後選中H2-H3的單元格區域,将鼠标放置在H3單元格右下角,雙擊向下填充。得到以下視圖結果:
按ctrl c複制豎列H2:H11區域,然後點擊H12單元格,按ctrl V粘貼,得到如下的結果。
選中數據區域A1-H21,點擊“數據”選項卡下的“排序”按鈕。
點擊“主要關鍵字”後方的下拉按鈕,在下拉菜單中選擇“(列H)”,點擊确定。
可以看到如下所示的結果。
選中A1-G1單元格區域,按ctrl C複制。
然後選中A2-H20單元格區域。
按定位快捷鍵ctrl G,在彈出的對話框中點擊“定位條件”,然後在如下所示的對話框中勾選“空值”。點擊确定。
此時可以看到所有的空行都被選中了。
按ctrl V複制,可以看到表頭複制到了每一個空行。
然後選中H列,點擊“開始”選項卡下的“全部”。
在H2和I3單元格輸入1。
選中H2-I3單元格區域,然後鼠标放在I3單元格右下角,雙擊填充。
可以看到如下所示的結果。
選中I列數據,按ctrl G快捷鍵,選擇“常量”。點擊确定。
可以看到數據被選中了。
單擊右鍵,選擇“插入”,在彈出的對話框中選擇“插入行”。
此時可以看到每個表頭前面都有了空行,可用于打印出來後裁剪。
若想要留白行沒有框線,可以按照前面的定位空值的方式,定位所有空行後,按ctrl 1快捷鍵,彈出設置單元格格式對話框。在對話框中依次點擊左、中、右三條框線,可去除空白行的三條框線,點擊确定。
最終效果如下所示。
第二種:VBA
我們将分别利用兩段代碼來實現每行員工工資數據前插入裁剪行(空行)、插入表頭兩步操作。
按ALT F11快捷鍵,彈出如下圖所示的VBA調試窗口。
點擊“插入”-“模闆”後,頁面如下所示。
在空白處輸入代碼:(注意代碼中所有标點符号都是英文标點符号)
Sub 選定範圍隔行插入一行()
Dim i As Integer
For i = 11 To 3 Step -1
Rows(i & ":" & i).Insert
Next
End Sub
點擊“運行”按鈕。
此時可以看到表格完成了插入空行操作。
代碼中有很多大家不認識的單詞,但其實大家隻需要明白下面兩排的含義即可。
For i = 11 To 3 Step -1
Rows(i & ":" & i).Insert
上面的代碼含義是:從第11行開始向上插入1行空行(Rows後面的第1個i和第2個i相差0,若想插入兩行空行,可将第二個改為i 1),然後每隔1行(step -1)插入1行空行,到第3行(To 3)上方為止。
(接着上圖表格繼續操作)下面我們将原先的代碼删除,再輸入進另一組代碼:(注意代碼中所有标點符号都是英文标點符号)
Sub 隔2行插入表頭()
For i = 20 To 4 Step -2
Range("A1:G1").Copy
Cells(I,1).Insert
Next
End Sub
點擊運行按鈕後結果如下。可以看到
這組代碼和上面的含義類似,我們隻需要理解中間兩行就可以了。
For i = 20 To 4 Step -2
Range("A1:G1").Copy
Cell(i,1).Insert
上面的代碼含義是:從第20行的A20(cell(i,1),i是行數,1是列數,i等于20的時候,就是第20行第1列即A20單元格)開始向上插入(Insert)1個從指定位置(A1:G1)拷貝(Copy)的表頭,然後每隔2行(step -2)插入1個表頭,一直插入到第4行(To 4)為止。如果是雙行表頭,隻需要将A1:G1改為對應的表頭區域即可。
這篇文章就到這裡,記着要把VBA萬能模闆複制下來喲!
覺得不錯的話點個關注吧!有相關問題可在下方或者私信評論,不定時解答!
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!