在处理Excel数据时，如何快速地为表格中含有内容的单元格添邹菁惨挣加边框呢？本教程将基于VBA技术实现一键为表格中非空单元格添加边框技巧。
工具/原料
Excel
方法/步骤
1、首先打开一个需要处理的Excel文档，然后将Excel文档另存为成启用宏的工作簿，后缀名为.xlsm。
2、本教程以下列数据为例。
3、先插入一个形状，作为一个启动宏代码的按钮。
4、为形状指定宏代码，在指定宏窗口选择右上角的新建。
5、此时会进入VBA界面，并弹出一个模块窗口。
6、在模块窗口覆盖粘贴以下代码：Sub矩形1_Click()Dimi%,j%,葡矩酉缸m%,n%DimrngAsRang髫潋啜缅eSetrng=SelectionCells.SelectSelection.Borders(xlInsideVertical).LineStyle=xlNoneSelection.Borders(xlInsideHorizontal).LineStyle=xlNoneCells(1,1).Selecti=ActiveSheet.UsedRange.Rows.Countj=ActiveSheet.UsedRange.Columns.CountForm=1ToiForn=1TojIfCells(m,n).Value<>""ThenCells(m,n).SelectWithSelection.Borders(xlEdgeLeft).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlEdgeTop).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlEdgeBottom).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlEdgeRight).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithElseEndIfNextNextEndSub
7、关闭VBA界面，回到Excel窗口，点击按钮即可实现为非空单元格添加边框。
