主题：增加一行后某列单元格内容自动等于上一单元格中的内容

按钮代码这样写

Dim t As Table = Tables("表A")
If t.Rows.count = 0 Then
    t.addnew
Else
    Dim r As Row = t.Rows(t.rows.count-1)
    Dim nr As Row = t.addnew
    nr("第一列") = r("第一列")
    nr("第二列") = r("第二列")
End If