制作两行标题的工资条

时而学习之

正有朋友需要看看

jjseven

学习学习

d346836673

看看怎样嘛

bra00bjs

学习学习学习学习

nanxi2222

大千世界

aimete520

我来学习学习！！！！！

aimete520

<br/>以下为具体代码：</p><p>Sub MakeSalaryList()<br/>&nbsp; Dim i As Integer<br/>&nbsp; Dim endrow As Integer<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '测出数据的最后一行<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; endrow = Sheet1.Range("a65536").End(xlUp).Row<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '把标题贴过去<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; For i = 3 To endrow<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '把每条数据抬头贴过去<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Worksheets(1).Range(Cells(1, 1), Cells(2, 256)).Copy (Worksheets(2).Cells(4 * i - 11, 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '把数据贴过去<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(4 * i - 9, 1))<br/>&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub</p>

64020938

1111111111111111

wjyi0560

谢谢分享

tracy_0414

看看高手