[已解决]修改精简代码，当整行无数据时去掉该行边框

feiaoli

1. Sub 内虚外实()
   
2. myr = Range("b100").End(xlUp).Row
   
3. With Range("b4:L" & myr + 2)
   
4.    .Borders.Weight = xlThin
   
5.    .Borders(xlEdgeLeft).LineStyle = xlContinuous '左
   
6.    .Borders(xlEdgeRight).LineStyle = xlContinuous '右
   
7.    .Borders(xlEdgeTop).LineStyle = xlContinuous '上
   
8.    .Borders(xlEdgeBottom).LineStyle = xlContinuous '下
   
9.    .Borders(xlInsideHorizontal).LineStyle = xlContinuous '内横线
   
10.    .Borders(xlInsideHorizontal).Weight = xlHairline '最细线
    
11.    .Borders(xlInsideVertical).LineStyle = xlContinuous '内竖线
    
12.    .Borders(xlInsideVertical).Weight = xlHairline
    
13. End With
    
14. End Sub

复制代码

谢谢各位老师的帮助！

最佳答案

月排行榜 / 总排行榜

爱疯

2017-2-13 15:03

Sub FillFormat()
    Dim i
    i = [B65536].End(xlUp).Row
    Range("B7:L7").AutoFill Destination:=Range("B7:L" & (i + 2)), Type:=xlFillFormats
    Range(Cells(i + 3, "b"), [L65536]).ClearFormats
End Sub



利用已有单元格，填充格式。
最后一句清除不需要格式的区域。

跳转到最佳答案楼层

爱疯

Sub FillFormat()
    Dim i
    i = [B65536].End(xlUp).Row
    Range("B7:L7").AutoFill Destination:=Range("B7:L" & (i + 2)), Type:=xlFillFormats
    Range(Cells(i + 3, "b"), [L65536]).ClearFormats
End Sub



利用已有单元格，填充格式。
最后一句清除不需要格式的区域。