恩 上午已经弄好了 谢谢老大 另外上传一个工资表用的宏 就是每个数据带表头 给需要的朋友
我给你 一个方法:
打开工资表,重新复制一份。
打开复制的工资表,按ALT+F11,在菜单栏上点“插入”--“模块”,然后把下面这段代码复制进去。关闭这个窗口,回到工资表,按ALT+F8,点执行即可!祝你成功!!!!
Sub 加标题()
Rows(1).Select
Selection.Copy
b = ActiveSheet.UsedRange.Rows.Count - 2
For a = 1 To b
Rows(ActiveCell.Row + 2).Select
Selection.Insert Shift:=xlDown
Selection.Copy
Next
Application.CutCopyMode = False
End Sub