利用Excel宏插入抬头 求助

xiaoyaopiao

下面是一个宏的函数，希望它实现的功能是在工资表的每一行前插入抬头：
希望运行宏后达到函数后面图示效果：
Sub InsertIitle()
   
    Selection.CurrentRegion.Select
    Calls(Selection.Row, Selection.Column).Select
    Range(Selection,Selection,End(x1ToRight)).Select
    Selection.Copy
    ActiveCall.Offect(2, 0).Range("B7").Select
   
    Do Until ActiveCall = ""
        Selection.Insert Shift:=xlDown
        Range(Selection,Selection.End(x1ToRight)),Select
        Selection.Copy
        ActiveCall.Offect(2, 0).Range("B7").Select
    Loop
   
    Application.CutCopyMode = False
   
   
End Sub

编号	发放时间	姓名	部门	基本工资	奖金
10932	1月2日	李*	管理	￥1,500.00	4000
编号	发放时间	姓名	部门	基本工资	奖金
10933	1月2日	李思	管理	￥1,200.00	5000
编号	发放时间	姓名	部门	基本工资	奖金
10934	1月2日	王武	财务	￥1,100.00	2000
编号	发放时间	姓名	部门	基本工资	奖金

上面抬头是手动实现的，运行宏时提示：未找到宏，运行宏函数时提示错误为：子过程或函数未定义。
附件中有EXcel文件，请高手详细指点一下！谢谢！

liwen

这段代码问题太多，看来不是复制过来的，是用手工输入，如cell作call，l作1，.作,等。。。

tanhong

Sub inserttitle()
  
  Dim IRow As Integer
  Dim JCol As Integer
  Dim Drow As Integer
  
  Application.ScreenUpdating = False
  
  Drow = Sheets("插入抬头").[B65536].End(xlUp).Row

  For IRow = Drow To 9 Step -1
      Rows(IRow).Insert
      For JCol = 14 To 2 Step -1
           Cells(7, JCol).Copy
           Cells(IRow, JCol).Select
           ActiveSheet.Paste
      Next JCol
  Next IRow
  
  Application.ScreenUpdating = True
  
End Sub

实例下载:

tanhong

以上是完成后的效果,忘了写思路了.
思路:
1、先得到数据区最后一行的数号。
2、从最后一行向第九行循环，并进行插入动作
3、在插入的行逐一复制第七行的标题

[ 本帖最后由 tanhong 于 2008-3-27 10:13 编辑 ]

pureshadow

每次看到江版辛苦地写代码,总是忍不住要用非代码的东东打击一下........[:34]
这只是其中一种哦,还有N种.......

操作过程中增加个表头的复制,就可以实现每行插入表头了.

[ 本帖最后由 pureshadow 于 2008-3-27 19:46 编辑 ]

tanhong

原帖由 pureshadow 于 2008-3-27 19:45 发表
每次看到江版辛苦地写代码,总是忍不住要用非代码的东东打击一下........[:34]
这只是其中一种哦,还有N种.......

操作过程中增加个表头的复制,就可以实现每行插入表头了.

还是小妖行哈,又来打擂来了,哈哈.
不过这位仁兄是要求VBA哦,