在EXCEL中用宏生成两行标题的工资条的VBA代码

1、sub 生成工资条() cells.select range(f1).activate selection.borders(xldiagonaldown).linestyle = xlnone selection.borders(xldiagonalup).linestyle = xlnone selection.borders(xledgeleft).linestyle = xlnone selection.borders(xledgetop).linestyle = xlnone selection.borders(xledgebottom).linestyle = xlnone sele

2、ction.borders(xledgeright).linestyle = xlnone selection.borders(xlinsidevertical).linestyle = xlnone selection.borders(xlinsidehorizontal).linestyle = xlnone rows(3:3).select selection.insert shift:=xldown selection.insert shift:=xldown num = 600 col = 29 num1 = 6 do while num1 = num range(cells(num

3、1, 1), cells(num1, col).select selection.insert shift:=xldown selection.insert shift:=xldown selection.insert shift:=xldown num1 = num1 + 4 loop range(cells(1, 1), cells(2, col).select application.cutcopymode = false selection.copy range(a3).select activesheet.paste num2 = 7 do while num2 = num rang

4、e(cells(1, 1), cells(2, col).select application.cutcopymode = false selection.copy cells(num2, 1).select activesheet.paste num2 = num2 + 4 loop range(cells(3, 1), cells(5, col).select application.cutcopymode = false selection.borders(xldiagonaldown).linestyle = xlnone selection.borders(xldiagonalup)

5、.linestyle = xlnone with selection.borders(xledgeleft) .linestyle = xldouble .weight = xlthick .colorindex = xlautomatic end with with selection.borders(xledgetop) .linestyle = xldouble .weight = xlthick .colorindex = xlautomatic end with with selection.borders(xledgebottom) .linestyle = xldouble .w

6、eight = xlthick .colorindex = xlautomatic end with with selection.borders(xledgeright) .linestyle = xldouble .weight = xlthick .colorindex = xlautomatic end with with selection.borders(xlinsidevertical) .linestyle = xldash .weight = xlthin .colorindex = xlautomatic end with with selection.borders(xl

7、insidehorizontal) .linestyle = xldash .weight = xlthin .colorindex = xlautomatic end with selection.copy range(cells(7, 1), cells(9, col).select selection.pastespecial paste:=xlformats, operation:=xlnone, skipblanks:=false, transpose:=false num3 = 11 do while num3 = num range(cells(num3, 1), cells(num3 + 2, col).select selection.pastespecial paste:=xlformats, ope