こんにちは。こういうことですか。x とy はマージされているセルの範囲ないならばOKx = 2y = 2If sht.Cells(x, y).MergeCells Then Debug.Print sht.Cells(x, y).MergeArea.WidthEnd If