Question

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

一个excel里有好多个表格。。那些表格的边框都是很粗的，怎么才能批量的一次性的全部更改这些表格的边框粗细，改为默认粗细。用宏-命-令的请教方法。好用的还可以加分。不要一个一个的选着改。。那样t太漫长了。。

Answer 1

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

Answer 2

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

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

追问

我用的是WPS，没找到你说的查看代码的那一项。。

追答

你把代码贴到wps的宏里面,改成宏来执行;由于手头没有wps不能测试.代码是excel的.

Sub Wkch()
For Each cc In selection.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

追问

试验了。也是和上面的一样，每个表格还有个别的线特别粗。。怎么办？问题全出现在合并单元格部分

Answer 3

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

Answer 4

选中数据区域，运行宏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

追问

用你的宏，发现还有一些变不了的有粗有细的。。

S

追答

for i=1 to 12
试试

追问

改了没用。。。问题全出在那些合并单元格的部分

追答

传一个表格过来看看吧

+155,422,0253 'Q

Answer 5

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