excel怎么批量调整大量表格的边框粗细

发布网友发布时间：2022-03-19 23:46

共5个回答

热心网友时间：2022-03-20 01:16

经代码复制到你需要更改的表格的代码中(右键点击工作表名,选择查看代码);
然后选择需要更改的区域就可以了.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each cc In Target.Cells
         If cc.Borders(xlDiagonalDown).LineStyle <> xlNone Then cc.Borders(xlDiagonalDown).Weight = xlThin
         If cc.Borders(xlDiagonalUp).LineStyle <> xlNone Then cc.Borders(xlDiagonalUp).Weight = xlThin
         If cc.Borders(xlEdgeLeft).LineStyle <> xlNone Then cc.Borders(xlEdgeLeft).Weight = xlThin
         If cc.Borders(xlEdgeTop).LineStyle <> xlNone Then cc.Borders(xlEdgeTop).Weight = xlThin
         If cc.Borders(xlEdgeBottom).LineStyle <> xlNone Then cc.Borders(xlEdgeBottom).Weight = xlThin
         If cc.Borders(xlEdgeRight).LineStyle <> xlNone Then cc.Borders(xlEdgeRight).Weight = xlThin
         If cc.Borders(xlInsideVertical).LineStyle <> xlNone Then cc.Borders(xlInsideVertical).Weight = xlThin
         If cc.Borders(xlInsideHorizontal).LineStyle <> xlNone Then cc.Borders(xlInsideHorizontal).Weight = xlThin
    Next

End Sub

热心网友时间：2022-03-20 02:34

第一种情况：要设置所有线条的粗细。选中所有单元格，右键-设置单元格格式-边框，这里面有线条的粗细等等都可以选择；
第二种情况：只想改变最外面大框的线条粗细，里面的线条粗细不想改变，可以先把里面的线条全部去掉，只加外边框，设置好粗细后，再把里面的线条加上，具体的去线和加线，EXCEL右上角有一个虚线框标识的田字格，在那里面有想要的线条格式。

热心网友时间：2022-03-20 04:08

选中数据区域，运行宏test

Sub test()
For Each icell In Selection
For i = 1 To 4
If icell.Borders(i).Weight = xlMedium Then icell.Borders(i).Weight = xlThin
Next
Next
End Sub

热心网友时间：2022-03-20 06:00

在单元格格式里先点你要的线型，再点你是要在外框还是所有框线。或者用绘制边框工具栏绘制。

热心网友时间：2022-03-20 08:08

你的表格是一个sheet算一个表格, 还是一个sheet中有多少区域需要重新设置边框呢