主题：请教逛逛大师

Dim max As Double

Dim s As String

For Each r As Row In e.Table.Rows

    For Each c As Col In e.Table.Cols

        If r.IsNull(c.Name) = False AndAlso Val(r(c.Name)) > max Then

            max = Val(r(c.Name))

            s = r.Index & "|" & c.Index

        End If

    Next

Next

e.Table.Select(s.Split("|")(0),s.Split("|")(1))