Question

我正在编写一些代码，这些代码从文件中加载数据并将其放在Excel电子表格中。我已经设置了代码，以便表中的所有单元格都有薄的黑色边框。但是，在表格结束后，表格下方的行中的所有单元格周围仍然存在边框。是否有任何方法可以使表格结束后所有这些格式都撤消，单元格不再有边框？根据excel中打开的文件，表大小会有所不同。

Answer 1

找到第一个空单元格...然后从该单元格设置范围

[insert your range here].Borders(xlDiagonalDown).LineStyle = xlNone
[insert your range here].Borders(xlDiagonalUp).LineStyle = xlNone
[insert your range here].Borders(xlEdgeLeft).LineStyle = xlNone
[insert your range here].Borders(xlEdgeTop).LineStyle = xlNone
[insert your range here].Borders(xlEdgeBottom).LineStyle = xlNone
[insert your range here].Borders(xlEdgeRight).LineStyle = xlNone
[insert your range here].Borders(xlInsideVertical).LineStyle = xlNone
[insert your range here].Borders(xlInsideHorizontal).LineStyle = xlNone

VBA删除工作表末尾的格式

1 个答案: