***************************************************************
指定Rangeの最終列を取得
【引数】Range ：対象のRange
***************************************************************
Public Function fRange_LastCol(Range As Range) As Long
fRange_LastCol = Range.Column + Range.Columns.Count - 1
End Function