时而学习之 发表于 2016-8-13 15:07

正有朋友需要看看

jjseven 发表于 2016-8-13 15:10

学习学习

d346836673 发表于 2016-8-30 11:43

看看怎样嘛

bra00bjs 发表于 2016-11-7 16:02

学习学习学习学习

nanxi2222 发表于 2017-7-7 14:34

大千世界

aimete520 发表于 2019-2-7 20:41

我来学习学习！！！！！

aimete520 发表于 2019-2-7 20:44

<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 发表于 2019-5-20 08:45

1111111111111111

wjyi0560 发表于 2019-11-25 19:48

谢谢分享

tracy_0414 发表于 2019-12-16 17:23

看看高手
页: 9 10 11 12 13 14 15 16 17 18 [19] 20
查看完整版本: 制作两行标题的工资条