如何使用VB.net從Excel範圍內的單元格中刪除邊框？

目標實現： 消除範圍單元格中的邊界（如果有）。

我有 ：

Dim range As Excel.Range = sheet.Range("A2:K100")
For Each cell In range
   // Some cells in the Range has borders
   // How to remove borders from cells in the range
Next cell

請幫忙.. ！

我是 Vb.net 的新手！

range.Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlLineStyleNone

移除單元格周圍和單元格之間的邊界（通過xlInsideHorizontal和xlInsideVertical）。如果您期望對角線邊框，請包括xlDiagonalDown和xlDiagonalUp。

好的，上面的程式碼非常冗長。以下內容也應該這樣做：

For Each border in range.Borders
   border.LineStyle = Excel.XlLineStyle.xlLineStyleNone
Next

請參閱：http: //msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.borders.aspx

編輯：

在查看 MSDN 頁面時，我想知道這個班輪是否也可以做到：

range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone

引用自：https://stackoverflow.com/questions/6974965