For r As Integer = 0 To Tables("表A").Rows.Count - 1
Tables("表A").Rows(r)("排名") = r +1 Next Dim cnt As Integer = 1 For r As Integer = 0 To Tables("表A").Rows.Count(True) - 2 Dim f As Row = Tables("表A").Rows(i,True) If f.IsGroup r("排名") = cnt cnt = cnt + 1 End If Next