[已解决]标题有合并单元格的工资条做法

dingtow

file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\25362660\QQ\WinTemp\RichOle\99C4Y9~15%2(IC37T)8LSHU.jpg请教标题有合并单元格的工资条作法，谢谢

最佳答案

月排行榜 / 总排行榜

dsmch

2014-2-18 18:35

1. Sub Macro1()
   
2. Dim arr, rng As Range, i&, s&, x%, y&
   
3. Sheets(1).Activate
   
4. Sheets(2).Cells.Clear
   
5. Set rng = [a1:l4]
   
6. arr = Range("a5:l" & Range("a65536").End(xlUp).Row)
   
7. x = UBound(arr, 2): y = rng.Rows.Count: s = 1
   
8. For i = 1 To UBound(arr)
   
9.     rng.Copy Sheets(2).Cells(s, 1)
   
10.     Cells(i + 4, 1).Resize(1, x).Copy Sheets(2).Cells(s + y, 1)
    
11.     s = s + y + 2
    
12. Next
    
13. Sheets(2).Activate
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

baksy

看不明白呀~

dsmch

1. Sub Macro1()
   
2. Dim arr, rng As Range, i&, s&, x%, y&
   
3. Sheets(1).Activate
   
4. Sheets(2).Cells.Clear
   
5. Set rng = [a1:l4]
   
6. arr = Range("a5:l" & Range("a65536").End(xlUp).Row)
   
7. x = UBound(arr, 2): y = rng.Rows.Count: s = 1
   
8. For i = 1 To UBound(arr)
   
9.     rng.Copy Sheets(2).Cells(s, 1)
   
10.     Cells(i + 4, 1).Resize(1, x).Copy Sheets(2).Cells(s + y, 1)
    
11.     s = s + y + 2
    
12. Next
    
13. Sheets(2).Activate
    
14. End Sub
    

复制代码

dsmch

………………

dingtow

dsmch 发表于 2014-2-18 18:35

有点复杂，请教有没有简单点的，或用技巧？谢谢

dingtow

dingtow 发表于 2014-2-19 14:54
有点复杂，请教有没有简单点的，或用技巧？谢谢

先套着用吧，谢谢！

dingtow

dingtow 发表于 2014-2-19 15:06
先套着用吧，谢谢！

呵呵，谢了