订阅Excel一键为非空单元格添加边框技巧
来源：网络收集 点击： 时间：2024-04-03首先打开一个需要处理的Excel文档，然后将Excel文档另存为成启用宏的工作簿，后缀名为.xlsm。
2/7本教程以下列数据为例。
3/7先插入一个形状，作为一个启动宏代码的按钮。
4/7为形状指定宏代码，在指定宏窗口选择右上角的新建。
5/7此时会进入VBA界面，并弹出一个模块窗口。
6/7在模块窗口覆盖粘贴以下代码：
Sub 矩形1_Click()
Dim i%, j%, m%, n%
Dim rng As Range
Set rng = Selection
Cells.Select
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Cells(1, 1).Select
i = ActiveSheet.UsedRange.Rows.Count
j = ActiveSheet.UsedRange.Columns.Count
For m = 1 To i
For n = 1 To j
If Cells(m, n).Value Then
Cells(m, n).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Else
End If
Next
Next
End Sub
7/7关闭VBA界面，回到Excel窗口，点击按钮即可实现为非空单元格添加边框。
注意事项如果对您有点帮助，请帮忙点个赞再走，谢谢！
EXCEL一键非空单元格添加边框版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_408488.html
