■ 結合されたセルの次の位置を取得する
セルを順番に読み込む場合に 結合されていないセルであれば、Range("A1"), Range("A2"), Range("A3"), ･･･ や
Cells(1,1), Cells(2,1), Cells(3,1), ･･･ のように順番に読み込めばよいのですが、結合されたセルを同じように処理すると空白データとして判断されてしまいます
MergeCells プロパティと MergeArea メソッドを使用して、セルの結合情報から判断する方法もありますが、Offset プロパティを使用すると、結合の終端セルの次のセルが簡単に取得できます
下記の例では A1 セルから下方向に次のセルの行番号を取得しています
Dim o_sheet As WorkSheet
Dim i_row As Long
Set o_sheet = ThisWorkBook.WorkSheets(1)
i_row = o_sheet.Cells(1, 1).Offset(1).Row
Set o_sheet = Nothing
列方向に次のセルの列番号を取得する場合には、以下のように記述します
i_column = o_sheet.Cells(1, 1).Offset(,1).Column
ループ処理の中で取得したセルを Range オブジェクトにセットする処理を繰り返せば、行番号を意識しないコード記述も可能です
Dim o_range As Range
Set o_range = ThisWorkbook.Worksheets(1).Cells(1, 1)
Do
If (IsEmpty(o_range.Value)) Then Exit Do
Set o_range = o_range.Offset(1)
Loop
Set o_range = Nothing