Sub test(rngSrc As Range, iStartColumn As Integer) MsgBox "最終列は : " & rngSrc.Column MsgBox "最終列は : " & rngSrc.EntireColumn.Count Dim rng As Range If rngSrc.MergeCells Then rng = rngSrc.MergeArea End If Set rng = Cells(rngSrc.Row, i…