EXCEL2007 表格描边问题 求高手赐教
发布网友
发布时间：2022-05-06 20:16
共1个回答
热心网友
时间：2023-09-15 05:40
Dim rng As Range
For Each rng In Range("a1:d100") '数据范围自己设定
If Cells(rng.Row, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous And rng <> "" Then
With rng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
With rng.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next rng
End Sub追问好高级。。表示没看懂
追答ALT+F11——F7——粘贴代码——注意换行。——F5运行。
