VBA100本ノック 12本目:セル結合を解除

こちらで公開されている、100本ノックに挑戦。
www.excel-ubara.com
素晴らしい教材を公開いただき、ありがとうございます。

上記リンク先から、問題文を転載。
f:id:Infoment:20220117222132p:plain

作戦としては前回と同様、MergeCellsプロパティで結合されているか否かを
確認するのがよろしかろう。

Sub VBA_100Knock_012()
    Dim r As Range
    Dim TargetRange As Range
    Dim DividedValue As Long
        For Each r In Range("A1:C11")
            ' セルが結合されているか否かの確認。
            If r.MergeCells Then
                ' 分割後のセルに割り当てる金額を計算。
                Set TargetRange = r.MergeArea
                DividedValue = r.Value / TargetRange.Cells.Count
                ' 結合を解除して金額セット。
                TargetRange.MergeCells = False
                TargetRange = DividedValue
            End If
        Next
End Sub

今回は、前回の「結合判定」に加え、結合された領域のセル数や結合解除
などが盛り込まれた良問だと思う。


解答を実行した結果がこちら。
f:id:Infoment:20220117223648g:plain

※冒頭リンク先の解答例および解説も、ぜひご一読ください。

参考まで。