![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
excel为什么突然没有表格边框线? 5
直接刷格式,会提示这个,因为数据中有部分单元格是合并过的。
操作方法:
1、选定全部数据,鼠标右键==》设置单元格格式==》对齐==》取消合并单元格,效果如下:
2、对首组数据进行合并,设置好框线等格式
3、选择调整好的数据区(包含中间的分隔行),使用选定区右下角的句柄(小十字)使用鼠标右键下拉到最后一行,选择仅填充格式,效果如下
4、同理,将该列数据(含空列)选定有向右拖动,同样填充格式,完成操作。
看样子是清除了原有的格式。不过可以用代码添加边线。
Sub Demo()
Set FindRng = ActiveSheet.UsedRange
With FindRng
Set C = .Find(What:="试室", LookAt:=xlPart)
If Not C Is Nothing Then
FirstAddress = C.Address
Do
With C.CurrentRegion
.Borders.TintAndShade = 0
.BorderAround Weight:=xlMedium
.HorizontalAlignment = xlCenter
End With
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With
End Sub
这是运行前后对比图