重复填充的按钮自己控制。
dim t as table = tables("表A")For i As Integer = t.TopPosition + 1 To t.BottomPosition t.rows(i)(t.colsel) = t.rows(i-1)(t.ColSel)Next