macros观没有填充和无国界

我正在寻找一个Excel的macros，将所有单元格填充设置为不填充，并使所有单元格都没有边界。 我在工作簿中有多个电子表格，并希望将其应用于所有这些表格。 我已经通过互联网寻找所有这一切，但总结出来。

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