如何快速把工资表变成工资条？

boy461205160

谢谢，虽然这个我用不上

ZHUHUIFENG

不错的资料,收藏了,谢谢.

lshxx2001

表头奇数行,工资偶数行。将奇数行按偶数行次复制后，在前增加一列序号，排序完成后即可，超简单不使用任何函数

daphy123

自己写的

1. Sub test()
   
2. Dim r%, i%, c%, j%
   
3. Dim arr, brr
   
4.   '选定区域
   
5.   With Worksheets(1)
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     arr = .Range("a1:f" & r) 'f代表列共有f列 根据实际情况修改
   
8.   End With
   
9.   
   
10.   '根据区域设定需要装下新生成的区域大小
    
11. ReDim brr(1 To 2 * UBound(arr), 1 To UBound(arr, 2))
    
12. 
    
13. '把数组arr从第二条开始一条装目录一条装数据到数组brr中去
    
14. m = 0
    
15. For i = 2 To UBound(arr)
    
16.      
    
17.      m = m + 1
    
18.      For j = 1 To UBound(arr, 2)
    
19.      brr(m, j) = arr(1, j)
    
20.      Next
    
21.      m = m + 1
    
22.      For j = 1 To UBound(arr, 2)
    
23.      brr(m, j) = arr(i, j)
    
24.      Next
    
25.      
    
26. Next
    
27. 
    
28. With Worksheets(2)
    
29.    .Cells.ClearContents
    
30.    .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
31.    .Activate
    
32. End With
    
33. 
    
34. End Sub
    

复制代码

liwenwu

好帖子，学习了。

philips201110

这个非常好用，值得学习

夏之梦

谢谢分享，也学了一把~

风清云也淡

谢谢！分享