单元格不为空画边框线内细外粗

shenzhenyang

1. Sub 分类汇总表内虚外实() '没有修改好
   
2. 
   
3. Dim i As Integer, lastrow As Integer '声明两个长整型变量
   
4.   Application.ScreenUpdating = False
   
5. 
   
6. With Sheets("分类汇总")
   
7. lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
   
8.   
   
9. If lastrow = 3 Then .Borders.LineStyle = xlNone: Exit Sub
   
10. 
    
11. For i = 4 To lastrow
    
12. If .Cells(i, 2) <> "" Then
    
13. With Range("B" & i & ":AA" & lastrow)
    
14.    
    
15.     .Borders.Weight = xlThin
    
16.     .Borders(xlEdgeLeft).LineStyle = xlContinuous  '左
    
17.     .Borders(xlEdgeRight).LineStyle = xlContinuous  '右
    
18.     .Borders(xlEdgeTop).LineStyle = xlContinuous  '上
    
19.     .Borders(xlEdgeBottom).LineStyle = xlContinuous '下
    
20.     .Borders(xlInsideHorizontal).LineStyle = xlContinuous  '内横线
    
21.     .Borders(xlInsideHorizontal).Weight = xlHairline  '最细线
    
22.     .Borders(xlInsideVertical).LineStyle = xlContinuous '内竖线
    
23.     .Borders(xlInsideVertical).Weight = xlHairline
    
24.    
    
25. End With
    
26. End If
    
27. Next
    
28. 
    
29. 
    
30. End With
    
31. Application.ScreenUpdating = True
    
32. End Sub

复制代码

请老师帮忙改下代码，代码找于论坛老师修改，但还是没有达到效果，我想B列单元格为空就不要画线。像我效果图那样
谢谢老师帮忙。

捞屎人

这级别够水的