Excel利用宏实现工资表打印

Excel利用宏实现工资表打印

作者：网上收集点击：读取中... 次

一个很简单的vba例子(Excel利用宏实现工资表打印) 。
假设你在excel里a1：d7的数据如下：

引用代码：
姓名性别部门工资
张1 男业务部 600
张2 女业务部 700
张3 男业务部 600
张4 男工业部 780
张5 女食品部 600
张6 男业务部 500

你先编辑一个宏，输入vba代码如下：

引用代码： Sub  宏1()
i  =  Selection.Row  -  1
For  j  =  1  To  i  -  1
  Rows("1:1").Select
     Application.CutCopyMode  =  False
     Selection.Copy
     Rows(j  *  3).Select
     Selection.Insert  Shift:=xlDown
     Application.CutCopyMode  =  False
     Selection.Insert  Shift:=xlDown
Next
End  Sub

然后回到工作表，选中最后一行（在这个例子中是第7行，张6 男业务部 500）
最后运行你刚才编辑的那个宏就可以了。。。。
这只是一个例子，在实际运用时应该还可以改进一下。。

收藏此文章　　　　　打印更新　　　　　编辑此文章　　　　『关闭窗口』


	家园个人文集		http://www.5x54.com