EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
Excel一键为非空单元格添加边框技巧
来源：互联网
2023-02-20 17:41:55 416
在处理Excel数据时，如何快速地为表格中含有内容的单元格添加边框呢？本教程将基于VBA技术实现一键为表格中非空单元格添加边框技巧。
工具/原料
- Excel
方法/步骤
首先打开一个需要处理的Excel文档，然后将Excel文档另存为成启用宏的工作簿，后缀名为.xlsm。
本教程以下列数据为例。
先插入一个形状，作为一个启动宏代码的按钮。
为形状指定宏代码，在指定宏窗口选择右上角的新建。
此时会进入VBA界面，并弹出一个模块窗口。
在模块窗口覆盖粘贴以下代码：
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
关闭VBA界面，回到Excel窗口，点击按钮即可实现为非空单元格添加边框。
注意事项
- 如果对您有点帮助，请帮忙点个赞再走，谢谢！
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
