1月至12月的工资表加表头

孙婷婷

求助：我需要打印全年的1月至12月的工资表格，我只会给单月的每一个人加工资表头，12个月的就不会了，就是一个人的名字有12个月，跪求大师指教。。愿意支付学费

sry660

请上传附件，说明要求，模拟效果

孙婷婷

sry660 发表于 2016-1-13 15:27
请上传附件，说明要求，模拟效果

就是这样的表格，1月到12月的名字要加表头

sry660

1. Sub 工资条制作()
   
2. Dim i&, iRow&, m&, iCol&
   
3. iRow = Cells(Rows.Count, 1).End(xlUp).Row
   
4. iCol = Cells(1, Columns.Count).End(xlToLeft).Column
   
5. For i = 2 To iRow
   
6.     If Cells(i, 2) <> Cells(i + 1, 2) Then
   
7.         m = i + 1
   
8.         Range(Cells(m, 1), Cells(m, iCol)).Insert shift:=xlDown
   
9.         [1:1].Copy Range("a" & m)
   
10.         i = i + 2
    
11.     End If
    
12. Next
    
13. End Sub

复制代码