批量去掉边框

wyjgni

标题有的有边框，有的没有，如何去掉边框，请高手赐教。

taller

A5这是标题行？

zldccmx

差异边框.zip (1.39 MB, 下载次数: 5)

2023-1-31 12:42 上传

点击文件名下载附件

zldccmx

批量插入一个行高0.2的空行，并将标题行的边框设置为白色

杨建营

我试了试选择A1表所在的行，然后选择格式刷，再选择有多余边框的表刷一下，就可以去除了。
代码如下：
Sub test()
Dim i&
Application.ScreenUpdating = False
Rows("1:16").Select
Selection.Copy
For i = [B65536].End(3).Row To 48 Step -16
    Rows(i - 15 & ":" & i).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Next
Application.ScreenUpdating = True
End Sub

杨建营

请楼主参考。

准提部林

Sub TEST_A1()
Dim i&
For i = 1 To ActiveSheet.UsedRange.Rows.Count Step 16
    Cells(i, 1).Resize(1, 7).Borders.LineStyle = 0
Next i
End Sub

wyjgni

本人认为7楼的答案符合要求，代码也简炼。边框属性值非常清楚，能问下这个值是怎么对应的。