主题：如何定位到非空的最后一行

参考代码

Dim t As Table = Tables("表A")
Dim pidx As Integer = 0
For Each r As Row In t.Rows
    If r.IsNull("第一列") = false Then
        pidx = r.Index
    End If
Next

t.Position = pidx