代码有误，请修改，谢谢！

dssrmyh

代码不知哪里有误，生成工资条人员怎么只有2人？？？

dssrmyh

别沉，先自己顶上

hefuqing

1. Sub dddd()
   
2. r = Sheets("01月工资表").Cells(Sheets("01月工资表").Rows.Count, 1).End(xlUp).Row
   
3. Set tou = Sheets("01月工资表").Range("b2:q2")
   
4. For i = 3 To r - 3
   
5. r1 = Sheets("工资条").Cells(Sheets("工资条").Rows.Count, 1).End(xlUp).Row
   
6. tou.Copy Sheets("工资条").Cells(r1 + 3, 1)
   
7. Sheets("工资条").Cells(r1 + 3, 17) = "所属月份"
   
8. Sheets("01月工资表").Cells(i, 2).Resize(1, 16).Copy Sheets("工资条").Cells(r1 + 4, 1)
   
9. Sheets("工资条").Cells(r1 + 4, 17) = Left(Sheets("01月工资表").Cells(1, 1).Value, 8)
   
10. Next
    
11. End Sub

复制代码

dssrmyh

hefuqing 发表于 2018-9-10 13:42

谢谢，我是要求不改动工资条样式

专搞excel

先帮楼主顶上，自己下载试着调整下

dssrmyh

石沉大海了吗？

专搞excel

dssrmyh 发表于 2018-9-10 16:37
石沉大海了吗？

楼主，我想问下，n这个变量你设置了吗？

dssrmyh

专搞excel 发表于 2018-9-10 16:51
楼主，我想问下，n这个变量你设置了吗？

n = ar(i, 1)？就是不太懂，所以不会修改这段代码？

专搞excel

dssrmyh 发表于 2018-9-10 16:54
n = ar(i, 1)？就是不太懂，所以不会修改这段代码？

原始的表格你有吗？你这是借鉴的吧，最初的表格有吗

dssrmyh

专搞excel 发表于 2018-9-10 17:00
原始的表格你有吗？你这是借鉴的吧，最初的表格有吗

这个就是原始表格，我只是将人员减少了，2-12月的工资表删除了的