关于EXCEL中颜色填充的优化

无填充没有对应的颜色，可以加个VBA执行，我就不更新了~下面这个代码右键添加：

 Sub 无填充()  
    Dim selectedRange As Range  
    
    If TypeName(Selection) <> "Range" Then  
        MsgBox "请先选择要设置无填充的单元格范围。", vbInformation  
        Exit Sub  
    End If  
    
    Set selectedRange = Selection  
    
    With selectedRange.Interior  
        .Pattern = xlNone  
        .TintAndShade = 0  
        .PatternTintAndShade = 0  
    End With  
End Sub