VBA删除工作表末尾的格式_Vba_Excel

VBA删除工作表末尾的格式

vba excel

VBA删除工作表末尾的格式,vba,excel,Vba,Excel,我正在编写一些代码，从文件中加载数据并将其放入excel电子表格中。我设置了代码，以便表中的所有单元格周围都有薄的黑色边框。但是，在表格结束后，表格下方行中的所有单元格周围仍有边框。在表格结束后，有没有办法使所有的格式都被撤消，单元格不再有边框？表格大小将因excel中打开的文件而异找到第一个空单元格。。。然后从该单元格设置您的范围 [insert your range here].Borders(xlDiagonalDown).LineStyle = xlNone [insert your

我正在编写一些代码，从文件中加载数据并将其放入excel电子表格中。我设置了代码，以便表中的所有单元格周围都有薄的黑色边框。但是，在表格结束后，表格下方行中的所有单元格周围仍有边框。在表格结束后，有没有办法使所有的格式都被撤消，单元格不再有边框？表格大小将因excel中打开的文件而异

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

[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

如果代码有问题，请显示代码。