excel - 代码更改对角线的边框，但是一旦粘贴值，其他单元格也会更改？

Question

我在代码的格式化部分遇到了一个奇怪的问题。代码功能：代码应标识一个矩阵，并用两条对角边界线划掉对角单元格。一旦子程序运行，它就可以正常工作并且确实如此。

但是，当我开始将值放入矩阵的单元格时，在某些时候，一旦我填充了临界数量的单元格，我将值放入的单元格开始改变它们的边界，就像对角线的单元格一样！？

任何人都可以帮忙吗？

下面我重新创建了问题：

Sub Formatting()

With Sheets("Sheet1").Cells
    .ClearContents
    .Cells.Borders(xlDiagonalDown).LineStyle = xlNone
    .Cells.Borders(xlDiagonalUp).LineStyle = xlNone
End With

Dim xCol As Long, xRow As Long
Dim xColDiag As Long, xRowDiag As Long

xCol = 2
xRow = 3
xColDiag = 3
xRowDiag = 3

Do Until xColDiag > 9

    With Sheets("Sheet1").Cells(xRowDiag, xColDiag)
        .Borders(xlDiagonalDown).LineStyle = xlContinuous
        .Borders(xlDiagonalUp).LineStyle = xlContinuous
        .FormatConditions.Delete
    End With

    xRowDiag = xRowDiag + 1
    xColDiag = xColDiag + 1

Loop

End Sub

标签： excelvba