Excel 删除或添加对角线边框

此宏用于清空单元格：

Sub Southwood_Click()
Sheets("Southwood").Range("C6:C8") = ""
Sheets("Southwood").Range("D9:F9") = ""
Sheets("Southwood").Range("F6:J8") = ""
Sheets("Southwood").Range("J9") = ""
Sheets("Southwood").Range("M6:S9") = ""
Sheets("Southwood").Range("C26:C28") = ""
Sheets("Southwood").Range("E26:E28") = ""
Sheets("Southwood").Range("H26:O28") = ""
Sheets("Southwood").Range("M29") = ""
Sheets("Southwood").Range("C52:M54") = ""
Sheets("Southwood").Range("C75:H77") = ""
Sheets("Southwood").Range("J75:J77") = ""
Sheets("Southwood").Range("L75:P77") = ""
MsgBox "Southwood has been cleared."
End Sub

我还想删除这条线的对角线边框：

Sheets("Southwood").Range("M6:S9") = ""

---

删除所有边框：

Sheets（“Southwood”）.Range（“M6:S9”）.Borders.LineStyle=xlNone

仅删除对角线边框：

With Sheets("Southwood").Range("M6:S9")
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
End With

---

删除所有边框：

Sheets（“Southwood”）.Range（“M6:S9”）.Borders.LineStyle=xlNone

仅删除对角线边框：

With Sheets("Southwood").Range("M6:S9")
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
End With

您的第一个答案“删除所有边框”不会删除对角线。您的第一个答案“删除所有边框”不会删除对角线。