'Declaration
Public Shared Sub FindRange( _
ByVal As Integer, _
ByVal column As Integer, _
ByVal As Integer, _
ByVal columnCount As Integer, _
ByVal As ITableRangeManager, _
ByVal As Integer, _
ByVal maxColumnCount As Integer, _
ByRef As List(Of ITableRange), _
ByRef As List(Of ITableRange) _
)
'使用法
Dim row As Integer
Dim column As Integer
Dim rowCount As Integer
Dim columnCount As Integer
Dim manger As ITableRangeManager
Dim maxRowcount As Integer
Dim maxColumnCount As Integer
Dim inRangeTables As List(Of ITableRange)
Dim intersectTables As List(Of ITableRange)
TableUtils.FindRange(row, column, rowCount, columnCount, manger, maxRowcount, maxColumnCount, inRangeTables, intersectTables)