请问在所有表格第一行或最后一行前添加指定行的代码怎么写？

tangqingfu

请问在所有表格第一行或最后一行前添加指定行（如一行或两行）的代码怎么写？

LangQueS

建议楼主压缩上传简明扼要的 Excel 问题附件并加以说明或做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)
  
Excel Home论坛学习及使用完全攻略(新人必读)    http://club.excelhome.net/thread-449518-1-1.html

szqhb

先给个在第一行插入行数的代码
Sub aa()
Dim tb As Table
For Each tb In ActiveDocument.Tables
   tb.Select
    Selection.HomeKey Unit:=wdLine '光标置于表格首行
    Selection.MoveDown Unit:=wdLine, Count:=1 '修改此值可以改变光标下移行数
    Selection.InsertRowsAbove 1 '在上方插入一行，修改此值可以改变插入的行数
Next
End Sub
最后一行插入自己录制吧

sqhsqhli

搞复杂了。这样就可以啊，如在1表2行下插2行。
Sub Macro2()
ActiveDocument.Tables(1).Rows(2).Select
Selection.InsertRowsBelow 2
End Sub

kqbt

其实我也试过直接用 Range 对象把 selection 都舍弃，但是遇到合并单元格时就不行了。
ActiveDocument.Tables(1).Rows(2).Select
如果第2行与第3行有列合并单元格，那么上面这一句就行不通了。

szqhb

sqhsqhli 发表于 2011-12-9 14:56
搞复杂了。这样就可以啊，如在1表2行下插2行。
Sub Macro2()
ActiveDocument.Tables(1).Rows(2).Select

需要加个循环吧
Sub pp()
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Rows(1).Select
Selection.InsertRowsAbove 1 '在表格上方插入一行，修改此值可以改变插入的行数
Next
End Sub

kqbt

'Selection.MoveDown Unit:=wdLine, Count:=1 '修改此值可以改变光标下移行数
这一句将光标从第1行移到了第2行，所以结果才会是在第1行与第2行之间插入空行；将这一句注释掉就可以了。

sqhsqhli

kqbt 发表于 2011-12-9 15:48
其实我也试过直接用 Range 对象把 selection 都舍弃，但是遇到合并单元格时就不行了。
ActiveDocument.Tab ...

You are right!

tangqingfu

附件中含有原始表格和目标表格，请szqhb兄帮忙

szqhb

第一行一般为表头，插入行的话都是从第二行开始吧！第一行插入行的话，好像实用性不高。