'Declaration
Function AdjustExpressionWhenCopyRange( _
ByVal As Expression, _
ByVal As Dictionary(Of String,ITableRange), _
ByVal As Dictionary(Of String,ITableRange) _
) As Expression
'使用法
Dim instance As ITableModelSupport
Dim oldExpr As Expression
Dim lstTable As Dictionary(Of String,ITableRange)
Dim removeTables As Dictionary(Of String,ITableRange)
Dim value As Expression
value = instance.AdjustExpressionWhenCopyRange(oldExpr, lstTable, removeTables)