[已解决]工资条,

为何

原表只有一个工资总表的,可以按表内的"十"或"一"号自动变成工资条,后来我加上基本工资表和加班工资表,数据都是取自总工资表的,想后来加上的两个表都可以按表内的"十"或"一"号都可以自动变成工资条,请大家帮忙修改下,谢谢 工资表（条）转换.zip (27.08 KB, 下载次数: 12)

2015-1-14 15:29 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-1-16 10:59

就是这样啦。

跳转到最佳答案楼层

grf1973

把模块1里两个sub里所有的Sheet1.去掉就行了

1. Sub InsertHeader()
   
2.     Dim r As Long, LastRow As Long
   
3.     Application.ScreenUpdating = False
   
4.     LastRow = Range("A65536").End(xlUp).Row
   
5.    Headline = 3
   
6.    s = 1
   
7.    Do While s <= Headline
   
8.     r = 1 + s + Headline
   
9.     Do While r <= LastRow
   
10.          Rows(s).Copy
    
11.          Rows(r).Insert Shift:=xlDown
    
12.          LastRow = LastRow + 1
    
13.          r = r + s + 1
    
14.     Loop
    
15.     s = s + 1
    
16.     Loop
    
17.    
    
18.     Application.CutCopyMode = False
    
19.     Application.ScreenUpdating = True
    
20.    
    
21. End Sub
    
22. 
    
23. Sub DeleteHeader()
    
24.     Dim r As Long, LastRow As Long
    
25.     Application.ScreenUpdating = False
    
26.     LastRow = Range("A65536").End(xlUp).Row
    
27.    
    
28.     Headline = 3
    
29.    s = 1
    
30.     Do While s <= Headline
    
31.     r = 2 + Headline
    
32.     Do While r <= LastRow
    
33.         Rows(r).Delete
    
34.         r = r + Headline + 1 - s
    
35.         LastRow = LastRow - 1
    
36.     Loop
    
37.     s = s + 1
    
38.     Loop
    
39.    
    
40.     Application.ScreenUpdating = True
    
41. End Sub

复制代码

为何

grf1973 发表于 2015-1-14 16:05
把模块1里两个sub里所有的Sheet1.去掉就行了

我不太懂电脑的,请帮忙在附件中设置,万分感激呀

为何

为何 发表于 2015-1-15 16:05
我不太懂电脑的,请帮忙在附件中设置,万分感激呀

对宏更是一点不懂的,请帮忙呀

为何

为何 发表于 2015-1-15 16:05
我不太懂电脑的,请帮忙在附件中设置,万分感激呀

你好,因本人对VBA一点都不懂的,请帮忙用附件中设置,谢谢您呀

为何

求助呀

grf1973

就是这样啦。

为何

grf1973 发表于 2015-1-16 10:59
就是这样啦。

谢谢您,万分感激呀