1、首先打开一个需要处理的Excel文档，然后将Excel文档另存为成启用宏的工作簿，后缀名为.xlsm。
2、本教程以下列数据为例。
6、在模块窗口覆盖粘贴以下代码：Sub 矩形1_Click()Dim i%, j%, m%, n%Dim rng As RangeSet rng = SelectionCells.SelectSelection.Borders(xlInsideVertical).LineStyle = xlNoneSelection.Borders(xlInsideHorizontal).LineStyle = xlNoneCells(1, 1).Selecti = ActiveSheet.UsedRange.Rows.Countj = ActiveSheet.UsedRange.Columns.CountFor 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 NextNextEnd Sub
