Dim t As Table = Tables("年报") If Tables("年报").Position = 0 Then '如果第一行是新增行,也是第一行,表格中无其他行时 Dim nr As Row = t.InsertNew '插入新增行 nr("去年上报时间") = Nothing '新增行单元格为空值 Else Dim cr As Row = t.current Dim nr As Row = t.InsertNew '插入新增行 If cr IsNot Nothing Then '如果最后一行存在 nr("去年上报时间") = cr("本年上报时间") '最后一行的cr 复制到第一行的nr End If End If