Sub 色をクリアする_塗りつぶしなし_無色に消す()
    
    Range("A1").Interior.ColorIndex = 0
    
End Sub