'*****************************************************************************
'[ 関数名 ]　GetMaxMergeWidth
'[ 概 要 ]　横方向の結合の最大幅を取得する
'[ 引 数 ]　調査する領域、左端のColumn番号
'[ 戻り値 ]　なし
'*****************************************************************************
Private Function GetMergeCol(ByRef objCol As Range, ByRef objSelection As Range) As Range
Dim objRange As Range
Dim objWkRange As Range

Set objWkRange = ArrangeRange(Intersect(objCol, objSelection))

'選択範囲のColumnsの和集合を取り重複列を排除する
Set objRange = Union(objWkRange.EntireColumn, objWkRange.EntireColumn)

While (True)
Set objWkRange = ArrangeRange(Intersect(objRange, objSelection))

'選択範囲のColumnsの和集合を取り重複列を排除する
Set GetMergeCol = Union(objWkRange.EntireColumn, objWkRange.EntireColumn)

If GetMergeCol.Address = objRange.Address Then
Exit Function
End If
Set objRange = GetMergeCol
Wend
End Function

返信する