Sub 列のグループ化を解除する()
    
    Columns("B:D").Ungroup
    
End Sub