在后台看到有小伙伴在问工资条做,那今天给大家分享两种方式,如果你还有更简单的方法,欢迎在下面评论或私聊留言分享!(本文操作使用软件_ WPS Excel )
第一种:添加辅助列
如下图所示工资表,要求是给每个人的工资条上面加一个表头,表头上面还要留一行空白行利于裁剪。
![95dfc3008be7ae36f5e8732262545cde.png](https://i-blog.csdnimg.cn/blog_migrate/186b0e31a14c649139e1f724404af12f.jpeg)
首先我们在H2、H3单元格手动输入1、2。
![03db3746a22965a9eaa7553c6f29416e.png](https://i-blog.csdnimg.cn/blog_migrate/0e5ebcfde9acc1fa6db9f2ccd7741ecb.jpeg)
然后选中H2-H3的单元格区域,将鼠标放置在H3单元格右下角,双击向下填充。得到以下视图结果:
![bca2bb300cd476bae80dffb21a1e3f5f.png](https://i-blog.csdnimg.cn/blog_migrate/29d5f882d595078899a315ed42ea179e.jpeg)
按ctrl+c复制竖列H2:H11区域,然后点击H12单元格,按ctrl+V粘贴,得到如下的结果。
![92549e7b8a96da381800be6793c77d13.png](https://i-blog.csdnimg.cn/blog_migrate/4dcf16e0e51d99e720d9f1db41c0639e.jpeg)
选中数据区域A1-H21,点击“数据”选项卡下的“排序”按钮。
![92402f2fc3d650029a6f895e8b3f23bc.png](https://i-blog.csdnimg.cn/blog_migrate/93177ac6288c5ece1e4882bbdc05f67b.jpeg)
点击“主要关键字”后方的下拉按钮,在下拉菜单中选择“(列H)”,点击确定。
![d580a6a4e29267c8fdb69cd360c4017a.png](https://i-blog.csdnimg.cn/blog_migrate/e981feb2a9178692f9d729e6bd9aa6b9.jpeg)
可以看到如下所示的结果。
![6e67906a2ff1c34face0120ee4dab913.png](https://i-blog.csdnimg.cn/blog_migrate/14c2e54e66caa31cbee39f7ad3084656.jpeg)
选中A1-G1单元格区域,按ctrl+C复制。
![dd060e929582bfa51659a2a1697a563a.png](https://i-blog.csdnimg.cn/blog_migrate/2494686355e9c4f9ed0a6a26faa39ba4.jpeg)
然后选中A2-H20单元格区域。
![87c04181e329c8302614d12f916de515.png](https://i-blog.csdnimg.cn/blog_migrate/9032d311acc7291353b78ff1eb967f1d.jpeg)
按定位快捷键ctrl+G,在弹出的对话框中点击“定位条件”,然后在如下所示的对话框中勾选“空值”。点击确定。
![45e84f34097337320aa9081f5dd31bb3.png](https://i-blog.csdnimg.cn/blog_migrate/b173e80ad3c3e14d57fbf36455a6236d.jpeg)
此时可以看到所有的空行都被选中了。
![68aa4ac9d366d95f7cfddaf4b3e62d5c.png](https://i-blog.csdnimg.cn/blog_migrate/08bd2ca3aafb3b6f3047ebb35cbc58b7.jpeg)
按ctrl+V复制,可以看到表头复制到了每一个空行。
![3c2b71fcefb2747c4d03a40a123f3718.png](https://i-blog.csdnimg.cn/blog_migrate/cc391f0a19d79b076ee2e61131f6a093.jpeg)
然后选中H列,点击“开始”选项卡下的“全部”。
![16b673173aa57e226370f97bed795502.png](https://i-blog.csdnimg.cn/blog_migrate/892f3f7e88cba195ff8a1e46ea4857f3.jpeg)
在H2和I3单元格输入1。
![b943721d7c71cabb69dc239153d722e3.png](https://i-blog.csdnimg.cn/blog_migrate/93987cd645c3fdb37e0c75c0391e871f.jpeg)
选中H2-I3单元格区域,然后鼠标放在I3单元格右下角,双击填充。
![76918fc66aec606b55c530d3adc6f0c1.png](https://i-blog.csdnimg.cn/blog_migrate/ce872698f1a07a1008c98333f4f7e5cd.jpeg)
可以看到如下所示的结果。
![6b41413f581f6d28d142444b0ef395e5.png](https://i-blog.csdnimg.cn/blog_migrate/841e9b55297b575df0acb46c02f9ed99.jpeg)
选中I列数据,按ctrl+G快捷键,选择“常量”。点击确定。
![9452b71d7723cdf63f8f98f183e6e2aa.png](https://i-blog.csdnimg.cn/blog_migrate/33c5b0db8809d6fcc5ec3bab0f103048.jpeg)
可以看到数据被选中了。
![4fb4a48144174e0945f2fceb5fb9573a.png](https://i-blog.csdnimg.cn/blog_migrate/75547ab56d003b3a28585f5db12f0338.jpeg)
单击右键,选择“插入”,在弹出的对话框中选择“插入行”。
![0536b026bf42cda0529dd6d60efe9cd7.png](https://i-blog.csdnimg.cn/blog_migrate/3dcb862a0109b16d7562eda914e008c5.jpeg)
此时可以看到每个表头前面都有了空行,可用于打印出来后裁剪。
![50d8245d8895a29ca6166e80e194a922.png](https://i-blog.csdnimg.cn/blog_migrate/2cbe4ef349027d9730621bdbdd97bde2.jpeg)
若想要留白行没有框线,可以按照前面的定位空值的方式,定位所有空行后,按ctrl+1快捷键,弹出设置单元格格式对话框。在对话框中依次点击左、中、右三条框线,可去除空白行的三条框线,点击确定。
![8872de4298697aadc2841246d22b4431.png](https://i-blog.csdnimg.cn/blog_migrate/0c59fa1ef0fda4861d988e9e7fe4cd77.jpeg)
最终效果如下所示。
![a48fa1ae23aaa66eb324a8d1b8e84019.png](https://i-blog.csdnimg.cn/blog_migrate/fed312c2d8933b5c2b21ced236f699b2.jpeg)
第二种:VBA
我们将分别利用两段代码来实现每行员工工资数据前插入裁剪行(空行)、插入表头两步操作。
按ALT+F11快捷键,弹出如下图所示的VBA调试窗口。
![759dae42bae01783a2d351f6cfa93956.png](https://i-blog.csdnimg.cn/blog_migrate/4d8ed8b8c1887d8e69b258cf6713926f.jpeg)
点击“插入”-“模板”后,页面如下所示。
![40222ef36f1058737672a15baab021ac.png](https://i-blog.csdnimg.cn/blog_migrate/e5815f3a43245be523710b123b797b1b.jpeg)
在空白处输入代码:(注意代码中所有标点符号都是英文标点符号)
Sub 选定范围隔行插入一行()
Dim i As Integer
For i = 11 To 3 Step -1
Rows(i & ":" & i).Insert
Next
End Sub
![d2a2aa98dbe6ead918a2d565bd7dbbb7.png](https://i-blog.csdnimg.cn/blog_migrate/8e5c3ec3c24afd149e0cb0cd8db53122.jpeg)
点击“运行”按钮。
![3a0b70c27329a01112a5339c1e9d7ba2.png](https://i-blog.csdnimg.cn/blog_migrate/ebcc749edca7a455ad964259990c8370.jpeg)
此时可以看到表格完成了插入空行操作。
![d7ec22b688da6eb06147abc83c8df39d.png](https://i-blog.csdnimg.cn/blog_migrate/b0ec20be82716d6330770944facd2a02.jpeg)
代码中有很多大家不认识的单词,但其实大家只需要明白下面两排的含义即可。
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
![6e3cc607b71a9f9bd520d33f86fbdedf.png](https://i-blog.csdnimg.cn/blog_migrate/3bf2188148693727aeb7151abc40573b.jpeg)
点击运行按钮后结果如下。可以看到
![6a07b32e770949207ae2d45bd27dbc28.png](https://i-blog.csdnimg.cn/blog_migrate/cd1bd30fa8138012895a06f5bf496b7e.jpeg)
这组代码和上面的含义类似,我们只需要理解中间两行就可以了。
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万能模板复制下来哟!
觉得不错的话点个关注吧!
有相关问题可在下方或者私信评论,不定时解答!