主题：如何得到某行数据在包含分组行情况下的位置？

变通一下啊

Dim r As Row = Tables("表A").Rows(7) '第八行

Dim fzs As Integer = 0
With Tables("表A")
    For i As Integer = 0 To .Rows.count(True)
        Dim nr As Row = .Rows(i,True) 'Rows也需要加上参数True
        If nr.IsGroup Then '如果是分组行
            fzs += 1
        Else
            If r.Index = nr.Index Then
                Exit For
            End If
        End If
    Next
End With

msgbox(r.Index + fzs)

回复13楼，辛苦了！谢谢！