結合されていないセルの背景色をクリア

' 選択されたセル範囲から結合されていないセルの背景色をクリアする手続きです。

Sub prcClearBackgroundColorOfNonMergedCells()
    Dim rngSelected As Range
    Dim rngCell As Range
    Dim rngNonMerged As Range

    Set rngSelected = Selection ' 選択された範囲を取得

    ' 選択範囲の各セルに対してループ
    For Each rngCell In rngSelected
        If Not rngCell.MergeCells Then
            If rngNonMerged Is Nothing Then
                Set rngNonMerged = rngCell
            Else
                Set rngNonMerged = Union(rngNonMerged, rngCell)
            End If
        End If
    Next rngCell

    ' 結合されていないセルの背景色をクリア
    If Not rngNonMerged Is Nothing Then
        rngNonMerged.Interior.ColorIndex = xlNone
    End If
End Sub