Question

我正在寻找一个excel宏，它会将所有单元格填充设置为无填充，并使所有单元格都没有边框。我的工作簿中有多个电子表格，希望这适用于所有这些电子表格。我已经通过互联网寻找能够实现这一目标的东西了，但是很短暂。

Answer 1

这应该这样做。只需将其添加到任何子项，您就可以了：

Dim wsCount As Integer
Dim i As Integer

wsCount = ActiveWorkbook.Worksheets.Count

For i = 1 to wsCount
    Worksheets(i).Activate
    Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Next i

没有填充和没有边界的宏

1 个答案: