如何把具有双行表头的工资表变成工资条

lh007

单行表头的我用“宏”搞定了。可是双行的表头却不行，不是只显示一行表头，就是在宏中出现运行错误1004。
谢谢。

以下单行表头的宏

Sub gongzibiao()
Application.ScreenUpdating = False
'为避免破坏表一,将表一内容完整复制到表二
Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1]
'定义循环变量的最大值不小于表二中职工数的二倍
a = (Application.WorksheetFunction.CountA(Sheets(2).[a1:a2600]) * 2)
'如果第一列(职工的工资电脑序号)上下单元格的值不相等,则在它们之间插入一个空白行
For I = 3 To a
If Sheets(2).Cells(I, 1) <> Sheets(2).Cells(i+ 1, 1) And (Sheets(2).Cells(I, 1) <> "") Then
Sheets(2).Rows(i+ 1).Insert
End If
'如果第一列中的单元格为空.则将表中[A2:M2](工资清单表头项目)复制到此行
If Sheets(2).Cells(I, 1) = "" Then
Sheets(2).[A2:M2].Copy Sheets(2).Cells(I, 1)
End If
Next
Application.ScreenUpdating = True
End Sub

[ 本帖最后由 lh007 于 2008-11-6 10:20 编辑 ]

LangQueS

http://club.excelhome.net/post.a ... p;star=1&page=1

lh007

原帖由 LangQueS 于 2008-11-6 13:01 发表
http://club.excelhome.net/post.a ... p;star=1&page=1

谢您了,可是还得麻烦您,因为是"无法找到该页"

LangQueS

仅供参考：

lh007

谢谢了.我试试去

lzqlaj

看看这个行吗？http://club.excelhome.net/viewth ... page%3D1#pid2642319

yancjm

原帖由 LangQueS 于 2008-11-6 13:37 发表
仅供参考：

这个不错