主题：新手求如何实现同一列中的值和上一行相同而不用输入

Dim ta As Table = Tables("xxx")

    If ta.rows.count = 0 Then

        ta.addnew()

    Else

        Dim ColNames As String() = {"列1","列2"}

        Dim dr As Row = ta.Rows(ta.rows.count-1)

        ta.Redraw = False

        dim drr as row = ta.addnew()

        For Each ColName As String in ColNames

            drr(ColName) = dr(ColName)

        Next

        ta.redraw = true

    end if

试下是否可以？