基于VBA代码和控件操作,实现一键去除工作表中所有单位格的边框。

工具/原料
- Excel
方式/步骤
- 1
先打开一个Excel文档。

- 2
本教程以下列单位格为例,包含两个含边框区域。

- 3
首先插入一个肆意外形。

- 4
为外形指定宏代码。

- 5
选择新建按钮。

- 6
此时会跳转到VBA界面,在窗口中复制粘贴(笼盖粘贴)以下代码:
Sub 矩形1_Click()
Cells.Select
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Cells(1, 1).Select
End Sub


- 7
封闭VBA窗口,回到Excel界面。

- 8
单击外形即可断根工作表中所有的边框。


注重事项
- 若是对您有点帮忙,请帮手点个赞再走,感谢!










