主题：甜老师,帮帮编写循环查看

dim t as table = Tables("表A")

If t.Rows.Count = t.position+1 Then
    t.Position = 0
else
    t.Position += 1
End If