$ 0 0 Range("A1").MergeCells = FalseとかRange("A1").UnMergeとかやればいいみたい。Clearだと、分解もできないし、エラーもでちゃうんだよね。先にセル結合を解除しないとね。