旨在实现： 要在范围内的单元格摆脱边框（如有）。

我有：

 昏暗的范围内Excel.Range = sheet.Range（A2：K100）
对于每个小区范围
    //一些单元格区域有边界
    //如何从细胞中删除边框的范围
下一个单元格
 

请帮助..！

我是新来的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.xlInsideHorizo​​ntal）.LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders（Excel.XlBordersIndex.xlInsideVertical）.LineStyle = Excel.XlLineStyle.xlLineStyleNone
 

删除周围的细胞和细胞之间的边界（通过 xlInsideHorizo​​ntal 和 xlInsideVertical ）。如果你希望对角线边框，包括 xlDiagonalDown 和 xlDiagonalUp 。

好了，上面的code是非常详细的。以下也应该这样做：

 对于range.Borders每个边界
    border.LineStyle = Excel.XlLineStyle.xlLineStyleNone
下一个
 

请参阅：http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.borders.aspx

编辑：

虽然看在MSDN页面，我想知道，如果这一块衬板可以做到这一点：

  range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
 

Aim to Achieve: To get rid of borders if any in the cells of range.

I have :

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

Please help.. !

I am new to 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

Removes the borders around the cells and between cells (via xlInsideHorizontal and xlInsideVertical). If you expect diagonal borders, include xlDiagonalDown and xlDiagonalUp.

Okay, the above code was very verbose. The following should do it too:

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

See: http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.borders.aspx

EDIT:

While looking over the MSDN page, I'm wondering if this one liner could do it too:

range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone