如何做excel数据转换成工资条？

来源：百度知道 编辑：UC知道 时间：2024/05/20 16:10:04
数据环境：excel
数据形式：第一行是排头，之后的都是数据。
希望不用复制粘帖排头。
有没有简单的方法啊？现成的最好了。。。
邮箱：774837244@qq.com

我给你发过去了！

看看吧！

用access报表实现，数据源连接到你的excel，这个比较方便

Sub 生成工资条()
Cells.Select

'选择整个表去掉表格线

Range("F1").Activate

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

Selection.Borders(xlEdgeTop).LineStyle = xlNone

Selection.Borders(xlEdgeBottom).LineStyle = xlNone

Selection.Borders(xlEdgeRight).LineStyle = xlNone

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Rows("2:2").Select

'选择第2行

Selection.Insert Shift:=xlDown

'在第2行前插入一行，保持第2行为选中状态

num = 900
'总人数×3，如工资表中有100人则为100×3即num=300

col = 48

'工资表的栏数，如工资表有17栏则

'col=17

num1 = 4

Do While num1 <= num

'循环插入空行

Range(Cells(num1, 1)