***************************************************************
Rangeを結合させる
※Union関数がNothingに対応していないので対応
【引数】Range1 ：レンジ
Range2 ：レンジ
***************************************************************
Public Function fRange_Union(Range1 As Range, Range2 As Range) As Range
'- Unionする
If Range1 Is Nothing Then
Set fRange_Union = Range2
ElseIf Range2 Is Nothing Then
Set fRange_Union = Range1
Else
Set fRange_Union = Union(Range1, Range2)
End If
End Function