我试了一下,在2行之间只能插入一行第二次插入行时不在相邻的两行之间
xh为序号列,Double型Dim r As RowDim n1,n2 as Double
With CurrentTable n1 = .Position if n1> 0 then n2=(.rows(n1)("xh")+.rows(n1-1)("xh"))/2 else n2=.rows(n1)("xh")-1 end if r = .Rows.AddNew() r("xh") = n2 .Sort = "xh"End With